This is the update to the bot I posted earlier at
http://www.taultunleashed.com/phpbb2/vi ... hp?t=28229
My spambot now has a gui and switches between Ascalon City American districts 1 through 3
I left the debuging info in because its a bit clunky and it always finishes the loop no matter when you try to unclick it, so there is a message letting you know when the ideal time to stop the loop so it will shut off properly.
My screen resolution is set to 1280 by 1024 and I have my interface size (in game options) set to small.
(!empty($user->lang['CODE'])) ? $user->lang['CODE'] : ucwords(strtolower(str_replace('_', ' ', 'CODE'))):
; ----------------------------------------------------------------------------
;
; 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
SitemapIndex
RSS Feed
