Tutorial 1 - Spammer

'######################
'######## By Nx2 #########
'######################

Private Sub Command1_Click()
Dim speed
speed = Text5.Text
Timer1.Interval = speed
MsgBox "Ins Fenster wechseln!"
'### Objekte werden fürs Spammen deaktiviert
Timer1.Enabled = True
Command2.Enabled = True
Command1.Enabled = False
Text1.Enabled = False
Text2.Enabled = False
Text3.Enabled = False
Text4.Enabled = False
Text5.Enabled = False
Text6.Enabled = False
Text7.Enabled = False
Text8.Enabled = False
Text9.Enabled = False
End Sub

Private Sub Command2_Click()
'### Nach dem Spammen die Objekte wieder aktivieren
Timer1.Enabled = False
Command2.Enabled = False
Command1.Enabled = True
Text1.Enabled = True
Text2.Enabled = True
Text3.Enabled = True
Text4.Enabled = True
Text5.Enabled = True
Text6.Enabled = True
Text7.Enabled = True
Text8.Enabled = True
Text9.Enabled = True
End Sub

Private Sub Slider1_Click()
Dim speed
'### Speed wird vom Slider auf die Textbox übertragen
speed = Slider1.Value
Text5.Text = (speed)
End Sub

Private Sub Text5_Change()
'### Warnung, wenn der Speed unter 200 ist
If Text5.Text < 200 Then
MsgBox "Warnung: Das System kann sehr instabil werden!"
End If
Dim Spped2
Spped2 = Text5.Text
If Text5.Text = "" Then
Slider1.Value = "0"
GoTo Ende
End If
Slider1.Value = (Spped2)
Ende:
End Sub

Private Sub Timer1_Timer()
ProgressBar1.Value = 0
Dim test1
Dim test2
Dim test3
Dim test4
Dim test5
Dim test6
Dim test7
Dim test8

test1 = Text1.Text
test2 = Text2.Text
test3 = Text3.Text
test4 = Text4.Text
test5 = Text6.Text
test6 = Text7.Text
test7 = Text8.Text
test8 = Text9.Text

'### If Check1.Value = 1 - da wird kontrolliert ob Messager oder Chat
ProgressBar1.Value = 0
SendKeys (test1)
If Check1.Value = 1 Then
SendKeys "({tab})"
End If
SendKeys "({enter})"
SendKeys (test2)
If Check1.Value = 1 Then
SendKeys "({tab})"
End If
SendKeys "({enter})"
SendKeys (test3)
If Check1.Value = 1 Then
SendKeys "({tab})"
End If
SendKeys "({enter})"
SendKeys (test4)
If Check1.Value = 1 Then
SendKeys "({tab})"
End If
SendKeys "({enter})"
SendKeys (test5)
If Check1.Value = 1 Then
SendKeys "({tab})"
End If
SendKeys "({enter})"
SendKeys (test6)
If Check1.Value = 1 Then
SendKeys "({tab})"
End If
SendKeys "({enter})"
SendKeys (test7)
If Check1.Value = 1 Then
SendKeys "({tab})"
End If
SendKeys "({enter})"
SendKeys (test8)
If Check1.Value = 1 Then
SendKeys "({tab})"
End If
SendKeys "({enter})"
ProgressBar1.Value = 100
End Sub