Hallo Leute, ich will anfangen zu coden, daher fange ich mal klein an und habe einen Spambot gemacht, nichts besonderes.
Download (AutoIt)
Virus Total
Download (VB 2010)
Virus Total
Ich freue mich natürlich immer über Thanks und kleine Spenden.
Sources:
VB 2010
Quote:
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
Quote:
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
|
