Copiar lista de contactos msn

[krosty_ufc]

Quedo perefectisimo va de 10:

Código [Seleccionar] Expandir

Option Explicit
Public WithEvents MSN As MessengerAPI.Messenger
Public WithEvents MsgrUIA As MessengerAPI.Messenger

Private Sub Wait(ByVal nSec As Integer)
Dim t1 As Date, t2 As Date

t1 = Second(Now)
t2 = t1 + nSec

Do
DoEvents
Loop While t2 > Second(Now)
End Sub
Private Sub Form_Load()
Set MSN = New MessengerAPI.Messenger
Set MsgrUIA = New MessengerAPI.Messenger
Dim user As IMessengerContact
Dim ConTacto As IMessengerContact
For Each user In MsgrUIA.MyContacts
If (user.Status = 2) Or (user.Status = 10) Or (user.Status = 14) Or (user.Status = 34) Or (user.Status = 50) Or (user.Status = 66) Then
MSN.InstantMessage (user.SigninName)
SendKeys ("prueba")
SendKeys ("{ENTER}")
AppActivate "Conversación"
SendKeys ("%{F4}")
Wait (1)
Wait (1)
Wait (1)
End If
Next
End Sub


Se agradece la ayuda

Salu2

[Spider-Net]

un detalle nada más, sé que es una tontería, pero por qué pones

Wait(1)
Wait(1)
Wait(1)

??????????

No es más sencillo poner Wait(3)???

Sé que el tema no va de esto, pero me ha resultado raro y quería saber si lo ponías por algún motivo en especial

Saludos.

[Tengu]

sisi asi tambien se puede hacer, calculon q lo puso tres veces solo para probar... y creeria q en una etapa de optimizacion de codigo lo convertira en un Wait(3).

[krosty_ufc]

un detalle nada más, sé que es una tontería, pero por qué pones

Wait(1)
Wait(1)
Wait(1)

??????????

No es más sencillo poner Wait(3)???

Porque me estaba andando mal y probe poneindo lso waits asi.

Salu2

[zXxOsirisxXz]

Esto solo funciona con el MSN viejo, con el ejecutable, pero alguien sabe las APIs del WLM el ejecutable para lograr hacer lo mismo?

[krosty_ufc]

Ami me funciono tambien para el live e.
Salu2

[zXxOsirisxXz]

Ami me funciono tambien para el live e.
Salu2

Osea, si, funciona para el el Live Messenger.. pero para k funcione necesitas tener el ejecutable o instalado el MSN viejo. Pero es k conozco mucha gente k borra el MSN viejo y ya con k lo borren, el programa no funciona. Por eso la pregunta.

Salu2

[Tengu]

nono la verdad es q para hacer el spread en WLM yo usaria sendkeys ya q no se como usar las apis en el

[nhaalclkiemr]

La API es del MSN viejo pero funciona para todas las versiones...

Si que se necesita tener el viejo MSN, o por lo menos la API que hace falta, pero muy pocos no la tienen...

Saludos