[Program] Simple AntiAFK

[Newbs_r_us]

Im sure you must be thinking "OMFG not another antiafk script!"

Well if you are, just select the back button on you browser and be on your way.

Anyways, as of late i have been trying to work on my AutoIt skills a bit more and today i was a little bored so i whipped this up. It is a very simple, super easy to use AntiAFK bot for those pesky times you need to do something, but do not want to log out.

What this bot does is randomly every 5-60 seconds it moves you ever so slighty to the left, then to the right using "q" and "e" as the strafe buttons. This may require some code changing, or hotkey switching if those are changed around for you.

To use this bot simply double click the exe and window back into WoW. To start it just hit Alt+F1 and you are all set. After starting it for the first time hit Alt+F1 to pause/unpause it at any time. To close this script without windowing out of the game simply hit Alt+F2. Thats it. Pretty simple eh?

Here is a pic of the virus scan: http://img337.imageshack.us/img337/3...russcanjm8.png
Just the basic AutoIt v3 falsehoods.

If anyone has any suggestions on how to improve this, they would be greatly appreciated. All for the sake of learning new things. Yay. Anyways If you have any questions just PM me or ask em here and ill gladly answer.

SOURCE:

;Newbs_r_us's Simple AntiAFK Bot!
;Made for the simple reason of working on my AutoIt Skills
;Enjoy =)

$AntiAFK= "Simple AntiAFK v1.0"
$WoW= "World of Warcraft"
$Pause = 1
AutoItSetOption("SendKeyDownDelay", Random(100-150)) 

HotKeySet("!{F1}", "ToggleOnOff")
HotKeySet("!{F2}", "ToggleExit")

$AnswerStart = MsgBox(4,  $AntiAFK , "This bot will make you jump randomly every 5-60 seconds."& chr(13) &""& chr(13) &"To start the bot press Alt+F1 and afterwards press this at any time to pause or unpause the script."& chr(13) &"Also, press Alt+F2 at any time to exit this script."& chr(13) &""& chr(13) &"Would you Like to continue?")
    If $AnswerStart = 7 Then
        Exit
    EndIf
  
While (1)
    If (WinExists($WoW) AND $Pause = -1 AND $AnswerStart= 6) Then
        Sleep(Random(5, 60) * 1000)
        ControlSend($WoW, "", "", "q")
        Sleep(Random(5, 60) * 1000)
        ControlSend($WoW, "", "", "e")
    EndIf
WEnd
Exit

Func ForceWindow($Window)
    WinSetState($Window, "", @SW_MAXIMIZE)
    WinWaitActive($Window, "", 5000)
    Sleep(2000)
EndFunc 

Func ToggleOnOff()
    HotKeySet("+{F1}")
    If ($Pause = 1) Then
        ToolTip("AntiAFK active!", 0, 0)
        Beep(1500, 200)
    Else
        ToolTip("AntiAFK disabled!", 0, 0)
        Beep(500, 200)
    EndIf
    $Pause = $Pause * (-1)
    Sleep(1000)
    ToolTip("")
    HotKeySet("+{F1}", "ToggleOnOff")
EndFunc

Func ToggleExit()
    HotKeySet("!{F1}")
    $AnswerExit= MsgBox(4, $AntiAFK, "Are you sure you would like to exit AntiAFK?")
    If $AnswerExit= 6 Then
        Exit
    EndIf    
    HotKeySet("!{F2}", "ToggleExit")
EndFunc

Feel free to bend this code to your will.

-----)(Please leave the copyright text intact)(-----
This post is copyright by the user posting it and MMOwned.com - World of Warcraft Exploits,Hacks, Bots and Guides, where it was posted. You may not copy or reproduce this information on any other site without written permission from both the poster and MMOwned.com

[maikash]

Good Job, I'd give rep but there is sooo many afk bots, oh well +rep.

[Broskbenny]

What exactly can this be used for?

- AV and AB afking?
- Fishing?

Anything else?

[wickermanz]

nice one +rep

[krlhnz]

EDIT: this doesnt work for me ^^

[Newbs_r_us]

EDIT: this doesnt work for me ^^

Oh, i asure you that it works. The movement is so small you cannot even see it, but it keeps the AFK off. Test it by typing /afk and within those 5-60 sec it will be taken off with the tiny movement.

What exactly can this be used for?

- AV and AB afking?
- Fishing?

Anything else?

All this does is a simple script to keep you from going AFK. Im sure it could be used as a BG AFK bot, but you'd need a Auto-clicker or soemting to reque

[Aqqu]

this pwns.