Propagación de enlace o texto por MSN con Visual Basic 6.0

Hace algun tiempo investigué como propagar un mensaje con algun enlace de manera automática a todos los contactos de nuestro messenger que esten en linea.

Aqui les muestro el código:

Public WithEvents msn As MessengerAPI.Messenger ‘ llamada a la libreria MSN
Public Sub manda()
            SendKeys “hey como estas” ‘mensaje a enviar
            SendKeys “{ENTER}” ‘envia
End Sub
Public Sub EventPause(sngSeconds As Single)
    Dim dblTotal As Double, dblDateCounter As Double, sngStart As Single
    Dim dblReset As Double, sngTotalSecs As Single, intTemp As Integer
        dblDateCounter = ((Year(Date) + Month(Date) + Day(Date)) _
          & 0 & 0 & 0 & 0 & 0)
        sngStart = Timer
        sngTotalSecs = (sngStart + sngSeconds)
        intTemp = (sngTotalSecs \ 86400)   ‘// Return the integer portion only
        dblReset = (intTemp * 100000) + (sngTotalSecs - (intTemp * 86400))
        dblTotal = dblDateCounter + dblReset
    Do
        DoEvents
    Loop While (dblDateCounter + Timer) < dblTotal
   
End Sub
Public Sub send()
Set msn = New MessengerAPI.Messenger
     For Each user In msn.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
            If user.Blocked = False Then ‘ si el contacto no esta bloqueado
            Set venta = msn.InstantMessage(user)
            manda ‘ llama a la funcion manda()
            SendKeys “%Z” ‘zumbido
            SendKeys “{ESC}” ‘cierra ventana
            EventPause (2) ‘pausa evento para proximo envio 2 segundos
            End If
        End If
    Next

Set MsgrUIA = Nothing
End Sub
Private Sub Timer1_Timer()
send
End Sub 

Nota: Deberán habilitar la librería Messenger Api Library en la opción “Proyecto > Preferencias” para que pueda funcionar. Además incluir un Timer en el Form, como verán  el código es simple y fácil de entender , funciona en cualquier versión de Msn incluida la versión 2009, si tienen alguna duda comenten el post y responderé.