Universal SpamBot [Open Source]

[-STORM-]

Da hier - besonders im AutoIt-Forum - andauernd nach Programmen gefragt wird, die ein paar Tasten oder irgendeinen Text senden, hab ich mir mal die Mühe gemacht, einen Bot zu machen, der beliebige Tasten, Text und Sonderzeichen an irgendein Fenster senden kann.

Außerdem bietet der noch ein paar weitere nette Features. Damit sollten eigentlich alle Anfragen diesbezüglich erledigt sein.



Features:

• Multiclient Unterstützung
  Ihr könnt beliebig viele Spambots öffnen und für jeden ein seperates Zielfenster auswählen.
• Jegliche Zugriffe werden durch die Handle der Fenster koordiniert. Diese sind eindeutig. Identische Titel stellen kein Hindernis dar.
• Background Mode
  Der SpamBot benutzt ControlSend und funktioniert somit auch minimiert, ihr könnt gleichzeitig zocken, surfen, oder was auch immer.
• beliebig viele Texte mit unterschiedlichen Wartezeiten einstellbar
  Die Zein wird in ms angegeben! 1s = 1000ms
  Leere Inputs werden automatisch übersprungen und verursachen keine Fehler.
  Das GUI ist dynamisch gestaltet, durch Klick auf + oder - können zur Laufzeit weitere Inputs hinzugefügt/entfernt werden, wobei sich automatisch die Fenstergröße anpasst.
• +Random No. / + Rising No.
  Wahlweise wird am Ende jedes Strings eine zufällige Zahl bis 1000 oder eine ansteigende Zahl hinzugefügt. Damit werden Anti-Spambot Maßnahmen einiger Spiele umgangen, die gleiche Texte in kurzem Zeitabstand sperren.
• SendKeyDelay & SendKeyDownDelay
  SendKeyDelay: Die Zeit in ms, die zwischen zwei gesendeten Zeichen gewartet wird.
  SendKeyDownDelay: Die Zeit in ms, die jedes Zeichen gedrückt gehalten wird.
  Beispiel: Ihr sendet "abc" mit SendKeyDelay = 3 und SendKeyDownDelay = 5
  <a 5ms gedrückt> <3ms warten> <b 5 ms gedrückt> <3ms warten> <c 5ms gedrückt>
  Dient der Geschwindigkeitsoptimierung. Zu niedrige Werte können zur Folge haben, dass einige Zeichen nicht ankommen.
  Default ist 5ms und sollte überall flüssig laufen. Je nach PC/Leitung/Server ist mehr drin.
• Delay Test
  Sendet 100x 7 Zeichen und stoppt dabei automatisch die benötigte Zeit. Erleichtert das Anpassen der Delays.
• Enter Chat einstellbar
  Wahlweise wird nach jedem Text Enter gesendet, um eine Chateingabe abzuschicken.
• Flag einstellbar - beliebige Tasten möglich
  Default (Checkbox nicht aktiviert) heißt, der Text wird "roh" gesendet, also ganz normal wie er da steht.
  Aktiviert ihr die Checkbox, könnt ihr besondere Tasten wie z.B. die F-Tasten, Shift, Tab etc. senden. Die entsprechenden Codes dafür sind unten aufgelistet.
  Enter Chat ist dabei automatisch deaktiviert, kann aber per {ENTER} manuell gesendet werden.

Fenster auswählen
Damit der Bot für jedes beliebige Spiel funktioniert, könnt ihr manuell ein Zielfenster auswählen.
Dafür einfach den Select-Button drücken und mit dem nächsten Klick das geöffnete Fenster wählen.
Anschließend werden Fenstertitel, ProcessID und WindowHandle angezeigt. Reicht euch das nicht für eine eindeutige Bestimmung, drückt den Open-Button und das ausgewählte Fenster wird in den Vordergrund geholt.

Codes bei aktivierter Flag:

 Spoiler

Sonderzeichen:
Diese Zeichen beziehen sich immer auf die jeweils folgenden Zeichen, die dann mit den entsprechenden Sondertasten gleichzeitig gedrückt werden.

• ! = ALT
• # = WINDOWS
• + = SHIFT
• ^ = STRG / CTRL

Beispiel "^a" sendet Strg+a.
Möchtet ihr trotz aktivierter Flag eines dieser zeichen roh senden, müsst ihr es zwischen {} setzen. Möchtet ihr { oder } roh senden, dann {{} bzw. {}}.
Die geschweiften Klammern bieten eine Vielzahl weiterer Tasten, worunter die wohl interessantesten {F1} bis {F12} sind. Damit könn ihr beispielsweise Skills in Games ausführen.

