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
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
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
