VB 2010 + AutoIt Spambot + Sources

[Train™]

Hallo Leute, ich will anfangen zu coden, daher fange ich mal klein an und habe einen Spambot gemacht, nichts besonderes.

Download (AutoIt)

 Spoiler

Virus Total

 Spoiler

Download (VB 2010)

 Spoiler

Virus Total

 Spoiler

Ich freue mich natürlich immer über Thanks und kleine Spenden.
Sources:
VB 2010

 Spoiler

Public Class Form1

Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
Timer1.Interval = 100
MsgBox("spammer spamt normal!")
End Sub

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Timer1.Interval = 1000
MsgBox("spammer spamt langsam!")
End Sub

Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
Timer1.Interval = 10
MsgBox("spammer spamt schnell!")
End Sub

Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
Timer1.Stop()
End Sub

Private Sub Button5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button5.Click
Timer1.Start()

End Sub

Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
SendKeys.Send(TextBox1.Text)
SendKeys.Send("{enter}")

End Sub

AutoIt

 Spoiler

HotKeySet("{F4}", "Start")
HotKeySet("{ESC}", "Stop")
$text1 = InputBox("Spam Bot", "Was soll gespamt werden?")
$text2 = InputBox("in welchem Abstand soll gespamt werden?", "1sek = 1000")
MsgBox(0, "Funktionen", "Fenster auswählen, welches zugespamt werden soll" & @CRLF & "Start=F4" & @CRLF & "Stop=ESC")
While 1
Sleep(100)
WEnd

Func start()
While 1
Send($text1)
Send("{ENTER}")
Sleep($text2)
WEnd
EndFunc

Func stop()
Exit
EndFunc

[Freddy​]

Gehört hierrein

[*~_Michi_~*]

nice thread

[iFreshx3]

Virus , der bullshit wo man Nix mehr machen kann aber er ist einfach nur billig!

Ps einfach nur den 0Temp ornder löschen!


Wenn ihr keine Anzeige haben wollt würd ichs rausnehmen!

[Kraizy​]

Originally Posted by iFreshx3

Virus , der bullshit wo man Nix mehr machen kann aber er ist einfach nur billig!

Ps einfach nur den 0Temp ornder löschen!


Wenn ihr keine Anzeige haben wollt würd ichs rausnehmen!

Hast wohl nichts besseres zu tun als solche nutzlosen, alten Threads aus dem Grab zu holen was?