[RELEASE] -STORM- Spammer Open Source

Hi
Da anscheinend alle Spambots, die es hier mal gab, down sind, habe ich mal einen neuen gebastelt. Dieser bietet sogar noch ein bisschen mehr, als die bisherigen.

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

Features:

Multiclient Unterst�tzung
Ihr k�nnt beliebig viele LC-Clienten �ffnen und f�r jeden einen seperaten SpamBot �ffnen.
Jegliche Zugriffe werden durch die Handle der Fenster koordiniert. Diese sind eindeutig. Identische Titel stellen kein Hindernis dar.
AntiAutoit Bypass ohne Patch oder Offsets
Durch meinen Compiler wird die .exe undetected. Das funktioniert auf jedem Server, ohne etwas zu patchen, oder Offsets zu suchen.
Wer etwas am Source �ndern m�chte, muss Anti AutoIt entweder selbst umgehen, oder das Script hier reinstellen. Dann kann ich es f�r euch undetected machen.
Background Mode
Der SpamBot benutzt ControlSend und funktioniert somit auch minimiert, ihr k�nnt gleichzeitig zocken, surfen, oder was auch immer.
mehrere Texte mit unterschiedlichen Wartezeiten einstellbar
Vorteil liegt auf der Hand.
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 wird die Sperre umgangen, gleiche Texte nur zweimal pro Minute senden zu k�nnen.
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
Enter wird nicht nur zum Abschicken gesendet, sondern auch, um den Chat zu fokussieren. Deaktivieren dient der Geschwindigkeitsoptimierung.
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 komplett deaktiviert, kann aber per {ENTER} manuell gesendet werden.

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

Fenster ausw�hlen
Beim Start sucht der SpamBot nach laufenden Nksp.exe. Findet er eine, wird die automatisch ausgew�hlt. M�chtet ihr ihn in Verbindung mit nem Multiclient benutzen, k�nnt ihr manuell ein Fenster ausw�hlen.
Daf�r einfach den Select-Button dr�cken und mit dem n�chsten Klick das ge�ffnete LC-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 l�sst sich der Spammer auch als Rufbot, AutoSkill oder AutoBuff Bot etc. benutzen.

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

Ist der SpamBot kompatibel mit xTrap?
Keine Ahnung. Es wird nicht auf den Memory zugegriffen, was ja haupts�chlich von xTrap geblockt wird.
Ob xTrap auch ControlSend verhindert, wei� ich nicht.
Probiert es aus.
Da ich keinen Client mit xTrap auf dem PC habe, werde ich das auch nicht �ndern, falls es nicht funktioniert.
Aber der SpamBot ist open source, also ist jeder eingeladen, sich darum zu k�mmern.

Bugs:
Keine bekannt.
Falls ihr welche findet, ausf�hrlich (!) hier melden. Dazu geh�rt verwendetes Betriebssystem, LC Version, 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:

21.08.12 v3:
Flag einstellbar.
21.08.12 v2:
Dynamisches GUI. Hinzuf�gen/Entfernen beliebig vieler Inputs zur Laufzeit m�glich.
So sieht das ganze aus:

Spoiler

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

Source:

Spoiler

