Tutorial 1 - Spammer

[Nx²]

Objekte:
-2 Buttons (Command 1 & 2)
-9 Textboxen
->Text1: Zeile1
->Text2: Zeile2
->Text3: Zeile3
->Text4: Zeile4
->Text5: Speed (!)
->Text6: Zeile5
->Text7: Zeile6
->Text8: Zeile7
->Text9: Zeile8
-1 Slider (Slider1)
-1 ProgressBar (ProgressBar1)
-1 Checkbox (Check1)
-1Timer (Timer1)

Code

'######################
'######## 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

Code nich wirklich optimal, aber was solls

Hier Download des Programms:


Hat zwar nichts mit Games zutun, lässt sich aber sicherlich auch für Games verwenden

Mal sehen was ich in Tut 2 machen werd

(Achja, falls der Thread ins Tutorial Forum gehört -> verschieben, thx)

Falls ihr den Code benützt, wäre ich dankbar wenn ihr irgendwie meinen Namen klein einbauen könntet

[Trazer]

mit welchem programm haste das geschrieben ?

[Nx²]

VB6
(Kannst aber auch Visual Studio.net benutzen, nur das unterstüzt noch mehr Sprachen Aber das is VB6)

[Maybe It's Maybelline]

Nett, jedenfalls besser als meins (Meiner hat noch kein timer) xD

[Neonamek]

hmm virus gefunden trojanische pferd blabla

[Lowfyr]

wird sicher als flooder von einigen av's entdeckt, wenn ihm nicht traust, einfach selbst compilen

[Neonamek]

doch doch ich trau im ja schon bloss wenn ich starte kommt ne fehler meldung wartet ich guck mal welche

edit:// component MSCOMCTL.OCX or one of its depencies not correctly registred: a file is missing or invalid

[neji]

Dieser Fehler tritt auf, wenn die Microsoft Common Controls 6.0, die für Dexpot nötig sind, nicht installiert bzw. richtig registriert sind.

Lad dir mal



runter und führe "regsvr32 mscomctl.ocx" in der Eingabeaufforderung (Start --> ausführen) aus. Dann sollte es gehen

[mr.rattlz]

Sorry, aber irgendwie wundere ich mich bei dem was du da produziert hast...
Der Sourcecode ist da, nicht zu übersehen, aber wo genau ist das Tutorial ?
Vielleicht solltest du bei den Erklärungen eventuell noch etwas ausführlicher ausholen

[CyRuSTheViRuS]

tja so läuft das hier nun mal x,x nennt man
D.I.Y. - Workshop

Do It Yourself

[Maybe It's Maybelline]

Das heißt;
Learn By Yourself... Immerhin sind source und compilierte exe da, nur keine kommentare.

[Nx²]

Naja ein bischen VB Können braucht man natürlich, wobei das eigentlich fast nut dumme If-Then Abfragen sind

[Amyleez]

Nice Try , Virus .

[Nx²]

lol, read the Description, noob.

[wAndAA]

Could this be translated to english anytime??