Register for your free account! | Forgot your password?

Go Back   elitepvpers > Coders Den > .NET Languages
You last visited: Today at 12:19

  • Please register to post and access all features, it's quick, easy and FREE!

 

VB Problem code Bitte um hilfe

Reply
 
Old   #1
 
elite*gold: 11
Join Date: Feb 2010
Posts: 1,352
Received Thanks: 388
VB Problem code Bitte um hilfe

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
Attached Files
File Type: txt Spammer Fehler Code.txt (4.4 KB, 9 views)



-20-Sawboy-20- is offline  
Old   #2
 
elite*gold: 0
Join Date: May 2009
Posts: 41
Received Thanks: 13
statt runde klamme versuchs mal mit geschweifter Klammer:

sendkeys.send("{ENTER}")


Elite-1337 is offline  
Thanks
1 User
Old   #3
 
elite*gold: 11
Join Date: Feb 2010
Posts: 1,352
Received Thanks: 388
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
-20-Sawboy-20- is offline  
Old   #4
 
elite*gold: 0
Join Date: May 2009
Posts: 41
Received Thanks: 13
hab bisher net gemacht aber versuch mal folgendes:

TimerX.Intervall = 1000 'gleich 1 sekunde

das X steht für die zahl des Timers


Elite-1337 is offline  
Thanks
1 User
Old   #5
 
elite*gold: 11
Join Date: Feb 2010
Posts: 1,352
Received Thanks: 388
Das geht nicht hmmm komisch

Timer1.Intervall = 1000

Fehler 1 "Intervall" ist kein Member von "System.Windows.Forms.Timer"
-20-Sawboy-20- is offline  
Old   #6
 
elite*gold: 0
Join Date: May 2009
Posts: 41
Received Thanks: 13
Schreibfehler von mir:

Timer1.Interval = 1000 'also nur ein L
Elite-1337 is offline  
Thanks
1 User
Old   #7
 
elite*gold: 11
Join Date: Feb 2010
Posts: 1,352
Received Thanks: 388
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
-20-Sawboy-20- is offline  
Old   #8
 
elite*gold: 0
Join Date: Aug 2007
Posts: 4,044
Received Thanks: 2,549
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.
Rainvair is offline  
Thanks
1 User
Old   #9
 
elite*gold: 0
Join Date: Apr 2010
Posts: 1,305
Received Thanks: 936
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
Cash² is offline  
Thanks
1 User
Old   #10
 
elite*gold: 11
Join Date: Feb 2010
Posts: 1,352
Received Thanks: 388
**** dank dir cash²

geht jetzt

Closen bitte


-20-Sawboy-20- is offline  
Reply



« Previous Thread | Next Thread »

Similar Threads
Server Problem bitte helft Leute bitte brauche eure hilfe sauu dringen
Hi leute wenn man seinen server ya on bringt (ned das erste mal das ich ihn on bring) dann kommt am ende ya immer das operation timed out 7 mal aber...
20 Replies - Metin2 PServer - Discussions / Questions
Ak 47 SW Problem Bitte um Hilfe !
Hallo Ich habe ein Problem, Ich habe mir vor kurzem die Ak 47 SW im G1 Shop gekauft war alles perfekt doch seit gestern zieht sie beim gegner kein...
4 Replies - WarRock
Problem Hilfe BITTE
Hey ich kann die Rates bei meinem server ned umstellen mit dem was ich in den chat schreiben muss passiert nix gibts noch ne andre möglichkeit?? ...
3 Replies - Metin2 PServer - Discussions / Questions
WR- Problem - BITTE UM HILFE !
hi ich hab ein wr problem also wenn ich grade aufjemand schiese und dann kurz daneben schiese hört die waffe IMMER auf zu schiesen also muss ich...
14 Replies - WarRock
Problem hilfe bitte?
Hi habe ein problem Spiele ja mit der chinesichen exe weil die deutsche im moment nicht geht und hänge in der zin grotte fest mit meinen cheat bei...
0 Replies - Metin2 Main - Discussions / Questions



All times are GMT +1. The time now is 12:19.


Powered by vBulletin®
Copyright ©2000 - 2017, Jelsoft Enterprises Ltd.
SEO by vBSEO ©2011, Crawlability, Inc.

Support | Contact Us | FAQ | Advertising | Privacy Policy | Abuse
Copyright ©2017 elitepvpers All Rights Reserved.