Hier der komplette Source Code des Spambots:
v3:

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("-STORM- Spammer v3", 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("looking for LC                          ", 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.", 100, 213)
Global $risingnumbercheck = GUICtrlCreateCheckbox("+ Rising No.", 190, 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
		Global $pidlist = ProcessList("Nksp.exe")
		If $pidlist[0][0] > 1 Then
			$winpid = ""
			$winhandle = ""
			$wintitle = ""
			If GUICtrlRead($statuslabel) <> "LC found " & $pidlist[0][0] & " times, please select!" Then
				GUICtrlSetData($statuslabel, "LC found " & $pidlist[0][0] & " times, please select!")
				GUICtrlSetColor($statuslabel, 0xFF9900)
			EndIf
		ElseIf $pidlist[0][0] = 1 Then
			$winpid = $pidlist[1][1]
			$winhandle = _GetHwndFromPID($winpid)
			$wintitle = WinGetTitle($winhandle)
			$winselected = True
			If $winhandle = 0 Then
				If GUICtrlRead($statuslabel) <> "LC loading" Then
					GUICtrlSetData($statuslabel, "LC loading")
					GUICtrlSetColor($statuslabel, 0xFF9900)
				EndIf
			Else
				If GUICtrlRead($statuslabel) <> "LC found" Then
					GUICtrlSetData($statuslabel, "LC found")
					GUICtrlSetColor($statuslabel, 0x006400)
				EndIf
			EndIf
		ElseIf $pidlist[0][0] = 0 Then
			$winpid = ""
			$winhandle = ""
			$wintitle = ""
			If GUICtrlRead($statuslabel) <> "LC NOT found" Then
				GUICtrlSetData($statuslabel, "LC NOT found")
				GUICtrlSetColor($statuslabel, 0xFF0000)
			EndIf
		EndIf
		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)
	EndIf

	If Not WinExists($winhandle) Then $winselected = False
	#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 $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

v2:

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("-STORM- Spammer v2", 370, 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("looking for LC                          ", 120, 20)
GUICtrlSetFont($statuslabel, 11)
Global $selectwinbutton = GUICtrlCreateButton("Select", 280, 10)
GUICtrlSetOnEvent($selectwinbutton, "_selectwin")
Global $openwindowbutton = GUICtrlCreateButton("Open", 330, 10)
GUICtrlSetOnEvent($openwindowbutton, "_openwin")

Global $windowgroup = GUICtrlCreateGroup("Window", 10, 50, 350, 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, 350, 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", 300, 158, 50)
GUICtrlSetOnEvent($testdelay, "_testdelay")

Global $spamgroup = GUICtrlCreateGroup("Spam             ", 10, 195, 350, 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.", 100, 213)
Global $risingnumbercheck = GUICtrlCreateCheckbox("+ Rising No.", 190, 213)
GUICtrlSetState($risingnumbercheck, 1)
GUICtrlCreateLabel("Time (ms)", 300, 217)
Dim $textinput[$amount]
Dim $timeinput[$amount]
For $i = 0 To $amount - 1
	$textinput[$i] = GUICtrlCreateInput("", 20, 240 + $i * 25, 250)
	$timeinput[$i] = GUICtrlCreateInput("", 300, 240 + $i * 25, 50)
Next
GUISetState(@SW_SHOW, $gui)
#endregion ### GUI Section ###

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

Dim $text[$amount]
Dim $time[$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
		Global $pidlist = ProcessList("Nksp.exe")
		If $pidlist[0][0] > 1 Then
			$winpid = ""
			$winhandle = ""
			$wintitle = ""
			If GUICtrlRead($statuslabel) <> "LC found " & $pidlist[0][0] & " times, please select!" Then
				GUICtrlSetData($statuslabel, "LC found " & $pidlist[0][0] & " times, please select!")
				GUICtrlSetColor($statuslabel, 0xFF9900)
			EndIf
		ElseIf $pidlist[0][0] = 1 Then
			$winpid = $pidlist[1][1]
			$winhandle = _GetHwndFromPID($winpid)
			$wintitle = WinGetTitle($winhandle)
			$winselected = True
			If $winhandle = 0 Then
				If GUICtrlRead($statuslabel) <> "LC loading" Then
					GUICtrlSetData($statuslabel, "LC loading")
					GUICtrlSetColor($statuslabel, 0xFF9900)
				EndIf
			Else
				If GUICtrlRead($statuslabel) <> "LC found" Then
					GUICtrlSetData($statuslabel, "LC found")
					GUICtrlSetColor($statuslabel, 0x006400)
				EndIf
			EndIf
		ElseIf $pidlist[0][0] = 0 Then
			$winpid = ""
			$winhandle = ""
			$wintitle = ""
			If GUICtrlRead($statuslabel) <> "LC NOT found" Then
				GUICtrlSetData($statuslabel, "LC NOT found")
				GUICtrlSetColor($statuslabel, 0xFF0000)
			EndIf
		EndIf
		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)
	EndIf

	If Not WinExists($winhandle) Then $winselected = False
	#endregion ### Window Handling ###
	#region ### Read GUI Data ###
	For $i = 0 To $amount - 1
		$text[$i] = GUICtrlRead($textinput[$i])
		$time[$i] = Int(GUICtrlRead($timeinput[$i]))
	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 Then ControlSend($winhandle, "", "", "{ENTER}")
					ControlSend($winhandle, "", "", $text[$i], 1)
					If $randomnumberon = 1 Then
						ControlSend($winhandle, "", "", " " & Random(0, 1000, 1))
					EndIf
					If $risingnumberon = 1 Then
						ControlSend($winhandle, "", "", " " & $risingnumber[$i])
						$risingnumber[$i] += 1
					EndIf
					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])
		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)
	$timeinput[$amount - 1] = GUICtrlCreateInput("", 300, 240 + ($amount - 1) * 25, 50)
EndFunc   ;==>_amountinc

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

v1:

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)

Global $amount = 5
#region ### GUI Section ###
Global $gui = GUICreate("-STORM- Spammer", 370, 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("looking for LC                          ", 120, 20)
GUICtrlSetFont($statuslabel, 11)
Global $selectwinbutton = GUICtrlCreateButton("Select", 280, 10)
GUICtrlSetOnEvent($selectwinbutton, "_selectwin")
Global $openwindowbutton = GUICtrlCreateButton("Open", 330, 10)
GUICtrlSetOnEvent($openwindowbutton, "_openwin")

Global $windowgroup = GUICtrlCreateGroup("Window", 10, 50, 350, 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, 350, 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", 300, 158, 50)
GUICtrlSetOnEvent($testdelay, "_testdelay")

Global $spamgroup = GUICtrlCreateGroup("Spam", 10, 195, 350, 55 + $amount * 25)
GUICtrlSetFont($spamgroup, 11)
GUICtrlCreateLabel("Text", 20, 217)
Global $enterchatcheck = GUICtrlCreateCheckbox("Enter", 50, 213)
GUICtrlSetState($enterchatcheck, 1)
Global $randomnumbercheck = GUICtrlCreateCheckbox("+ Random No.", 100, 213)
Global $risingnumbercheck = GUICtrlCreateCheckbox("+ Rising No.", 190, 213)
GUICtrlCreateLabel("Time (ms)", 300, 217)
Dim $textinput[$amount]
Dim $timeinput[$amount]
For $i = 0 To $amount - 1
	$textinput[$i] = GUICtrlCreateInput("", 20, 240 + $i * 25, 250)
	$timeinput[$i] = GUICtrlCreateInput("", 300, 240 + $i * 25, 50)
Next
GUISetState(@SW_SHOW, $gui)
#endregion ### GUI Section ###

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

Dim $text[$amount]
Dim $time[$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
		Global $pidlist = ProcessList("Nksp.exe")
		If $pidlist[0][0] > 1 Then
			$winpid = ""
			$winhandle = ""
			$wintitle = ""
			If GUICtrlRead($statuslabel) <> "LC found " & $pidlist[0][0] & " times, please select!" Then
				GUICtrlSetData($statuslabel, "LC found " & $pidlist[0][0] & " times, please select!")
				GUICtrlSetColor($statuslabel, 0xFF9900)
			EndIf
		ElseIf $pidlist[0][0] = 1 Then
			$winpid = $pidlist[1][1]
			$winhandle = _GetHwndFromPID($winpid)
			$wintitle = WinGetTitle($winhandle)
			$winselected = True
			If $winhandle = 0 Then
				If GUICtrlRead($statuslabel) <> "LC loading" Then
					GUICtrlSetData($statuslabel, "LC loading")
					GUICtrlSetColor($statuslabel, 0xFF9900)
				EndIf
			Else
				If GUICtrlRead($statuslabel) <> "LC found" Then
					GUICtrlSetData($statuslabel, "LC found")
					GUICtrlSetColor($statuslabel, 0x006400)
				EndIf
			EndIf
		ElseIf $pidlist[0][0] = 0 Then
			$winpid = ""
			$winhandle = ""
			$wintitle = ""
			If GUICtrlRead($statuslabel) <> "LC NOT found" Then
				GUICtrlSetData($statuslabel, "LC NOT found")
				GUICtrlSetColor($statuslabel, 0xFF0000)
			EndIf
		EndIf
		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)
	EndIf

	If Not WinExists($winhandle) Then $winselected = False
	#endregion ### Window Handling ###
	#region ### Read GUI Data ###
	For $i = 0 To $amount - 1
		$text[$i] = GUICtrlRead($textinput[$i])
		$time[$i] = Int(GUICtrlRead($timeinput[$i]))
	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 Then ControlSend($winhandle, "", "", "{ENTER}")
					ControlSend($winhandle, "", "", $text[$i], 1)
					If $randomnumberon = 1 Then
						ControlSend($winhandle, "", "", " " & Random(0, 1000, 1))
					EndIf
					If $risingnumberon = 1 Then
						ControlSend($winhandle, "", "", " " & $risingnumber[$i])
						$risingnumber[$i] += 1
					EndIf
					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

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.
Einzige Bedingung:
Der SpamBot ist open source und bleibt es auch! Ihr d�rft ihn ver�ndern, wie ihr wollt, aber postet hier euren Source Code!
Neue Threads bitte nur f�r wirklich (!) bedeutende �nderungen, sonst wird das Forum mit Threads �ber nahezu identische SpamBots �berflutet.
Postet einfach euren Source und evtl. eine compilierte .exe hier und ich werde sie im ersten Post editieren. Selbstverst�ndlich mit Credits.

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
Alle, die etwas Ahnung haben, werden sich jetzt wohl an den Kopf fassen, denn ein ver�ffentlichter Source Code macht jeglichen Virenscan unn�tig.
Bevor aber irgendwelche Fragen kommen, ob der auch wirklich sicher ist (als ob ich es euch sagen w�rde, wenn ich Viren verbreiten w�rde) oder auch Anschuldigungen, weil CrapSoftware XY angeblich nen Virus detected, hier mal ein Scan:
[Only registered and activated users can see links. Click Here To Register...]
Von 41 Programmen hat einzig ein grandioses Programm namens Antiy-AVL etwas gefunden. Ich denke, das spricht f�r sich.

Sonstiges
Mehr gibt es eigentlich nicht zu sagen.
HWID oder sonstige Sperren werden nicht verwendet und die Benutztung ist meiner Meinung nach sehr einfach. :)
Getestet wurde auf Win7 Professional x64, aber da ich in 32bit compiled habe, sollte es auf allen Systemen ab XP oder sogar �lter problemlos laufen.