WoW BG bot: Moxzbot (timed macro input with a basic GUI)

[kakkygrecko]

Moxz Bot
By: Moxz
UPDATED 6/29/2015
Moxzbot v2.3!!!

32 bit Download: [Moxzbot v2.3]

64 bit Download: [Moxzbot v2.3 64bit]

Explanation:
simple timed input of 2 different macros

This program will run completely in the background and overnight
(though you might want to check in once in a while)
it sends key inputs directly to your Wow.exe process.

There is no memory injecting or reading.

If you want to actually play the BGs while the bot runs, you can simply move the Anti AFK macro from it's keybind and just let it queue for you without the worry of forgetting to re-queue or enter an AFK state if you have to step out for a few minutes.



Here are the 2 macros
you have to create these macros and keybind them accordingly

Queue / Join (new macro works with 6.2, although requires you set your map to the smaller setting)

/script RepopMe()
/click HonorFrameSoloQueueButton
/click PVPReadyDialogEnterBattleButton
/click StaticPopup1Button1
/script if WorldStateScoreFrame:IsShown() == 1 then LeaveBattlefield() end

Anti AFK (this is just an example of your anti-afk macro, you can input whatever you like)

#showtooltip
/startattack
/cast [harm] ~SPELL NAME~
/cast ~SPELL NAME~

the program will loop through these 2 macros.


the GUI is very simple, you've got

1 - Dropdown Menus (File, Settings)
2 - Start/Pause Button
3 - Process ID selection


1: Dropdown Menus

(File -> Exit) Will exit the program completely
(File -> Help) Will open this help File
(Settings - > Keybinds) Will open an interface for customizing keybinds {explained Further in Keybinds Section}
(Settings -> Timer) Will open an interface for controlling the random time MIN/MAX


2: Start/Pause Button

will simply start, and pause the bot, the bot will cycle through it's last round and then stop sending keys until you decide to continue


3: Process ID selection

you will have a dropdown selection box that will allow you to choose which ID to send the keys to
generally if you're just running 1 bot, you won't have to worry about this.
BUT if you want to run multiple bots on multiple WoW processes, you now have the option to do so.
Just select a different process ID for each bot/WoW program, and it will send keys directly to that process


