|
| Autor |
Nachricht |
burak_power_
Tutorial Leser
Anmeldedatum: 15.03.2008
Beiträge: 36
Wohnort: C:\Wohnort.dat
|
Flooder frage
Verfasst am: 02.04.2008, 18:48 |
|
|
Schon voraus zu erwähnen:
Bin ziemlich neu im VB6 Geschäft 
Aber konnte mir einen simplen Flooder (ganz ALLEINE! *stolz bin xD*) coden.
Nun die Frage:
Wie kann ich OptionButtons einbauen, die die flood Geschwindigkeit bestimmen?
Mein flooder:
| Code: | Private Sub Command1_Click()
Timer2.Enabled = True
End Sub
Private Sub Command2_Click()
Timer2.Enabled = False
Timer1.Enabled = False
End Sub
Private Sub Timer1_Timer()
SendKeys (Text1.Text)
SendKeys ("{enter}")
End Sub
Private Sub Timer2_Timer()
Timer1.Enabled = True
End Sub
|
|
|
| |
|
 |
^^kev####_
Tutorial Leser
Anmeldedatum: 07.06.2007
Beiträge: 28
Wohnort: Haan
|
Verfasst am: 02.04.2008, 18:54 |
|
|
Du musst den Value Wert auslesen 
Wenn es makiert ist hat es den wert 1 (true) oder deaktivert 0 (false)
| Code: |
If Option1.Value = True Then
'...
End If
If Option2.Value = True Then
'...
End If
If Option3.Value = True Then
'...
End If
If Option4.Value = True Then
'...
End If
|
|
|
| |
|
|
burak_power_
Tutorial Leser
Anmeldedatum: 15.03.2008
Beiträge: 36
Wohnort: C:\Wohnort.dat
|
Verfasst am: 02.04.2008, 19:04 |
|
|
Verstehe ich jetzt ned ganz (tut mir leid)  |
|
| |
|
|
sollniss_
Coder
Anmeldedatum: 08.09.2007
Beiträge: 212
|
Verfasst am: 02.04.2008, 19:21 |
|
|
mach ne textbox mit der zeit in millisekunden rein und denn:
| Code: | Private Sub Command1_Click()
timer2.interval = textbox1.text
Timer2.Enabled = True
End Sub |
http://sollniss.1x.to/
 |
|
| |
|
|
burak_power_
Tutorial Leser
Anmeldedatum: 15.03.2008
Beiträge: 36
Wohnort: C:\Wohnort.dat
|
Verfasst am: 02.04.2008, 19:30 |
|
|
| sollniss hat Folgendes geschrieben: | mach ne textbox mit der zeit in millisekunden rein und denn:
| Code: | Private Sub Command1_Click()
timer2.interval = textbox1.text
Timer2.Enabled = True
End Sub |
|
Cool! Klappt wunderbar! 
Dankeschön.
Aber könnte ich auch die Variante mit den Optionboxen sehen? Wäre sehr froh!
Aber dein Vorschlag ist super. Danke nochmals!
Edit: Eigentlich wollte ich, wenn man die Millisekunden eingibt, dass es in z.b 1 sekunden abstand immer den text abschickt und nicht das es nach 1 sek anfängt zu flooden :S |
|
| |
|
|
boehser enkel_
Tutorial Leser
Anmeldedatum: 29.07.2007
Beiträge: 40
|
Verfasst am: 02.04.2008, 20:06 |
|
|
Naja wenn ein optionbutton aktiviert hat besitzt die eigenschaft den wert (value) 1 andernfalls 0 mit if überprüfst du dann ob er aktiviert is und setzt dann den timerintervall auf den bestimmten wert
| Code: | If opt60msek.Value = True Then
timer.value=60
End If |
|
|
| |
|
|
sollniss_
Coder
Anmeldedatum: 08.09.2007
Beiträge: 212
|
Verfasst am: 02.04.2008, 20:08 |
|
|
hab ich wol den falschen timer genommen:
| Zitat: | Private Sub Command1_Click()
timer1.interval = textbox1.text
Timer2.Enabled = True
End Sub |
http://sollniss.1x.to/
|
|
| |
|
|
burak_power_
Tutorial Leser
Anmeldedatum: 15.03.2008
Beiträge: 36
Wohnort: C:\Wohnort.dat
|
Verfasst am: 03.04.2008, 05:41 |
|
|
sollniss
deins klappt wunderbar jetzt!
aber böhser enkel..
funzt iwie ned.. ;(
oder ich schaff das ned, obwohls so leicht ist  x]
Kann mir es jemand in den code einbinden? also das mit dem optionbutton?
das is mein code im mom und der optionbutton heisst Option1
| Code: | Private Sub Command1_Click()
Timer1.Interval = Text2.Text
Timer2.Enabled = True
End Sub
Private Sub Command2_Click()
Timer2.Enabled = False
Timer1.Enabled = False
End Sub
Private Sub Timer1_Timer()
SendKeys (Text1.Text)
SendKeys ("{enter}")
End Sub
Private Sub Timer2_Timer()
Timer1.Enabled = True
End Sub
|
mfg ;( |
|
| |
|
|
christopher.g_
Tutorial Leser
Anmeldedatum: 10.12.2007
Beiträge: 72
|
Verfasst am: 03.04.2008, 10:04 |
|
|
hi burak power
ich hab mir ja auch schon mal einen flooder geschrieben
und optisch find ich eine scrollbar schöner
und naja der code ist auch nicht schwer...
naja ich hab mir gedacht wenn es dich interessiert dann
| Code: |
Private Sub Form_load()
hscroll.max = 6000 'später dann 6 sekunden
End Sub
Private Sub Command1_Click()
Timer2.Enabled = True
End Sub
Private Sub Command2_Click()
Timer2.Enabled = False
Timer1.Enabled = False
End Sub
Private Sub Timer1_Timer()
SendKeys (Text1.Text)
SendKeys ("{enter}")
End Sub
Private Sub Timer2_Timer()
Timer1.Enabled = True
End Sub
Private Sub HScroll_Change()
Timer1.interval = HScroll.Value
End Sub
|
naja jetzt kannst du den timer ein bisschen genauer einstellen
aber sonst
hier der code mit den optionbuttons
| Code: |
Private Sub Command1_Click()
If Option1.value = True then
Timer1.interval = 500
Else if Option2.value = True then
Timer1.interval = 1000
End if
Timer2.Enabled = True
End Sub
Private Sub Command2_Click()
Timer2.Enabled = False
Timer1.Enabled = False
End Sub
Private Sub Timer1_Timer()
SendKeys (Text1.Text)
SendKeys ("{enter}")
End Sub
Private Sub Timer2_Timer()
Timer1.Enabled = True
End Sub |
remember:
ein wahrer freund ersticht dich von vorne |
|
| |
|
|
burak_power_
Tutorial Leser
Anmeldedatum: 15.03.2008
Beiträge: 36
Wohnort: C:\Wohnort.dat
|
Verfasst am: 03.04.2008, 11:28 |
|
|
Ok danke dir 
Klappt wunderbar.
Danke euch viel mals
Stelle dann meinen Flooder zur Schau
edit:
Habe den genommen, bei der man die geschwindigkeit selber eingeben kann^^
hier zum testen
http://buru.bplaced.net/Flooder.rar |
|
| |
|
|
Registrieren
Login
