Simple Msn Flooder by br00t

Private Sub cmd_stop Click()

'Hier deaktivieren wir beide Timer, sodass beim Klicken des Buttons der Flood aufhört!

Timer1.Enabled = False
Timer2.Enabled = False

End Sub

Private Sub cmd_exit Click()

'Der Button beendet das Programm!

End

End Sub

Private Sub cmd_flood Click()

'Der eigentliche Flood Button! Hier brauchen wir als erstes eine If Anweisung, die uns überprüft, ob überhaupt ein Text eingegeben wurde, da wir ja sonst nichts kopieren könnten!

If txt_input.Text = "" Then

'Ich mach noch eine kleine Fehlernachricht rein!
Call MsgBox ("Kein Text eingegeben!",vbCritical, "Fehler")

Else

'Und falls ein gültiger Text eingegeben wurde kommt diese Nachricht!
Call MsgBox ("Flood wird in 5 Sekunden gestartet!", vbInformation, "Flooder)

'Die If Anweisung wird geschloßen
End If

'Und jetzt müssen wir noch den ersten Timer (Timer 1; 5 Sekunden) aktivieren!
Timer1.Enabled = True

End Sub

Private Sub Timer1_Timer()

'Hier aktivieren wir den 2. Timer!
Timer2.Enabled = True

End Sub

Private Sub Timer2_Timer()

'Hier kommt jetzt das eigentliche Flooding!
'Unser Timer nimmt den oben eingegebenen Text, fügt ein Enter zum absenden hinzu und kopiert es!

'Als erstes brauchen wir den Text..
SendKeys (txt_input.Text)
'Und dann noch das Enter hinten dran!
SendKeys ("{Enter}")

'Das wars auch schon, mehr brauchen wir nicht!

End Sub