Imprimir Página - duda al cambiar nick de msn

Título: duda al cambiar nick de msn
Publicado por: xhc en 6 Noviembre 2007, 21:36 pm

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:

Option Explicit
Public WithEvents MSN as MessengerApi.Messenger

3-en el form_load() :

Código:

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

Título: Re: duda al cambiar nick de msn
Publicado por: HaDeS, - en 6 Noviembre 2007, 23:34 pm

Código

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!

Título: Re: duda al cambiar nick de msn
Publicado por: xhc en 6 Noviembre 2007, 23:49 pm

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 :-\

Título: Re: duda al cambiar nick de msn
Publicado por: HaDeS, - en 7 Noviembre 2007, 00:06 am

Mmm, prueba esto:

Código

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

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!

Título: Re: duda al cambiar nick de msn
Publicado por: xhc en 7 Noviembre 2007, 14:43 pm

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 :

Código:

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

Título: Re: duda al cambiar nick de msn
Publicado por: xhc en 7 Noviembre 2007, 14:52 pm

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

pongo este code :

Código:

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)

Título: Re: duda al cambiar nick de msn
Publicado por: HaDeS, - en 7 Noviembre 2007, 22:41 pm

Ya voy aprendiendo :P

Código

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".

Título: Re: duda al cambiar nick de msn
Publicado por: xhc en 7 Noviembre 2007, 23:39 pm

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

Foro de elhacker.net

Programación => Programación Visual Basic => Mensaje iniciado por: xhc en 6 Noviembre 2007, 21:36 pm