Problem mit Flooder Verfasst am: 31.10.2007, 02:02
Hi
Also hab ein Prob mit meinem Flooder und zwar Wenn ich auf Start Flood gehe floodet er
ich kanns aber nicht beenden nen Stopp Button hab ich auch der auch funktionier jezt wollte ich fragen ob man den Button nicht einfach mir einer taste belegen kann in dem fall
z.b ESC ?
Hier mal der Source
[vb:1:26f554bbce]Private Sub command1_click()
Timer1.Enabled = False
Timer2.Enabled = False
End
End Sub
Private Sub cmd_flood_Click()
Timer2.Enabled = True
End Sub
Private Sub Timer1_Timer()
SendKeys (txt_eingabe.Text)
SendKeys ("{enter}")
End Sub
Private Sub Timer2_Timer()
Timer1.Enabled = True
End Sub
[/vb:1:26f554bbce]
Moppi™_ Newbie
Anmeldedatum: 22.07.2007 Beiträge: 4
Verfasst am: 31.10.2007, 02:15
Ich nehme mal an das Command1 der Stopp Button ist
[vb:1:0700c75876]Private Sub Form_KeyPress(KeyAscii As Integer)
If KeyAscii = 27 Then '27 steht für die ESC Taste
Timer1.Enabled=False
Timer2.Enabled=False
End If
End Sub[/vb:1:0700c75876]
Wenn du die ESC Taste drückst wird die Enabled Eigenschaft von Timer1 und Timer2 auf False gesetzt
Eine Liste der Tasten im ASCII Code findest du hier:
Zuletzt bearbeitet von P5yc|-|0_ am 31.10.2007, 03:01, insgesamt einmal bearbeitet
Moppi™_ Newbie
Anmeldedatum: 22.07.2007 Beiträge: 4
Verfasst am: 31.10.2007, 02:59
ah du machst das mit sendkeys
hmm da funktioniert das glaub ich nicht weil dazu ja die form den fokus haben muss.. ich tüftel da mal einbischen rum und meld mich wieder ^^
Blue!Sky!_ Coder
Anmeldedatum: 06.10.2007 Beiträge: 227
Verfasst am: 31.10.2007, 11:26
Mach doch so
[vb:1:b4ded19462]
Dim zaehler As Integer
Dim msg As String
Dim anz As Integer
Private Sub Command1_Click()
Timer2.Enabled = True
msg = txtNachricht.Text
Timer1.Interval = txtInterval.Text
anz = txtAnzahl.Text
zaehler = 0
End Sub
Private Sub Timer2_Timer()
Timer1.Enabled = True
Timer2.Enabled = False
Registrieren
Login
