Spam-Bot V2.0 GW

04/17/2010 00:35 ThornWithin#1
Hallo :)

Da ich hier vor nicht allzu langer Zeit nen SpamBot gesehn hab, den ich nich so wirklich gut fand, werd ich hier mal meinen releasen ^^

Ihr könnt einstellen, wie oft er shouten soll, in welchem Chat unso ^^

Hier is das Script, unten isses nomma zum downloaden, wenn ihrs schon compiled + mit meinem BackGround haben wollt :D

Morgen werd ich das ganze dann nochma in Englisch releasen, Verbesserungsvorschläge und Feedback nehm ich gerne an =)

MfG

ThornWithin

~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
Hey Guys :)

I wrote a Spam-Bot for GW a few days ago and want to release it D:

U can spam in General, Team, Guild, ... -Chat each 0.1 to 9999 secs :D

Here's the script, below u can find the compiled script to download with my BackGround =)

Tommorrow I'll release the same in English, too ...
Please give me some feedback or ideas for improvement ...
I Hope u'll like it,

Yours

ThornWithin

~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~

Script:
Code:
#Region ;**** Directives created by AutoIt3Wrapper_GUI ****
#AutoIt3Wrapper_UseUpx=n
#EndRegion ;**** Directives created by AutoIt3Wrapper_GUI ****
#include <string.au3>
#include <GuiConstants.au3>
#include <GuiConstantsEx.au3>
#include "GWCAConstants.au3"

HotKeySet("{F1}","PauseBot")
HotKeySet("{F2}","StartBot")
HotKeySet("{F3}","EndBot")
HotKeySet("{F4}","Restarter")

Global $Aktivierer = 1


_Main()

