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 : Option Explicit
Public WithEvents MSN as MessengerApi.Messenger
3-en el form_load() : 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:(http://imagen.subeimagen.com/501984nick.JPG)
Lo raro es que hace un rato si que podia cambiar el nick :o, ¿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
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 :P
Saludos!
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 :-\
Mmm, prueba esto:
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:
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í :P, alguién que por favor aclare).
Saludos!
he reiniciado el ordenador y ahora en la pantalla de opciones me sale mi nick, y con este ultimo code si puedo cambiarlo.gracias ;) ;D, y he estado probando y con este otro tambien :
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
otra cosa, sabeis que hago mal al cargar la lista de contactos en un listbox??
pongo este code :
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)
Ya voy aprendiendo :P
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".
muchas gracias, es que aun nose mucho de variables,apis...etc aunque estoy leyendo bastantes tutoriales sobre visual basic :xD