{SPACE} 			SPACE
{ENTER} 			ENTER key on the main keyboard
{ALT} 				ALT
{BACKSPACE} or {BS} 		BACKSPACE
{DELETE} or {DEL} 		DELETE
{UP} 				Up arrow
{DOWN}			 	Down arrow
{LEFT} 				Left arrow
{RIGHT} 			Right arrow
{HOME}			 	HOME
{END} 				END
{ESCAPE} or {ESC} 		ESCAPE
{INSERT} or {INS} 		INS
{PGUP} 				PageUp
{PGDN}			 	PageDown
{F1} - {F12} 			Function keys
{TAB} 				TAB
{PRINTSCREEN} 			Print Screen key
{LWIN} 				Left Windows key
{RWIN} 				Right Windows key
{NUMLOCK on} 			NUMLOCK (on/off/toggle)
{CAPSLOCK off} 			CAPSLOCK (on/off/toggle)
{SCROLLLOCK toggle} 		SCROLLLOCK (on/off/toggle)
{BREAK} 			for Ctrl+Break processing
{PAUSE} 			PAUSE
{NUMPAD0} - {NUMPAD9} 		Numpad digits
{NUMPADMULT} 			Numpad Multiply
{NUMPADADD} 			Numpad Add
{NUMPADSUB} 			Numpad Subtract
{NUMPADDIV} 			Numpad Divide
{NUMPADDOT} 			Numpad period
{NUMPADENTER} 			Enter key on the numpad
{APPSKEY} 			Windows App key
{LALT} 				Left ALT key
{RALT} 				Right ALT key
{LCTRL} 			Left CTRL key
{RCTRL} 			Right CTRL key
{LSHIFT} 			Left Shift key
{RSHIFT} 			Right Shift key
{SLEEP} 			Computer SLEEP key
{ALTDOWN} 			Holds the ALT key down until {ALTUP} is sent
{SHIFTDOWN} 			Holds the SHIFT key down until {SHIFTUP} is sent
{CTRLDOWN} 			Holds the CTRL key down until {CTRLUP} is sent
{LWINDOWN} 			Holds the left Windows key down until {LWINUP} is sent
{RWINDOWN} 			Holds the right Windows key down until {RWINUP} is sent
{ASC nnnn} 			Send the ALT+nnnn key combination
{BROWSER_BACK} 			2000/XP Only: Select the browser "back" button
{BROWSER_FORWARD} 		2000/XP Only: Select the browser "forward" button
{BROWSER_REFRESH} 		2000/XP Only: Select the browser "refresh" button
{BROWSER_STOP} 			2000/XP Only: Select the browser "stop" button
{BROWSER_SEARCH} 		2000/XP Only: Select the browser "search" button
{BROWSER_FAVORITES} 		2000/XP Only: Select the browser "favorites" button
{BROWSER_HOME} 			2000/XP Only: Launch the browser and go to the home page
{VOLUME_MUTE} 			2000/XP Only: Mute the volume
{VOLUME_DOWN} 			2000/XP Only: Reduce the volume
{VOLUME_UP} 			2000/XP Only: Increase the volume
{MEDIA_NEXT} 			2000/XP Only: Select next track in media player
{MEDIA_PREV} 			2000/XP Only: Select previous track in media player
{MEDIA_STOP} 			2000/XP Only: Stop media player
{MEDIA_PLAY_PAUSE} 		2000/XP Only: Play/pause media player
{LAUNCH_MAIL} 			2000/XP Only: Launch the email application
{LAUNCH_MEDIA} 			2000/XP Only: Launch media player
{LAUNCH_APP1} 			2000/XP Only: Launch user app1
{LAUNCH_APP2} 			2000/XP Only: Launch user app2

Bugs:
Keine bekannt.
Falls ihr welche findet, ausführlich (!) hier melden. Dazu gehört verwendetes Betriebssystem, Zielprogramm, genau Beschreibung des Fehlers und unter Umständen Screenshots oder ein Video.
Sätze wie "es läuft nicht." machen jegliche Hilfe unmöglich.

Geplante Änderungen:
Vorerst keine.

History:

• noch keine Updates

Source:

 Spoiler

Hier der komplette Source Code des Spambots:

 Spoiler

