duda al cambiar nick de msn

[xhc]

hola, mi problema es el siguiente:

Los pasos que sigo para cambiar el nick son estos
1-En proyecto,referencias; agrego messenger api type library
2- declaro esto :

Código [Seleccionar] Expandir

Option Explicit
Public WithEvents MSN as MessengerApi.Messenger
3-en el form_load() :

Código [Seleccionar] Expandir

Set MSN = New MessengerAPI.Messenger
MSN.OptionsPages 0, MOPT_GENERAL_PAGE
SendKeys ("minick")
SendKeys ("{ENTER}")
y al ejecutarlo me sale una pantalla como si no hubiera iniciado sesion o algo similar:

Lo raro es que hace un rato si que podia cambiar el nick , ¿que estoy haciendo mal?

ahora tampoco me deja cargar la lista de contactos conectados en un listbox !
me sale un error de compilacion en la palabra user(antes no me salia =S)

saludos

[HaDeS, -]

Código (vb) [Seleccionar] Expandir


Private Sub Form_Load()
Set MSN = New MessengerAPI.Messenger
Me.Visible = False
MSN.OptionsPages 0, MOPT_GENERAL_PAGE
DoEvents
SendKeys ("minick")
SendKeys ("{ENTER}")
Me.Visible = True
End Sub


Jaja bueno, así me funciono, lo de los users ni idea porque nunca he programado con esa librería

Saludos!

[xhc]

pues tampoco me funciona, sale muy rapido la ventana de opciones del MSN y se cierra. no se que puede pasar  porque antes me funcionaba y tambien podia cargar la lista de contactos en un listbox, que me saliera el nick en un msgbox...etc
Y ahora no, por ejemplo al poner lo de que me saliera el nick en un msgbox me sale un error que dice:
Run-time error '-2130705634 (8100031e)':
Method '~' of object '~' falied

cual puede ser el problema

[HaDeS, -]

Mmm, prueba esto:

Código (vb) [Seleccionar] Expandir


Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)

Ese lo metes despues del "Public WithEvents MSN as MessengerApi.Messenger", y en el código que te puse, pon después del "DoEvents" esto:

Código (vb) [Seleccionar] Expandir


Sleep 1000

Así se asegura de que la ventana de opciones aparecerá, y el contenido sea insertado correctamente.

Lo del error que te sale es cuando corres un activex, y posiblemente la libreria a la que llames este dañada o simplemente no esté (Me parece que es así , alguién que por favor aclare).
Saludos!

[xhc]

he reiniciado el ordenador y ahora en la pantalla de opciones me sale mi nick, y con este ultimo code si puedo cambiarlo.gracias , y he estado probando y con este otro tambien :

Código [Seleccionar] Expandir

Option Explicit
Public WithEvents MSN As MessengerAPI.Messenger
Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)


Private Sub Form_Load()
Set MSN = New MessengerAPI.Messenger
Me.Visible = False
MSN.OptionsPages 0, MOPT_GENERAL_PAGE
Sleep 100
SendKeys ("minick")
SendKeys ("{ENTER}")
End Sub


[xhc]

otra cosa, sabeis que hago mal al cargar la lista de contactos en un listbox??

pongo este code :

Código [Seleccionar] Expandir

For Each user In MsgrUIA.MyContacts
If user.Status = MISTATUS_ONLINE Or user.Status = MISTATUS_AWAY Or user.Status = MISTATUS_BE_RIGHT_BACK Or user.Status = MISTATUS_BUSY Or user.Status = MISTATUS_IDLE Or user.Status = MISTATUS_ON_THE_PHONE Or user.Status = MISTATUS_OUT_TO_LUNCH Then
List1.AddItem user.SigninName
End If
Next

me da error de compilacion con la palabra user(variable not defined)

[HaDeS, -]

Ya voy aprendiendo

Código (vb) [Seleccionar] Expandir


Private WithEvents MSN As MessengerAPI.Messenger

Private Sub Form_Load()
Set MSN = New MessengerAPI.Messenger
Set contactos = MSN.MyContacts

For Each contacto In contactos
    If contacto.Status <> 1 Then '1 = offline, no utilizes tantos "or" en tu código...
        List1.AddItem contacto.SigninName
    End If
Next
End Sub


Editado. A parte de que me falto el "saludos ", se me olvidó decirte que si estás usando el option explicit, tenes que declarar obligatoriamente cada variable, para el user, podes poner al principio del código "Dim user".

[xhc]

muchas gracias, es que aun nose mucho de variables,apis...etc  aunque estoy leyendo bastantes tutoriales sobre visual basic