Updated my spambot : GW Submissions

Code: Select all

; ----------------------------------------------------------------------------
;
; AutoIt Version: 3.1.0
; Author:djomen         
; Name:Spambot
; Script Function:For afk spaming with Guild Wars.
;	
;
; ----------------------------------------------------------------------------
;~~~~~~~~~~~~~~~ 
#NoTrayIcon 
#Include<GUIConstants.au3> 
Global $Paused 
;~~~~~~~~~~~~~~~  
HotKeySet("{Pause}", "Pause") 
HotKeySet("{End}", "Hide") 
HotKeySet("{Home}", "Show") 
;~~~~~~~~~~~~~~~
GuiCreate("Spambot", 100, 50,(@DesktopWidth-100)/2, (@DesktopHeight-50)/2, $WS_DLGFRAME)
WinSetOnTop("Spambot", "", 1)
;~~~~~~~~~~~~~~~
$startSB = GuiCtrlCreateCheckbox("Start", 4, 1, 50, 20)
$Button_1 = GuiCtrlCreateButton("X", 95, 3, 18, 18)
$ButtonHelp = GUICtrlCreateButton("Help", 60, 3, 35, 18)
GuiSetState()
;~~~~~~~~~~~~~~~
While 1
$msg = GuiGetMsg()
;~~~~~~~~~~~~~~~
Select 
   Case GUICtrlRead($startSB) <> 4 
        While GUICtrlRead($startSB) <> 4 
          Spam() 
        WEnd 
   Case GUICtrlRead($startSB) = -15 
        ExitLoop 
 EndSelect
;~~~~~~~~~~~~~~~
Select 
Case $msg = $ButtonHelp 
msgbox(0, "Help", "Guild Wars needs to be in windowed mode. To run, check (Start) then click anywhere on the GW window. Press (Pause) to pause, press (End) to hide the window and press (Home) to show the window. Spambot was created for educational purposes only.") 
EndSelect
;~~~~~~~~~~~~~~~   
    Select
   Case $msg = $Button_1
        ExitLoop
    EndSelect
WEnd
;~~~~~~~~~~~~~~~  
Func Pause() 
$Paused = NOT $Paused 
While $Paused 
sleep(100) 
ToolTip('Spambot is currently paused.',0,0) 
WEnd 
ToolTip("") 
EndFunc 
;~~~~~~~~~~~~~~~ 
Func Hide() 
GUISetState(@SW_HIDE) 
EndFunc 
;~~~~~~~~~~~~~~~ 
Func Show() 
GUISetState(@SW_SHOW) 
EndFunc 
;~~~~~~~~~~~~~~~ 
;
;Funtion Spam 
Func Spam()
;Starting your char in pre searing ascalon district 1 
 Sleep(5000)
ToolTip('ENTER')
        Send('{ENTER}')
        Sleep(500)
ToolTip('TYPING')
        Send('~THE DARK REBELLION ACT~ recruiting rebels,bandits,and warlords~Ventrilo,forums,hall and cape http://fizban.f20.org/phbb2{ENTER}')
        MouseClick("left",230,40)
ToolTip('DIS 2')
        Sleep(2000)
        MouseClick("left",220,88);dis 2
        MouseClick("left",615,575)
ToolTip('WAITING')
        Sleep(20000)
;
ToolTip('ENTER')
        Send('{ENTER}')
        Sleep(500)
ToolTip('TYPING')
        Send('~THE DARK REBELLION ACT~ recruiting rebels,bandits,and warlords~Ventrilo,forums,hall and cape http://fizban.f20.org/phbb2{ENTER}')
        MouseClick("left",230,40)
ToolTip('DIS 3')
        Sleep(2000)
        MouseClick("left",220,102);dis 3
        MouseClick("left",615,575)
ToolTip('WAITING')
        Sleep(20000)
;
ToolTip('ENTER')
        Send('{ENTER}')
        Sleep(500)
ToolTip('TYPING')
        Send('~THE DARK REBELLION ACT~ recruiting rebels,bandits,and warlords~Ventrilo,forums,hall and cape http://fizban.f20.org/phbb2{ENTER}')
        MouseClick("left",230,40)
ToolTip('DIS 1')
        Sleep(2000)
        MouseClick("left",220,75);dis 1
        MouseClick("left",615,575)
ToolTip('Uncheck box now to stop the loop. Please wait about 10 seconds to close program.')
        Sleep(20000)
;
Endfunc