#NoTrayIcon
#RequireAdmin
#region ;**** Directives created by AutoIt3Wrapper_GUI ****
#AutoIt3Wrapper_UseUpx=n
#AutoIt3Wrapper_Res_Comment=by -STORM-
#AutoIt3Wrapper_Res_Description=StormSpammer
#AutoIt3Wrapper_Res_LegalCopyright=© by -STORM-
#AutoIt3Wrapper_Res_requestedExecutionLevel=requireAdministrator
#endregion ;**** Directives created by AutoIt3Wrapper_GUI ****
Opt("GUIOnEventMode", 1)
Opt("GUIResizeMode", 802)

Global $amount = 1
#region ### GUI Section ###
Global $gui = GUICreate("Universal SpamBot by -STORM-", 400, 265 + $amount * 25)
GUISetOnEvent(-3, "_exit")
GUISetBkColor(0xFFFFFF, $gui)
Global $startstopbutton = GUICtrlCreateButton("START", 10, 10, 90, 35)
GUICtrlSetFont($startstopbutton, 13)
GUICtrlSetOnEvent($startstopbutton, "_startstop")
Global $statuslabel = GUICtrlCreateLabel("Please Select Window!                          ", 120, 20)
GUICtrlSetFont($statuslabel, 11)
Global $selectwinbutton = GUICtrlCreateButton("Select", 310, 10)
GUICtrlSetOnEvent($selectwinbutton, "_selectwin")
Global $openwindowbutton = GUICtrlCreateButton("Open", 360, 10)
GUICtrlSetOnEvent($openwindowbutton, "_openwin")

Global $windowgroup = GUICtrlCreateGroup("Window", 10, 50, 380, 90)
GUICtrlSetFont($windowgroup, 11)
Global $winpidlabel = GUICtrlCreateLabel("PID:                                                                                                                 ", 20, 75)
Global $winhandlelabel = GUICtrlCreateLabel("Handle:                                                                                                            ", 20, 95)
Global $wintitlelabel = GUICtrlCreateLabel("Title:                                                                                                                ", 20, 115)

Global $optiongroup = GUICtrlCreateGroup("Advanced Options", 10, 145, 380, 45)
GUICtrlSetFont($optiongroup, 11)
GUICtrlCreateLabel("SendKeyDelay", 20, 165)
Global $sendkeydelayinput = GUICtrlCreateInput("5", 100, 164, 30, 17)
GUICtrlCreateLabel("SendKeyDownDelay", 145, 165)
Global $sendkeydowndelayinput = GUICtrlCreateInput("5", 250, 164, 30, 17)
Global $testdelay = GUICtrlCreateButton("Test", 330, 158, 50)
GUICtrlSetOnEvent($testdelay, "_testdelay")

Global $spamgroup = GUICtrlCreateGroup("Spam             ", 10, 195, 380, 55 + $amount * 25)
Global $amountincbutton = GUICtrlCreateButton(" + ", 60, 194, 20, 20)
GUICtrlSetOnEvent($amountincbutton, "_amountinc")
Global $amountdecbutton = GUICtrlCreateButton(" - ", 85, 194, 20, 20)
GUICtrlSetOnEvent($amountdecbutton, "_amountdec")
GUICtrlSetResizing($spamgroup, 102)
GUICtrlSetFont($spamgroup, 11)
GUICtrlCreateLabel("Text", 20, 217)
Global $enterchatcheck = GUICtrlCreateCheckbox("+ Enter", 50, 213)
GUICtrlSetState($enterchatcheck, 1)
Global $randomnumbercheck = GUICtrlCreateCheckbox("+ Random No.", 110, 213)
Global $risingnumbercheck = GUICtrlCreateCheckbox("+ Rising No.", 200, 213)
GUICtrlSetState($risingnumbercheck, 1)
GUICtrlCreateLabel("Time (ms)", 290, 217)
GUICtrlCreateLabel("Flag", 355, 217)
Dim $textinput[$amount]
Dim $timeinput[$amount]
Dim $flagcheck[$amount]
For $i = 0 To $amount - 1
	$textinput[$i] = GUICtrlCreateInput("", 20, 240 + $i * 25, 250, 20)
	$timeinput[$i] = GUICtrlCreateInput("", 290, 240 + $i * 25, 50, 20)
	$flagcheck[$i] = GUICtrlCreateCheckbox("", 357, 236 + $i * 25, Default, 30)
Next
GUISetState(@SW_SHOW, $gui)
#endregion ### GUI Section ###

#region ### Define Vars ###
Global $active = False
Global $winselected = False

