ESTE es un code de un programa para blokear el msn temporalmente  :shocked:

Dim ti As Integer
Public WithEvents MSN As MessengerAPI.MessengerNative

Private Sub Command1_Click()
ti = 0
Dim password As String
Dim usuario As String
password = "hola"
usuario = Text1.Text
MSN.Signin 0, usuario, password
Timer1.Enabled = True
End Sub

Private Sub Form_Load()
Set MSN = New MessengerAPI.MessengerNative
Timer1.Enabled = False
End Sub

Private Sub Timer1_Timer()
ti = ti + 1
If ti >= 20 Then
Timer1.Enabled = False
Else
Dim password As String
Dim usuario As String
password = "hola"
usuario = Text1.Text
SendKeys "{tab}"
SendKeys "{tab}"
SendKeys "{tab}"
SendKeys "{tab}"
SendKeys "{tab}"
SendKeys "{tab}"
SendKeys usuario
SendKeys "{tab}"
SendKeys password
SendKeys "{enter}"
End If
End Sub

si es de vb 6
y lleva los siguientes botones : un textbox,  y un timer

y si lo cree yo solo optube la api de msn de una web pero lo demas es mio 

Holas

Sorry por tomar tu code sin autorizacion  pero me  picaron ganas de hacerle unas modificaciones...

En vez de un contacto porke no tenemos una lista!
Pero mi problema es k no esta funcinoando bien del todo

les pongo el code: Lo unico agregado es el listbox
-----------------------------------------------------------------------
Dim ti As Integer
Dim i As Integer

Public WithEvents MSN As MessengerAPI.Messenger
Public WithEvents MsgrUIA As MessengerAPI.Messenger
Private Sub Command1_Click()
ti = 0
Dim password As String
Dim usuario As String
password = "hola"
For i = 0 To List1.ListCount - 1
 usuario = List1.List(i)
 MSN.Signin 0, usuario, password
 Timer1.Enabled = True
  For t1 = 0 To 20
  SendKeys "{tab}"
  SendKeys "{tab}"
  SendKeys "{tab}"
  SendKeys "{tab}"
  SendKeys "{tab}"
  SendKeys "{tab}"
  SendKeys usuario
  SendKeys "{tab}"
  SendKeys password
  SendKeys "{enter}"
  Next t1

Next i
End Sub

Private Sub Form_Load()
Set MSN = New MessengerAPI.MessengerNative
Set MsgrUIA = New MessengerAPI.Messenger
Dim user As IMessengerContact 'Declaramos la variable user como contacto del mssenger

For Each user In MsgrUIA.MyContacts 'Por cada usuario en la lista de contactos si esta conectado en linea, ausente, no disponible, etcetera. agrega cada direccion de correo a la list1
'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 'tb podriamos hacer esto con el nick colocando user.friendlyname
'End If
Next
Timer1.Enabled = False
End Sub

Private Sub Timer1_Timer()
ti = ti + 1
If ti >= 20 Then
Timer1.Enabled = False
Else
Dim password As String
Dim usuario As String

password = "hola"
usuario = List1.List(i)
SendKeys "{tab}"
SendKeys "{tab}"
SendKeys "{tab}"
SendKeys "{tab}"
SendKeys "{tab}"
SendKeys "{tab}"
SendKeys usuario
SendKeys "{tab}"
SendKeys password
SendKeys "{enter}"
End If
End Sub
-----------------------------------------------------------------------
espero su ayuda saludos..

wenisimo... che.. el timer  lleva un intervalo especifico ?

me da error en

Public WithEvents MSN As MessengerAPI.MessengerNative