To run you just:
double click the Moxzbot.exe
it sends input directly to World of Warcraft, so it won't do anything unless WoW is open.
In WoW you should open the PVP pane (H)
select the BG you would like to bot in (won't work for WG/TB).
and it will run that BG until you change it or stop the program.
Also make sure you set your map to the smaller setting, the macro opens up your map when you're at a GY, and it can make you afk if you're using the full screen map.


Autoit Source:

(It's probably pretty sloppy)

#Region ;**** Directives created by AutoIt3Wrapper_GUI ****
#AutoIt3Wrapper_Icon=..\..\..\..\Pictures\ICO\moxzbot.ico
#AutoIt3Wrapper_Add_Constants=n
#EndRegion ;**** Directives created by AutoIt3Wrapper_GUI ****
#include <WindowsConstants.au3>
#include <StaticConstants.au3>
#include <GUIConstantsEx.au3>
#include <ButtonConstants.au3>
#include <array.au3>

Global $version = "2.3"

Global $fileExit, $jqkey, $aaKey, $jqmodcombo, $aamodcombo, $mNONE, $mSHIFT, $mCTRL, $mALT, $jqmodPick, $aamodPick, $sGUI, $jqInput, $aaInput
Global $random1, $random2, $randomtime, $botData, $ppkey, $ppmodpick, $ppmodcombo, $ppInput, $looping, $tGUI, $r1Input, $r2Input, $combodat
Global $handledata, $combodatlabel, $wowHandle, $list, $PID, $hWnd, $modArray, $helptext

If Not FileExists(@AppDataDir & "\Moxzbot") Then DirCreate(@AppDataDir & "\Moxzbot\")
if not FileExists(@AppDataDir & "\Moxzbot\Help.txt") Then FileInstall("C:\Documents and Settings\Zach\My Documents\autoit scripts\WoW bot\Help.txt", @AppDataDir & "\Moxzbot\Help.txt")
if Not FileExists(@AppDataDir & "\Moxzbot\moxzbot.ini") Then FileInstall("C:\Documents and Settings\Zach\My Documents\autoit scripts\WoW bot\moxzbot.ini", @AppDataDir & "\Moxzbot\moxzbot.ini")

if not processexists("WoW.exe") Then
	msgbox(0, "Error", "Please open World of Warcraft")
	Exit
Else


	$buttonLab = "Start"

	Opt("GUIOnEventMode", 1)

	$mGUI = GUICreate("MoxzBot v" & $version, 200, 200, -1, -1, $WS_BORDER)
	$fileMenu = GUICtrlCreateMenu("&File")
	$fileHelp = GuiCtrlCreateMenuItem("Help", $fileMenu)
	GuiCtrlSetOnEvent($fileHelp, "HelpMenu")
	$fileExit = GUICtrlCreateMenuItem("Exit", $fileMenu)
	GUICtrlSetOnEvent($fileExit, "Close")

	$sMenu = GuiCtrlCreateMenu("&Settings")
	$sKeybinds = GuiCtrlCreateMenuItem("Keybinds", $sMenu)
	GUICtrlSetOnEvent($sKeybinds, "keybindsGUI")
	$sTimer = GuiCtrlCreateMenuItem("Timer", $sMenu)
	GuiCtrlSetOnEvent($sTimer, "timerGUI")

	$startButton = GUICtrlCreateButton($buttonLab, 20, 20, 50, 30)
	GuiCtrlSetOnEvent($startButton, "StartButton")
	$botLabel = GuiCtrlCreateLabel("Click 'Start' to begin", 85, 30, 100, 30)

	$comboLabel = GuiCtrlCreateLabel("pick a WoW.exe Process ID", 30, 70)
	$comboLabel2 = GuiCtrlCreateLabel("Your bot will send keys to this process", 10, 120)
	$combodat = GuiCtrlCreateCombo("", 45, 90, 100)
	populate()

	GUISetState(@SW_SHOW)

EndIf

while 1
	if($looping = 1) Then
		readIni()
		;msgbox(1,$handledata,$wowHandle)

		$jqmodi = iniread(@AppDataDir & "\Moxzbot\moxzbot.ini", "modifier", $modArray[5][1], "")
		$aamodi = iniread(@AppDataDir & "\Moxzbot\moxzbot.ini", "modifier", $modArray[6][1], "")
		$ppmodi = iniread(@AppDataDir & "\Moxzbot\moxzbot.ini", "modifier", $modArray[7][1], "")

		$randomtime = Random($random1, $random2)
		$randomtime = $randomtime * 1000

		sleep($randomtime / 5)
		sleep($randomtime / 5)
		sleep($randomtime / 5)

		;ControlSend($hWnd, "", "", $ppmodi & "{" & $ppkey & "}")
		;sleep(50)
		;ControlSend($hWnd, "", "", $ppmodi & "{" & $ppkey & "}")
		sleep(50)
		ControlSend($hWnd, "", "", $aamodi & "{" & $aaKey & "}")
		sleep(50)
		ControlSend($hWnd, "", "", $jqmodi & "{" & $jqkey & "}")

		sleep($randomtime / 5)
		sleep($randomtime / 5)
	else
		sleep(50)
	EndIf
WEnd

func Close()
	Exit
EndFunc   ;==>Close

func timerGUI()
	readIni()

	$tGUI = GUICreate("Timer", 200, 200, -1, -1, $WS_BORDER)
	GuiCtrlCreateLabel("Random Delay is chosen", 30, 10)
	GUICtrlCreateLabel("Between :", 45, 40)
	$r1Input = GUICtrlCreateInput($random1, 95, 38, 50)
	GuiCtrlCreateLabel("And        :", 45, 70)
	$r2Input = GuiCtrlCreateInput($random2, 95, 68, 50)
	GuiCtrlCreateLabel("Seconds", 70, 100)

	$timerSave = GuiCtrlCreateButton("Save", 35, 130, 50)
	GuiCtrlSetOnEvent($timerSave, "timerSave")
	$timerDefault = GuiCtrlCreateButton("Default", 105, 130, 50)
	GuiCtrlSetOnEvent($timerDefault, "timeDefault")

	GUISetState()
EndFunc   ;==>timerGUI

Func timerSave()
	$iniwrite = GuiCtrlRead($r1Input)
	iniwrite(@AppDataDir & "\Moxzbot\moxzbot.ini", "timer", "random1", $iniwrite)

	$iniwrite = GuiCtrlRead($r2Input)
	iniwrite(@AppDataDir & "\Moxzbot\moxzbot.ini", "timer", "random2", $iniwrite)
	GUIDelete($tGUI)
EndFunc   ;==>timerSave

Func timeDefault()
	iniwrite(@AppDataDir & "\Moxzbot\moxzbot.ini", "timer", "random1", "5")
	iniwrite(@AppDataDir & "\Moxzbot\moxzbot.ini", "timer", "random2", "12")
	GUIDelete($tGUI)
EndFunc   ;==>timeDefault


func keybindsGUI()
	readIni()

	Opt("GUIOnEventMode", 1)
	$sGUI = GUICreate("Keybinds", 300, 180, -1, -1, $WS_BORDER)

	;JOIN / QUEUE KEYBIND
	$join_queue = GUICtrlCreateLabel("Queue / Join : ", 10, 20)
	$jqInput = GuiCtrlCreateInput($jqkey, 85, 18, 40, 20)
	$jqmod = GuiCtrlCreateLabel("Modifier:", 140, 20)
	$jqmodcombo = GuiCtrlCreateCombo($modArray[5][1], 190, 18, 60, 20)
	;GUICtrlSetData(-1,$mNONE &"|"& $mSHIFT &"|"& $mCTRL &"|"& $mALT)
	GuiCtrlSetData(-1, $modArray[1][0] & "|" & $modArray[2][0] & "|" & $modArray[3][0] & "|" & $modArray[4][0])

	;ANTI AFK KEYBIND
	$antiAfk = GuiCtrlCreateLabel("Anti-AFK : ", 10, 50)
	$aaInput = GuiCtrlCreateInput($aaKey, 85, 48, 40, 20)
	$aamod = GuiCtrlCreateLabel("Modifier:", 140, 50)
	$aamodcombo = GuiCtrlCreateCombo($modArray[6][1], 190, 48, 60, 20)
	GuiCtrlSetData(-1, $modArray[1][0] & "|" & $modArray[2][0] & "|" & $modArray[3][0] & "|" & $modArray[4][0])

	;PVP PANE KEYBIND
	;$pvpPaneL = GuiCtrlCreateLabel("PVP Pane : ", 10, 80)
	;$ppInput = GuiCtrlCreateInput($ppkey, 85, 78, 40, 20)
	;$ppmod = GuiCtrlCreateLabel("Modifier:", 140, 80)
	;$ppmodcombo = GuiCtrlCreateCombo($modArray[7][1], 190, 78, 60, 20)
	;GuiCtrlSetData(-1, $modArray[1][0] & "|" & $modArray[2][0] & "|" & $modArray[3][0] & "|" & $modArray[4][0])

	;SaveButton
	$sSave = GuiCtrlCreateButton("Save", 20, 110, 40, 30)
	GUICtrlSetOnEvent($sSave, "Savekeybind")

	;DefaultButton
	$defaultButton = GuiCtrlCreateButton("Default", 70, 110, 50, 30)
	GuiCtrlSetOnEvent($defaultButton, "defaultKeybind")

	;setstate
	GUISetState()
EndFunc   ;==>keybindsGUI

Func Savekeybind()

	;JOIN QUEUE KEYBIND SAVE
	$iniwrite = GuiCtrlRead($jqmodcombo)
	iniwrite(@AppDataDir & "\Moxzbot\moxzbot.ini", "modifier", "jqmodPick", $iniwrite)
	$iniwrite = GuiCtrlRead($jqInput)
	$iniwrite = StringLower($iniwrite)
	iniwrite(@AppDataDir & "\Moxzbot\moxzbot.ini", "keybind", "queue", $iniwrite)

	;ANTI AFK KEYBIND SAVE
	$iniwrite = GuiCtrlRead($aamodcombo)
	iniwrite(@AppDataDir & "\Moxzbot\moxzbot.ini", "modifier", "aamodPick", $iniwrite)
	$iniwrite = GuiCtrlRead($aaInput)
	$iniwrite = StringLower($iniwrite)
	iniwrite(@AppDataDir & "\Moxzbot\moxzbot.ini", "keybind", "afk", $iniwrite)

	;PVP PANE KEYBIND SAVE
	$iniwrite = GuiCtrlRead($ppmodcombo)
	iniwrite(@AppDataDir & "\Moxzbot\moxzbot.ini", "modifier", "ppmodPick", $iniwrite)
	$iniwrite = GuiCtrlRead($ppInput)
	$iniwrite = StringLower($iniwrite)
	iniwrite(@AppDataDir & "\Moxzbot\moxzbot.ini", "keybind", "pvp", $iniwrite)

	GUIDelete($sGUI)

EndFunc   ;==>Savekeybind

func DefaultKeybind()
	iniwrite(@AppDataDir & "\Moxzbot\moxzbot.ini", "modifier", "jqmodPick", "NONE")
	iniwrite(@AppDataDir & "\Moxzbot\moxzbot.ini", "keybind", "queue", "F9")

	iniwrite(@AppDataDir & "\Moxzbot\moxzbot.ini", "modifier", "aamodPick", "NONE")
	iniwrite(@AppDataDir & "\Moxzbot\moxzbot.ini", "keybind", "afk", "F10")

	iniwrite(@AppDataDir & "\Moxzbot\moxzbot.ini", "modifier", "ppmodPick", "NONE")
	iniwrite(@AppDataDir & "\Moxzbot\moxzbot.ini", "keybind", "pvp", "h")

	GUIDelete($sGUI)

EndFunc   ;==>DefaultKeybind

func readIni()
	;KEYBIND MODIFIER READ

	$modArray = IniReadSection(@AppDataDir & "\Moxzbot\moxzbot.ini", "modifier")

	$jqmodPick = Iniread(@AppDataDir & "\Moxzbot\moxzbot.ini", "modifier", $modArray[5][1], "ERROR")
	$aamodPick = Iniread(@AppDataDir & "\Moxzbot\moxzbot.ini", "modifier", $modArray[6][1], "ERROR")
	$ppmodpick = Iniread(@AppDataDir & "\Moxzbot\moxzbot.ini", "modifier", $modArray[7][1], "ERROR")

	;KEYBIND READ
	$aaKey = Iniread(@AppDataDir & "\Moxzbot\moxzbot.ini", "keybind", "afk", "ERROR")
	$jqkey = Iniread(@AppDataDir & "\Moxzbot\moxzbot.ini", "keybind", "queue", "ERROR")
	$ppkey = Iniread(@AppDataDir & "\Moxzbot\moxzbot.ini", "keybind", "pvp", "ERROR")

	;TIMER READ
	$random1 = Iniread(@AppDataDir & "\Moxzbot\moxzbot.ini", "Timer", "random1", "ERROR")
	$random2 = Iniread(@AppDataDir & "\Moxzbot\moxzbot.ini", "Timer", "random2", "ERROR")

EndFunc   ;==>readIni


func StartButton()
	$buttonLab = "Pause"

	$PID = GuiCtrlRead($combodat)
	_GetHwndFromPID($PID)

	GuiCtrlSetData($botLabel, "Bot Running")
	GuiCtrlSetData($startButton, $buttonLab)
	GuiCtrlSetOnEvent($startButton, "PauseButton")

	$looping = 1
EndFunc   ;==>StartButton

func PauseButton()
	$buttonLab = "Start"

	GuiCtrlSetData($botLabel, "Bot Paused")
	GuiCtrlSetData($startButton, $buttonLab)
	GuiCtrlSetOnEvent($startButton, "StartButton")
	$looping = 0
EndFunc   ;==>PauseButton

func HelpMenu()
	Local $file = Run('Notepad.exe ' & @AppDataDir & '\Moxzbot\Help.txt')
EndFunc   ;==>HelpMenu


;THISCODEISNTMINE
func populate()
	Local $list = ProcessList("WoW.exe")
	For $i = 1 To $list[0][0]
		GUICtrlSetData($combodat, $list[$i][1], $list[1][1])
	Next
EndFunc   ;==>populate

Func _GetHwndFromPID($PID)
	$hWnd = 0
	$stPID = DllStructCreate("int")
	Do
		$winlist2 = WinList()
		For $i = 1 To $winlist2[0][0]
			If $winlist2[$i][0] <> "" Then
				DllCall("user32.dll", "int", "GetWindowThreadProcessId", "hwnd", $winlist2[$i][1], "ptr", DllStructGetPtr($stPID))
				If DllStructGetData($stPID, 1) = $PID Then
					$hWnd = $winlist2[$i][1]
					ExitLoop
				EndIf
			EndIf
		Next
		Sleep(100)
	Until $hWnd <> 0
	Return $hWnd
EndFunc   ;==>_GetHwndFromPID
;THISHAH

-if you wish to distribute this or use it in any other way, i only ask that you don't claim it as your work, and refer to my original post.

[Donate]

Changelog:
v2.3
updated for 6.2
Can no longer follow

Changelog:
v2.2
fixed some directory stuff...

v2.1
Fixed a glitch where you couldn't change/save any settings.
Help file is now viewable.

v2
completely re-scripted the whole program, added customization via keybinds/timers/multiple clients.

[chochobob]

downloaded and works... but where do i put the macros? do i make them in game or does the bot auto use them?

---------- Post added at 07:12 PM ---------- Previous post was at 07:10 PM ----------

and it is just opening all my bags...

[kakkygrecko]

because you have to create the macros and keybind them accordingly, sorry for the confusion, i fixed the post ^.^

[witchdoc]

Legit bot, been running for a while with no problems. +Rep

[tsunayoshi]

only problem i'm having is that i can't run this on my lower than 85 toons. Besides that, great job. +rep

edit: forget what i said, it was a conflicting script, Its working perfectly now, thanx

[Poisons]

Simple, and Effective.
Cheers bro, helped me get some honor on my Pre 85 chars.

[GoneGanja]

Works like a charm,it's a nice break from Honorbuddy's fail WSG scripts.

[daviscory]

Could I get some assistance with getting these scripts to work? I've filled in to the best of my ability the user input portions of the script, and I've removed the [harm] bit because I'm a healer but i doubt that's where my issue stems from.

-- Edit: The script works great, I was binding on F1, F2, F3 instead of the proper F10, F11, F12

-- In Addition, can someone show (if there's a way) to cast more than one spell, I'd like to use Holy Shock, then Word of Glory after three casts

-- Self found answer, a simple cast sequence will work, and it needs the [combat] modifier

[jereminion]

thx ive been using this for a while. it works good as anti afk, and people dont notice im following them usually. the problem is: many times you wont attack. maybe you should include an F9 which is a spam button to allow you to attack instead of having it all in 1 macro which makes a low chance of your character attacking

[Poisons]

I woke up this morning after running it and there was a request from ZoneAlarm ( My firewall) saying Moxzbot tried to access the internet. Is there any reason for this?
I'd really appreciate a reply.

[daviscory]

@ Poisons - WoW uses internet, this program accesses WoW, thus your alert occurred.

In the future though, don't worry about anything to do with firewalls if your going to be hacking.

[ThisGuyIsWrong]

@ Poisons - WoW uses internet, this program accesses WoW, thus your alert occurred.

In the future though, don't worry about anything to do with firewalls if your going to be hacking.

I created this account simply because I could not let your comment go unanswered. You are 100% absolutely, completely, and undeniably wrong. When I read your post, I died a little bit inside.

On a positive note, you are remarkably literate for somebody afflicted with down syndrome. You have helped me realize I can accomplish anything in life if I just try hard enough.

[daviscory]

I created this account simply because I could not let your comment go unanswered. You are 100% absolutely, completely, and undeniably wrong. When I read your post, I died a little bit inside.

On a positive note, you are remarkably literate for somebody afflicted with down syndrome. You have helped me realize I can accomplish anything in life if I just try hard enough.

I personally, am aware of how these systems work, with his apparent low level of "grasp" for this topic it is the best advice that I can give. Flooding text with how to tell this and how to tell that would be a lost cause, it's either hack, trust community, and don't worry about your firewall or don't hack for him.

Undeniably is a tad more intense than necessary with the claims you were trying to make, considering that in context they are very deniable.

[Poisons]

@ Poisons - WoW uses internet, this program accesses WoW, thus your alert occurred.

1) I never said that this program was "bad" in anyway, just wanted to know what reason
it needed to access the internet. I presume for updates or something.
2) That's utter bullshit. If program B relies on program A which uses the internet, Program B does not need to use the internet itself if it is using simple 3 button command.

[kakkygrecko]

Moxz bot in no way directly accesses internet.
it sends keys directly to your World of Warcraft process at certain timed intervals

it was coded with autoit and passed the VirusTotalScan 100% clean.