Dim $text[$amount]
Dim $time[$amount]
Dim $flag[$amount]

Global $winpid, $winhandle, $wintitle

Global $sendkeydelay = 5, $sendkeydowndelay = 5

Global $randomnumberon, $risingnumberon
Dim $risingnumber[$amount]
For $i = 0 To $amount - 1
	$risingnumber[$i] = 0
Next
#endregion ### Define Vars ###

While 1
	#region ### Window Handling ###
	If Not $winselected Then
		$winpid = ""
		$winhandle = ""
		$wintitle = ""
		If GUICtrlRead($statuslabel) <> "Please Select Window!" Then
			GUICtrlSetData($statuslabel, "Please Select Window!")
			GUICtrlSetColor($statuslabel, 0xFF0000)
		EndIf
	EndIf

	If Not WinExists($winhandle) Then $winselected = False

	If GUICtrlRead($winpidlabel) <> "PID: " & $winpid Then GUICtrlSetData($winpidlabel, "PID: " & $winpid)
	If GUICtrlRead($winhandlelabel) <> "Handle: " & $winhandle Then GUICtrlSetData($winhandlelabel, "Handle: " & $winhandle)
	If GUICtrlRead($wintitlelabel) <> "Title: " & $wintitle Then GUICtrlSetData($wintitlelabel, "Title: " & $wintitle)
	#endregion ### Window Handling ###
	#region ### Read GUI Data ###
	For $i = 0 To $amount - 1
		$text[$i] = GUICtrlRead($textinput[$i])
		$time[$i] = Int(GUICtrlRead($timeinput[$i]))
		$flag[$i] = GUICtrlRead($flagcheck[$i])
		If $flag[$i] = 1 Then
			$flag[$i] = 0
		Else
			$flag[$i] = 1
		EndIf
	Next

	$enterchaton = GUICtrlRead($enterchatcheck)
	$randomnumberon = GUICtrlRead($randomnumbercheck)
	$risingnumberon = GUICtrlRead($risingnumbercheck)

	If $sendkeydelay <> GUICtrlRead($sendkeydelayinput) Then
		$sendkeydelay = GUICtrlRead($sendkeydelayinput)
		Opt("SendKeyDelay", $sendkeydelay)
	EndIf
	If $sendkeydowndelay <> GUICtrlRead($sendkeydowndelayinput) Then
		$sendkeydowndelay = GUICtrlRead($sendkeydowndelayinput)
		Opt("SendKeyDownDelay", $sendkeydowndelay)
	EndIf
	#endregion ### Read GUI Data ###
	#region ### Spam ###
	While $active
		If WinExists($winhandle) Then
			For $i = 0 To $amount - 1
				If $text[$i] <> "" Then
;~ 					If $enterchaton = 1 And $flag[$i] = 1 Then ControlSend($winhandle, "", "", "{ENTER}")
					ControlSend($winhandle, "", "", $text[$i], $flag[$i])
					If $randomnumberon = 1 Then
						ControlSend($winhandle, "", "", " " & Random(0, 1000, 1))
					EndIf
					If $risingnumberon = 1 Then
						ControlSend($winhandle, "", "", " " & $risingnumber[$i])
						$risingnumber[$i] += 1
					EndIf
					If $enterchaton = 1 And $flag[$i] = 1 Then ControlSend($winhandle, "", "", "{ENTER}")
;~ 					If $flag[$i] = 1 Then ControlSend($winhandle, "", "", "{ENTER}")
				EndIf
				If $time[$i] > 0 Then Sleep($time[$i])
			Next
		Else
			$winselected = False
			_startstop()
		EndIf
	WEnd
	#endregion ### Spam ###
	Sleep(50)
WEnd

Func _startstop()
	$active = Not $active
	If $active Then
		GUICtrlSetData($startstopbutton, "STOP")
	Else
		GUICtrlSetData($startstopbutton, "START")
	EndIf
EndFunc   ;==>_startstop

Func _selectwin()
	While 1
		If _IsPressed("01") Then
			Sleep(30)
			ExitLoop
		EndIf
	WEnd
	$winhandle = WinGetHandle("")
	$winpid = WinGetProcess($winhandle)
	$wintitle = WinGetTitle($winhandle)
	$winselected = True
	GUICtrlSetData($statuslabel, "Window Selected")
	GUICtrlSetColor($statuslabel, 0x006400)
	GUICtrlSetData($winpidlabel, "PID: " & $winpid)
	GUICtrlSetData($winhandlelabel, "Handle: " & $winhandle)
	GUICtrlSetData($wintitlelabel, "Title: " & $wintitle)
