MSN Kick - Codigo Fuente

**Admin** Miér Mar 18, 2009 5:39 pm

Bueno les dejo el codigo del famoso MSN Kick en Visual Basic 6

Código:

Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)
Private Sub CommandXP1_Click()
CommandXP1.Enabled = False
Clipboard.Clear
Clipboard.SetText "Poner aqui el simbolo :[ muchas veces!!"
AppActivate "Conversación"
Sleep "50"
For i = 1 To 300
SendKeys "^v"
SendKeys "{ENTER}"
Next i
CommandXP1.Enabled = True
End Sub

HECHOS EN LOS STUDIOS DE
MANUEL