Code:
#NoTrayIcon
$Title = "World of Warcraft"
If Not WinExists($Title) and Not ProcessExists("wow.exe") Then
MsgBox(16,"Error:","Error: Could not locate 'World of Warcraft'." & chr(13) & _
"Please run 'World of Warcraft' before using this program.")
Exit
EndIf
$s = 0
HotKeySet("{F1}", "Start")
HotKeySet("{F2}", "Stop")
HotKeySet("{F3}", "end")
HotKeySet("{F4}", "about")
Opt("SendKeyDownDelay", 5)
MsgBox ( 64, "Undetectable Anti AFK Bot 1.0 By Bind", "Hotkeys:" & chr(13) & chr(13) & "F1 = Start Bot" & chr(13) & "F2 = Stop Bot" & chr(13) & "F3 = Exit Program" & chr(13) & "F4 = About Program" )
While 1
While $s = 1
ControlSend("World of Warcraft", "", "", "{LEFT}")
Sleep(random (5000,60000))
ControlSend("World of Warcraft", "", "", "{RIGHT}")
Sleep(random (5000,60000))
WEnd
WEnd
Func Start()
$s = 1
WinSetState("World of Warcraft", "", @SW_HIDE)
EndFunc
Func Stop()
$s = 0
WinSetState("World of Warcraft", "", @SW_SHOW)
EndFunc
Func end()
Msgbox ( 64, "Undetectable Anti AFK Bot 1.0 By Bind", "Program terminating, Have a nice day!" )
Exit
EndFunc
Func about()
MsgBox ( 32, "Undetectable Anti AFK Bot 1.0 By Bind", "This program was designed to prevent WoW from kicking your character" & chr(13) & _
"off the server for inactivity." & chr(13) & chr(13) & _
"This program makes your character in game move very slightly to the" & chr(13) & _
"left and then back to the right on a random timeout seed of between" & chr(13) & _
"5 and 60 second intervals." & chr(13) & chr(13) & _
"Since the movement is so very slight, its highly doubtful anyone" & chr(13) & _
"will even notice you using it." & chr(13) & chr(13) & _
"This program will also work if you alt+tab and minimize WoW!" & chr(13) & chr(13) & _
"The chances of this program ever getting your account suspended" & chr(13) & _
"is probably slim to none however, USE WITH CAUTION!" & chr(13) & chr(13) & _
"-bind" )
EndFunc