Code:
;StonerArena v1 (Arena Wintrading Bot)
;By HybriD
;------------------------------------
;DISCLAIMER:
;Don't be stupid, don't get caught
;For best results, use 3.3.5a (12340)
;------------------------------------
;
;Macros:
;#Action bar 1
;/target Arena Battlemaster
;
;#Action bar 2
;#/script JoinBattlefield(1) #Skirmish Single
;#/script JoinBattlefield(1, true) #Skirmish + Group
;/script JoinBattlefield(1, true, true) #Rated + Group
;
;#Action bar 3
;#/script AcceptBattlefieldPort(1, 1)
;
;#Action bar 4
;#/script LeaveBattlefield()
#include <ButtonConstants.au3>
#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
#Region ### START Koda GUI section ###
$MainWin = GUICreate("StonerArena", 235, 206, 221, 131)
$FuncMenu = GUICtrlCreateMenu("&Functions")
$RenWoW = GUICtrlCreateMenuItem("Rename", $FuncMenu)
$HelpWin = GUICtrlCreateMenu("&Help")
$ReadMe = GUICtrlCreateMenuItem("Readme", $HelpWin)
$RunBot = GUICtrlCreateButton("Run", 80, 112, 83, 25, $BS_VCENTER)
$JoinArena = GUICtrlCreateButton("Join Arena", 24, 32, 75, 25, $BS_VCENTER)
$ExitArena = GUICtrlCreateButton("Exit Arena", 24, 56, 75, 25, $BS_VCENTER)
$JoinArenaA = GUICtrlCreateButton("Join All", 136, 32, 75, 25, $BS_VCENTER)
$ExitArenaA = GUICtrlCreateButton("Exit All", 136, 56, 75, 25, $BS_VCENTER)
$gg = GUICtrlCreateButton("Good Game", 80, 136, 83, 25, $BS_VCENTER)
$ZmbGrp = GUICtrlCreateGroup("Zombies", 128, 16, 97, 73, BitOR($GUI_SS_DEFAULT_GROUP,$BS_CENTER))
GUICtrlCreateGroup("", -99, -99, 1, 1)
$PrtyLdrs = GUICtrlCreateGroup("Party Leaders", 8, 16, 105, 73, BitOR($GUI_SS_DEFAULT_GROUP,$BS_CENTER))
GUICtrlCreateGroup("", -99, -99, 1, 1)
$Group1 = GUICtrlCreateGroup("Que Functions", 72, 96, 97, 73, BitOR($GUI_SS_DEFAULT_GROUP,$BS_CENTER))
GUICtrlCreateGroup("", -99, -99, 1, 1)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###
Global $var = WinList("WoWHost", "")
Global $var2 = WinList("World of Warcraft", "")
Global $i
Func Runin()
For $i = 1 To $var[0][0]
;MsgBox(0, "HWNDs", "Title=" & $var[$i][0] & " HWND=" & $var[$i][1]) ;Extra crap
ControlSend($var[$i][1], "", "", "{1}")
ControlSend($var[$i][1], "", "", "{F7}")
Next
EndFunc
Func Ex()
For $i = 1 To $var[0][0]
ControlSend($var[$i][1], "", "", "{4}")
Next
EndFunc
Func Join()
For $i = 1 To $var[0][0]
ControlSend($var[$i][1], "", "", "{3}")
Next
EndFunc
Func RenameWoW()
for $i = 1 to $var2[0][0]
WinSetTitle($var2[$i][1], "", "WoWHost")
Next
EndFunc
Func JoinA()
For $i = 1 to $var2[0][0]
ControlSend($var2[$i][1], "", "", "{3}")
Next
EndFunc
Func ExA()
For $i = 1 to $var2[0][0]
ControlSend($var2[$i][1], "", "", "{4}")
Next
EndFunc
Func Gg()
For $i = 1 to $var[0][0]
ControlSend($var[$i][1], "", "", "{2}")
Next
EndFunc
Func HelpDoc()
MsgBox(0, "README", "Open 2 coppies of WoW. Click Functions>Rename. Sign in the party leaders. Open 2 more coppies of WoW. Sign in zombie characters. Invite each zombie to arena teams and group. Put party leaders next to an Arena Battlemaster. Click the Run button. Wait a sec. Click Good Game. If both parties get Que at same time, hit Join Arena/Join All. If not, then just ignore the Que pop and repeat.")
EndFunc
While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
Case $RunBot
Runin()
Case $JoinArena
Join()
Case $ExitArena
Ex()
Case $JoinArenaA
JoinA()
Case $ExitArenaA
ExA()
Case $gg
Gg()
Case $RenWoW
RenameWoW()
Case $ReadMe
HelpDoc()
EndSwitch
WEnd
Compile and run