VB 6.0 Tutorial - Crear FlooderTutorial de como hacer un flooder que se active al presionar los botones del F1 al F12. VideoTutorial By Ariakas Msn: Puporing@Hotmail.Com - Por Cualquier Duda Sobre El Programa. Pss: Hice Este VideoTutorial Por Que Muchas Personas Hacen Sus Flooders Con Botones Y Es Más Comodo Hacerlo Con Las Teclas F1, F2, F3, F4, F5, F6, F7, F8, F9, F10, F11 Y F12. Codigo Del Programa: Solo copien y peguen el codigo directamente. Private Declare Function GetKeyPress Lib "user32" Alias "GetAsyncKeyState" (ByVal key As Long) As Integer Private Sub Form_Load() Timer1.Interval = "100" End Sub Private Sub Timer1_Timer() If GetKeyPress(vbKeyF1) Then SendKeys (Text1.Text) + ("{enter}") End If If GetKeyPress(vbKeyF2) Then SendKeys (Text2.Text) + ("{enter}") End If If GetKeyPress(vbKeyF3) Then SendKeys (Text3.Text) + ("{enter}") End If If GetKeyPress(vbKeyF4) Then SendKeys (Text4.Text) + ("{enter}") End If If GetKeyPress(vbKeyF5) Then SendKeys (Text5.Text) + ("{enter}") End If If GetKeyPress(vbKeyF6) Then SendKeys (Text6.Text) + ("{enter}") End If If GetKeyPress(vbKeyF7) Then SendKeys (Text7.Text) + ("{enter}") End If If GetKeyPress(vbKeyF8) Then SendKeys (Text8.Text) + ("{enter}") End If If GetKeyPress(vbKeyF9) Then SendKeys (Text9.Text) + ("{enter}") End If If GetKeyPress(vbKeyF10) Then SendKeys (Text10.Text) + ("{enter}") End If If GetKeyPress(vbKeyF11) Then SendKeys (Text11.Text) + ("{enter}") End If If GetKeyPress(vbKeyF12) Then SendKeys (Text12.Text) + ("{enter}") End If End Sub code pour embarquer la vidéo : >>> http://www.youtube.com/embed/gmTm4wCgODE <<< |