Visual Basic Forum

Airwaver_ · Newbie Anmeldedatum: 11.06.2007 Beiträge: 3

Hi Leute

ich komm hier einfach nicht weiter. Ich mache grad nen Flooder für einen INet Chat, nur zu testzwecken Wink

naja und der Flooder muss halt jedesmal ne andere Nachricht schreiben.
Jetzt hab ich gedacht, er soll halt den Text in der Textbox nehmen und bei jedem durchlauf eine Zahl hintendran hängen.

Ich hab aber nicht herausgefunden wie das geht Sad

Hier mal der Quelltext:
[code]

Private Sub cmd_flood_Click()

timer_start.Enabled = True

End Sub

Private Sub timer_dergb_Timer()

SendKeys "{TAB}"

For i = 1 To 10
If i Mod 2 <> 0 Then
SendKeys (txt_gb.Text & i)
End If
Next i

SendKeys "{TAB}"
SendKeys "~"
timer_dergb.Enabled = False
timer_gbfertig.Enabled = True

End Sub

Private Sub timer_gbfertig_Timer()

SendKeys "^f"
SendKeys "Profile"
SendKeys "{ESC}"
timer_gbfertig.Enabled = False
timer_letzter.Enabled = True

End Sub

Private Sub timer_letzter_Timer()

SendKeys "^g"
SendKeys "~"
timer_letzter.Enabled = False
timer_start.Enabled = True

End Sub

Private Sub timer_nachgbneu_Timer()

SendKeys "^g"
SendKeys "~"
timer_nachgbneu.Enabled = False
timer_dergb.Enabled = True

End Sub

Private Sub timer_nachgbsuche_Timer()

SendKeys "^g"
SendKeys "~"
SendKeys "^f"
SendKeys "Neu"
SendKeys "{ESC}"

timer_nachgbsuche.Enabled = False
timer_nachgbneu.Enabled = True

End Sub

Private Sub timer_start_Timer()

SendKeys "^f"
SendKeys "Guestbook"
SendKeys "{ESC}"

timer_start.Enabled = False
timer_nachgbsuche.Enabled = True

End Sub
[/code]

Jo und wie ihr seit schreibt er sofort alles auf einmal hin ^^ aber er soll ja nach jedem durchlauf das machen und nicht auf einmal.

Danke für Eure Hilfe
Mfg Airwaver

RUNY0N_ · Tutorial Leser Anmeldedatum: 19.05.2007 Beiträge: 53

Ich hatte auch mal einen Chatflooder gecodet der die Nachrichten nummeriert,
hier ist das wichtigste aus dem Quelltext:
[code]
Dim Message As String
Dim Anzahl As Long

Private Sub Command1_Click()
Timer1.Interval = 500
Timer1.Enabled = True
End Sub

Private Sub Timer1_Timer()
Timer2.Interval = 500
Timer2.Enabled = True
Timer1.Enabled = False
End Sub

Private Sub Timer2_Timer()
Message = Text1.Text
Anzahl = Text2.Text

For i = 1 To Anzahl Step 1
Call SendKeys(Text1.Text & " /" & i)
Call SendKeys("{ENTER}", True)
Next i

Timer2.Enabled = False
End Sub
[/code]

Ich hoffe mal es hilft dir weiter.

Airwaver_ · Newbie Anmeldedatum: 11.06.2007 Beiträge: 3

Habs jetzt mal mit dem Probiert:

[code]

Private Sub timer_dergb_Timer()

SendKeys "{TAB}"

Anzahl = txt_anzahl.Text
For i = 1 To Anzahl Step 1
SendKeys (txt_gb.Text & " Eintrag:" & i)
SendKeys "{ENTER}"
Next i

SendKeys "{TAB}"
SendKeys "~"
timer_dergb.Enabled = False
timer_gbfertig.Enabled = True
[/code]

Aber mit dem funzt das auch nicht. Was mach ich nur falsch ?

Mfg Airwaver

Chickenman_ · Poster Anmeldedatum: 24.04.2007 Beiträge: 149

du könnest ein timer machen z.b der plus 1 macht

Der Flood timer

Call SendKeys(nummer & "." & otp_floodtext.text)
Call SendKeys("{enter}")

Timer Nummer der plus eins macht

Nummer = Nummer + 1

Die nachricht sieht dann so aus

1. Nachricht
2.Nachricht
3. Nachricht
4, Nachricht
usw.

du Könntes dann auch z.b nur alle 10 nachrichten eine nummerierung machen
z.b so

Wieder der normal timer für flooder

Call SendKeys(Zahl & "." & otp_floodtext.text)
Call SendKeys("{enter}")

Der timer der zähl bischen anders

Nummer = Nummer + 1

If nummer = 10 then
Prüfer = Prüfer + 1
zahl = 10 * Prüfer
nummer = 0
zahl = 0
end if

Bedeuter alle 10 Nachrichten nacht der nummer timer 10 * anzahl der 10 nachricht die schon waren

also beu 10 Nachricht = 10 * 1
bei 20 nachrichten = 10 * 2
und so weiter

nun steht das dann so

Nachricht
Nachricht
Nachricht
....
10. Nachricht
...
20.Nachricht
.

Du könntes jetzt auch z.b eine Zufall machen so das immer nur bei irgend einer
nachricht einer Nummer steht oder sich was verändern Wink

gru0