EndFunc   ;==>_selectwin

Func _openwin()
	WinActivate($winhandle)
EndFunc   ;==>_openwin

Func _testdelay()
	$testdelaytimer = TimerInit()
	$rand = Random(1000, 9999, 1)
	For $i = 100 To 199
;~ 		ControlSend($winhandle, "", "", "{ENTER}")
		ControlSend($winhandle, "", "", $rand & $i, 1)
		ControlSend($winhandle, "", "", "{ENTER}")
	Next
	$testdelaytime = Round(TimerDiff($testdelaytimer) / 1000, 3)
	MsgBox(0, "Delay Test", 'Sent 7 characters 100 times in ' & $testdelaytime & ' seconds.' & @CRLF & 'SendKeyDelay:' & @TAB & @TAB & $sendkeydelay & @CRLF & 'SendKeyDownDelay:' & @TAB & @TAB & $sendkeydowndelay)
EndFunc   ;==>_testdelay

Func _IsPressed($sHexKey, $vDLL = 'user32.dll')
	Local $a_R = DllCall($vDLL, "short", "GetAsyncKeyState", "int", '0x' & $sHexKey)
	If @error Then Return SetError(@error, @extended, False)
	Return BitAND($a_R[0], 0x8000) <> 0
EndFunc   ;==>_IsPressed

Func _GetHwndFromPID($pid)
	Local $i, $winlist = WinList()
	For $i = 1 To $winlist[0][0]
		If WinGetProcess($winlist[$i][1]) = $pid And $winlist[$i][0] <> "" Then Return $winlist[$i][1]
	Next
	Return
EndFunc   ;==>_GetHwndFromPID

Func _exit()
	Exit
EndFunc   ;==>_exit

#region ### New v2 Funcs ### ; change $amount -> more/less inputs, automatically adjusting winsize and groupsize
Func _amountdec()
	If $amount > 1 Then
		GUICtrlDelete($textinput[$amount - 1])
		GUICtrlDelete($timeinput[$amount - 1])
		GUICtrlDelete($flagcheck[$amount - 1])
		Local $WinPos = WinGetPos($gui)
		WinMove($gui, "", Default, Default, Default, $WinPos[3] - 25)
		$amount -= 1
		_amountredim()
	EndIf
EndFunc   ;==>_amountdec

Func _amountinc()
	$amount += 1
	_amountredim()
	Local $WinPos = WinGetPos($gui)
	WinMove($gui, "", Default, Default, Default, $WinPos[3] + 25)
	$textinput[$amount - 1] = GUICtrlCreateInput("", 20, 240 + ($amount - 1) * 25, 250, 20)
	$timeinput[$amount - 1] = GUICtrlCreateInput("", 290, 240 + ($amount - 1) * 25, 50, 20)
	$flagcheck[$amount - 1] = GUICtrlCreateCheckbox("", 357, 237 + ($amount - 1) * 25, 20, 30)
EndFunc   ;==>_amountinc

Func _amountredim()
	ReDim $textinput[$amount]
	ReDim $timeinput[$amount]
	ReDim $flagcheck[$amount]
	ReDim $text[$amount]
	ReDim $time[$amount]
	ReDim $flag[$amount]
	ReDim $risingnumber[$amount]
EndFunc   ;==>_amountredim
#endregion ### New v2 Funcs ### ; change $amount -> more/less inputs, automatically adjusting winsize and groupsize

Was darf damit gemacht werden?
Was ihr wollt. Ihr könnt ihn zum lernen benutzen, als Beispielscript, oder auch als Grundlage für einen eigenen SpamBot.

Wenn ihr möchtet, könnt ihr gerne eure Versionen hier posten.

Ich habe versucht, Variablen und Funktionen möglichst sinnvoll zu benennen, um den Code leichter verständlich zu machen.
Wenn ihr trotzdem Fragen zum Script habt, könnt ihr sie gerne stellen, aber bitte nur spezielle Fragen zu einzelnen Teilen. Ich kann euch gerne erklären, wieso ich einen bestimmten Befehl benutzt habe, aber wenn ihr insgesmt fast nichts davon versteht, solltet ihr lieber erstmal ein paar Tutorials lesen.

VirusTotal
Bevor irgendjemand trotz öffentlichem Source Stress schiebt, hier mal ein Scan:

[NoCheatImPGM]

Nice tool