VB Problem code Bitte um hilfe

04/15/2010 20:09 -20-Sawboy-20-#1
Hallo ich wollte mir heute ein Spammer machen mit 11 TextBoxen und 11 Timer weiß nicht wie ich mein Problem beschreiben soll naja egal

mein spammer schreibt ja aber er schreib durch ohne mal enter er schreibt das enter mit der im code drin ist und da weiß ich nicht wie ich das hin bekomme das der enter macht aber kein enter schreiben soll und noch was er fängt von unten an aber ich habe so angeben das er eig von oben anfängt und das macht er auch nicht

ich hoffe auf Hilfe der Code ist im Anhang :handsdown:
04/15/2010 20:13 Elite-1337#2
statt runde klamme versuchs mal mit geschweifter Klammer:

sendkeys.send("{ENTER}")
04/15/2010 20:18 -20-Sawboy-20-#3
LoL so simpel ich komme nicht druf dank dir xD
so gemacht

My.Computer.Keyboard.SendKeys("{Enter}")

mein andres Problem kann man da keine warte zeit zwischen denn Textbox machen
04/15/2010 20:27 Elite-1337#4
hab bisher net gemacht aber versuch mal folgendes:

TimerX.Intervall = 1000 'gleich 1 sekunde

das X steht für die zahl des Timers
04/15/2010 20:55 -20-Sawboy-20-#5
Das geht nicht hmmm komisch

Timer1.Intervall = 1000

Fehler 1 "Intervall" ist kein Member von "System.Windows.Forms.Timer"
04/15/2010 21:12 Elite-1337#6
Schreibfehler von mir:

Timer1.Interval = 1000 'also nur ein L
04/15/2010 21:53 -20-Sawboy-20-#7
ups sehe ja das ich auf timer klicke und unten links steht Interval -.- aber jetzt habe ich die sende time geändert und so ist es gut aber immer noch schreiben alle 11 TextBoxen
schreiben alle gleich zeitig aber das soll es nicht

bespiel

Text=schreiben
2990=Interval=warten
text2=schreiben
2990=Interval=warten
usw

eig in Reihenfolge schreiben
04/15/2010 22:12 Rainvair#8
Ich versteh zwar nicht ganz was du willst, aber ich glaube das du nicht willst dass alle Textboxen gleichzeitig spammen. Versuchs mal so:
Pseudocode
Timer1.tick
Sendkeys (Textbox1.text)
Sleep (2990)
Sendkeys (Textbox2.text)
usw usw.
04/16/2010 17:18 Cash²#9
Hab mir mal deinen Code angeschaut.

Quote:
If TextBox1.Text = "" Then
Timer1.Start()
Timer1.Stop()
End If
Für was denn das? Brauchste doch gar nicht.

Bei dem "Start" Button musste einfach nur

Quote:
Timer1.start()
und damit der Interval selbst eingestellt werden kann/soll, dann

1 Textbox plazieren und zum "Start" Button (Code) kommt noch

Quote:
Timer1.interval = textbox1.text 'Beispiel
Ich weis jetzt nicht ob du für jeden Timer diesen Interval prägen sollst.


So weiter.

Quote:
Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
My.Computer.Keyboard.SendKeys(TextBox1.Text)
My.Computer.Keyboard.SendKeys("(Enter)")
End Sub

Private Sub Timer2_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer2.Tick
My.Computer.Keyboard.SendKeys(TextBox2.Text)
My.Computer.Keyboard.SendKeys("(Enter)")
End Sub

Private Sub Timer3_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer3.Tick
My.Computer.Keyboard.SendKeys(TextBox3.Text)
My.Computer.Keyboard.SendKeys("(Enter)")
End Sub

Private Sub Timer4_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer4.Tick
My.Computer.Keyboard.SendKeys(TextBox4.Text)
My.Computer.Keyboard.SendKeys("(Enter)")
End Sub

Private Sub Timer5_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer5.Tick
My.Computer.Keyboard.SendKeys(TextBox5.Text)
My.Computer.Keyboard.SendKeys("(Enter)")
End Sub

Private Sub Timer6_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer6.Tick
My.Computer.Keyboard.SendKeys(TextBox6.Text)
My.Computer.Keyboard.SendKeys("(Enter)")
End Sub

Private Sub Timer7_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer7.Tick
My.Computer.Keyboard.SendKeys(TextBox7.Text)
My.Computer.Keyboard.SendKeys("(Enter)")
End Sub

Private Sub Timer8_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer8.Tick
My.Computer.Keyboard.SendKeys(TextBox8.Text)
My.Computer.Keyboard.SendKeys("(Enter)")
End Sub

Private Sub Timer9_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer9.Tick
My.Computer.Keyboard.SendKeys(TextBox9.Text)
My.Computer.Keyboard.SendKeys("(Enter)")
End Sub

Private Sub Timer10_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer10.Tick
My.Computer.Keyboard.SendKeys(TextBox10.Text)
My.Computer.Keyboard.SendKeys("(Enter)")
End Sub

Private Sub Timer11_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer11.Tick
My.Computer.Keyboard.SendKeys(TextBox11.Text)
My.Computer.Keyboard.SendKeys("(Enter)")
End Sub
Änder das mal um, zu:

Quote:
Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
SendKeys.Send(textbox1.text)
SendKeys.Send("{ENTER")

Timer1.stop()
timer2.start()
End Sub

Private Sub Timer2_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer2.Tick
SendKeys.Send(textbox2.text)
SendKeys.Send("{ENTER")

Timer2.stop()
timer3.start()
End Sub

Private Sub Timer3_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer3.Tick
SendKeys.Send(textbox3.text)
SendKeys.Send("{ENTER")

Timer3.stop()
timer4.start()
End Sub

Private Sub Timer4_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer4.Tick
SendKeys.Send(textbox4.text)
SendKeys.Send("{ENTER")

Timer4.stop()
timer5.start()
End Sub

Private Sub Timer5_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer5.Tick
SendKeys.Send(textbox5.text)
SendKeys.Send("{ENTER")

Timer5.stop()
timer6.start()
End Sub

Private Sub Timer6_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer6.Tick
SendKeys.Send(textbox6.text)
SendKeys.Send("{ENTER")

Timer6.stop()
timer7.start()
End Sub

Private Sub Timer7_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer7.Tick
SendKeys.Send(textbox7.text)
SendKeys.Send("{ENTER")

Timer7.stop()
timer8.start()
End Sub

Private Sub Timer8_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer8.Tick
SendKeys.Send(textbox8.text)
SendKeys.Send("{ENTER")

Timer8.stop()
timer9.start()
End Sub

Private Sub Timer9_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer9.Tick
SendKeys.Send(textbox9.text)
SendKeys.Send("{ENTER")

Timer9.stop()
timer10.start()
End Sub

Private Sub Timer10_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer10.Tick
SendKeys.Send(textbox10.text)
SendKeys.Send("{ENTER")

Timer10.stop()
timer11.start()
End Sub

Private Sub Timer11_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer11.Tick
SendKeys.Send(textbox11.text)
SendKeys.Send("{ENTER")

Timer11.stop()
timer1.start()
End Sub
04/17/2010 00:14 -20-Sawboy-20-#10
Dick dank dir cash²

geht jetzt

Closen bitte