Universal SpamBot [Open Source]

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.

[Only registered and activated users can see links. Click Here To Register...][Only registered and activated users can see links. Click Here To Register...]

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.

[Only registered and activated users can see links. Click Here To Register...]

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.

HTML Code:

{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

Code:

#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:
[Only registered and activated users can see links. Click Here To Register...]
[Only registered and activated users can see links. Click Here To Register...]