Func _Main()
	$Gui = GUICreate("SpamBot",300,300)
	$pic = GUICtrlCreatePic("BackGround/backgroundUSpmDCK.bmp",0,0,300,300)
	$Input = GUICtrlCreateInput("",0,20,300,100)
	$Credits = GUICtrlCreateButton("Credits",130,0,40,20)
	$UpDownInput = GUICtrlCreateInput("Alle X Sekunden",0,250,150,20)
	$speichern = GuiCtrlCreateButton("speichern",190,250,60,20)
	$laden = GuiCtrlCreateButton("laden",250,250,50,20)
	$UpDown = GUICtrlSetLimit(GUICtrlCreateUpdown($UpDownInput),9999,0)
	$General = GUICtrlCreateButton("General",0,270,50,30)
	$Guild = GUICtrlCreateButton("Gilden",50,270,50,30)
	$Team = GUICtrlCreateButton("Team",100,270,50,30)
	$Handel = GUICtrlCreateButton("Handel",150,270,50,30)
	$Buendnis = GUICtrlCreateButton("Buendnis",200,270,50,30)
	$Whisper = GUICtrlCreateButton("Flüster",250,270,50,30)
	GUISetState(@SW_SHOW)
	toolTip("F1 zum Pausieren, F2 zum Beenden der Pausierung, F3 zum Beenden des Programms." & @CRLF & "Wenn der Spammer neu gestartet werden soll, F4 drücken.")

	While 1


	Switch GUIGetMsg()

		Case $GUI_EVENT_CLOSE
			Exit
		Case $Credits
			ToolTip("Credits werden gestartet.")
			Run("notepad.exe")
			WinWaitActive("Unbenannt")
			Send("======== SPAMMER CREATED BY ==========")
			Send("{Enter}")
			Send("=========== DarkCrusade/Keks  ===========")
			Send("{Enter}")
			Send("{Enter}")
			Send("No © 2010 by DarkCrusade/Keks-Corp.")
			Send("{enter}Please dont' hate or not enjoy this Spammer or {enter}I'll get You. {enter}Feedback wäre nicht übel auf {enter}http://www.************/autoit/chatlexikon-cal-120558.html")
			ExitLoop

		Case $General
			While 1
			$string = GuiCtrlRead($Input)
			$sleeptime=GuiCtrlRead($UpDownInput)
			$sleeptime=($sleeptime*1000)

			;Guild Wars wird "anvisiert. Wenn Guild Wars nich geöffnet ist, wird die Errormeldung(folgende Zeilen) gezeigt und Guild Wars wird gestartet.
			;Danach wird der Spammer, damit er wieder benutzbar ist, neu gestartet.
			If WinActivate("Guild Wars") = 0 Then
				MsgBox(48,"ERROR","Guild Wars konnte nicht gefunden werden. Mit OK wird es gestartet, sofern es sich auf dem Desktop als ''Guild Wars'' befindet.")
				TrayTip("Spammer","Bitte Den Spammer nicht umbennen, das könnte zu Schwierigkeiten führen!",2000)
				MouseMove(0,0,1)
				MouseClick("left",0,0,1,1)
				Send("GUILD WARS {enter}")
				Run("SpamBot2.0.exe")
				Exit
			EndIf
			;Errormeldung(s.o.)

			;Hier kommt der Aktivierer ins Spiel. Er steht auf 1, das bedeutet, dass die While-Schleife ausgeführt wird. Durch F2 (=Pausieren) wird die Whileschleife unterbrochen.
			While $Aktivierer = 1
				WinWaitActive("Guild Wars")
				Local $hprocess , $MemPtr
				SendChat($hprocess,1,$string,$MemPtr = "create")

				Sleep($sleeptime)

				WEnd
			WEnd
			ExitLoop

		Case $Guild
			While 1
			$string = GuiCtrlRead($Input)
			$sleeptime=GUICtrlRead($UpDownInput)
			$sleeptime=($sleeptime*1000)
			If WinActivate("Guild Wars") = 0 Then
				MsgBox(48,"ERROR","Guild Wars konnte nicht gefunden werden. Mit OK wird es gestartet, sofern es sich auf dem Desktop als ''Guild Wars'' befindet.")
				TrayTip("Spammer","Bitte Den Spammer nicht umbennen, das könnte zu Schwierigkeiten führen!",2000)
				MouseMove(0,0,1)
				MouseClick("left",0,0,1,1)
				Send("GUILD WARS {enter}")
				Run("SpamBot2.0.exe")
				Exit
			EndIf


			While $Aktivierer = 1
				WinWaitActive("Guild Wars")
				Send("{ENTER}")
				Send("{Shiftdown}")
				Send("2")
				Send("{Shiftup}")
				Send($string)
				Send("{ENTER}")

				Sleep($sleeptime)
			WEnd
		WEnd
			ExitLoop

		Case $Team
			While 1
			$string = GuiCtrlRead($Input)
			$sleeptime=GUICtrlRead($UpDownInput)
			$sleeptime=($sleeptime*1000)
			If WinActivate("Guild Wars") = 0 Then
				MsgBox(48,"ERROR","Guild Wars konnte nicht gefunden werden. Mit OK wird es gestartet, sofern es sich auf dem Desktop als ''Guild Wars'' befindet.")
				TrayTip("Spammer","Bitte Den Spammer nicht umbennen, das könnte zu Schwierigkeiten führen!",2000)
				MouseMove(0,0,1)
				MouseClick("left",0,0,1,1)
				Send("GUILD WARS {enter}")
				Run("SpamBot2.0.exe")
				Exit
			EndIf


			While $Aktivierer = 1
				WinWaitActive("Guild Wars")
				Send("{ENTER}")
				Send("{Shiftdown}")
				Send("3")
				Send("{Shiftup}")
				Send($string)
				Send("{ENTER}")

				Sleep($sleeptime)


			WEnd
		WEnd
		ExitLoop
		Case $Handel
			While 1
			$string = GuiCtrlRead($Input)
			$sleeptime=GUICtrlRead($UpDownInput)
			$sleeptime=($sleeptime*1000)

			If WinActivate("Guild Wars") = 0 Then
				MsgBox(48,"ERROR","Guild Wars konnte nicht gefunden werden. Mit OK wird es gestartet, sofern es sich auf dem Desktop als ''Guild Wars'' befindet.")
				TrayTip("Spammer","Bitte Den Spammer nicht umbennen, das könnte zu Schwierigkeiten führen!",2000)
				MouseMove(0,0,1)
				MouseClick("left",0,0,1,1)
				Send("GUILD WARS {enter}")
				Run("SpamBot2.0.exe")
				Exit
			EndIf


			While $Aktivierer = 1
				WinWaitActive("Guild Wars")
				Send("{ENTER}")
				Send("{Shiftdown}")
				Send("4")
				Send("{Shiftup}")
				Send($string)
				Send("{ENTER}")

				Sleep($sleeptime)


			WEnd
			WEnd
			ExitLoop

			Case $Buendnis
			While 1
			$string = GUICtrlRead($Input)
			$sleeptime=GUICtrlRead($UpDownInput)
			$sleeptime=($sleeptime*1000)

			If WinActivate("Guild Wars") = 0 Then
				MsgBox(48,"ERROR","Guild Wars konnte nicht gefunden werden. Mit OK wird es gestartet, sofern es sich auf dem Desktop als ''Guild Wars'' befindet.")
				TrayTip("Spammer","Bitte Den Spammer nicht umbennen, das könnte zu Schwierigkeiten führen!",2000)
				MouseMove(0,0,1)
				MouseClick("left",0,0,1,1)
				Send("GUILD WARS {enter}")
				Run("SpamBot2.0.exe")
				Exit
			EndIf

			While $Aktivierer = 1
				WinWaitActive("Guild Wars")
				Send("{ENTER}")
				Send("{Shiftdown}")
				Send("5")
				Send("{Shiftup}")
				Send($string)
				Send("{ENTER}")

				Sleep($sleeptime)

			WEnd
		WEnd
		ExitLoop

			Case $Whisper
				While 1

				$string = GuiCtrlRead($Input)
				$sleeptime=GUICtrlRead($UpDownInput)
				$sleeptime=($sleeptime*1000)

			If WinActivate("Guild Wars") = 0 Then
				MsgBox(48,"ERROR","Guild Wars konnte nicht gefunden werden. Mit OK wird es gestartet, sofern es sich auf dem Desktop als ''Guild Wars'' befindet.")
				TrayTip("Spammer","Bitte Den Spammer nicht umbennen, das könnte zu Schwierigkeiten führen!",2000)
				MouseMove(0,0,1)
				MouseClick("left",0,0,1,1)
				Send("GUILD WARS {enter}")
				Run("SpamBot2.0.exe")
				Exit
			EndIf

				While $Aktivierer = 1
					WinWaitActive("Guild Wars")
					Send("{ENTER}")
					Send("{Shiftdown}")
					Send("ä")
					Send("{Shiftup}")
					Send($string)
					Send("{ENTER}")

					Sleep($sleeptime)


					WEnd
				WEnd
				ExitLoop

			Case $speichern
				IniWrite("GwSpammer.ini","[Spam]","Spam",GUICtrlRead($Input))

		EndSwitch
	WEnd

EndFunc


Func StartBot()
	$Aktivierer = 1
EndFunc

Func PauseBot()
	$Aktivierer = 0
EndFunc

Func EndBot()
	Exit
EndFunc

Func Restarter()
	Run("SpamBot2.0.exe")
	If Run("SpamBot2.0.exe") = 0 Then
		MsgBox(48,"ERROR","SpamBot2.0.exe konnte nicht gefunden werden. Bitte ändern Sie den Namen wieder in SpamBot2.0, wenn Sie diesen umbenannt haben.")
	EndIf
	Exit
	Exit
	Exit
EndFunc
04/17/2010 08:04 ddl#2
Wieso benutzt du nicht GWCA?

Send ist immer so eine Sache, wenn schon dann nimm ControlSend.
04/17/2010 08:42 buFFy!#3
vote for close !
04/17/2010 09:58 Picco#4
jo
04/17/2010 10:18 Moppel123#5
Also mit Send bringt das ding ja nichts, weil du dann im Fenster sein musst. Es geht ja da drum, dass du das eben nicht musst.

#vote4close
04/17/2010 14:26 Gresto12#6
Quote:
Originally Posted by u-coRe View Post
vote for close !
Quote:
Originally Posted by Moppel123 View Post
#vote4close
Close this thread pls!:rtfm:
04/17/2010 15:59 kknb#7
Quote:
Originally Posted by u-coRe View Post
vote for close !

?wtf spähm?

#reported!
04/17/2010 16:45 Frutex#8
:awesome:
Ich habs eingesehen, ich höre mit dem #reported auf ....
04/18/2010 00:06 ThornWithin#9
lol das is doch nur n mini unterschied, 1mom ich mach eben include gwcaconstants und statt send keysend rein o_O

Quote:
Originally Posted by Gresto12 View Post
Close this thread pls!:rtfm:
außerdem heißt der bereich doch Guild Wars Exploits, [...], TOOLS und nich Guild Wars GWCA-Based-Tools O_O
Also mal vorher nachdenken, befor der RTFM-Smiley benutzt wird -.-
04/18/2010 10:41 buFFy!#10
Das Tool hier ist so nutzlos wie nur sonstwat.

#closed - Grund dürfte klar sein o0