Jump to content

Recommended Posts

Sorry, script stripped because I found someone trying to sell it... no changes to the program at all. (lamers need to die -.-)

I made this so I would not go AFK from being away for more than 5 minutes while playing World of Warcraft since there is no way to prevent it.

It works down to exiting the program AFTER clicking "start"... There is will not close. :o

Anyway, I am new to AutoIt and the forum, Hi. :geek:

Edited by the_OG
Link to post
Share on other sites

maybe

Case $scr1 = $start
        MsgBox(0,"Anti-AFK", "Running nAnti-AFK, please switch over to WoW.")
        While WinWaitActive("World of Warcraft") <> 1
        sleep(5000)
        Send ( "{SPACE}", 0)
        WEnd    
        ExitLoop

8)

BTW

Welcome to Autoit Forums

Edited by Valuater

NEWHeader1.png

Link to post
Share on other sites
  • Developers

different approach:

; Anti Away from Keyboard.
;      v.01
; by Nitu

#include <GuiConstants.au3>

GUICreate("nAnti AFK", 250, 100)
GUISetBkColor(0xaaaaaa)
Opt("TrayIconHide", 1)
;WinSetOnTop("nAnti AFK", "", 1)

GUISetState()

$file = GUICtrlCreateMenu("File")
$exit = GUICtrlCreateMenuItem("Exit", $file)
$info1 = GUICtrlCreateMenu("Info")
$info = GUICtrlCreateMenuItem("About", $info1)
$start = GUICtrlCreateButton("Start", 13, 30, 70, 20)
$stop = GUICtrlCreateButton("Close", 86, 30, 70, 20)

GUICtrlCreateGroup("Options", 5, 7, 160, 60)

While 1
    
    $scr1 = GUIGetMsg()
    Select
        Case $scr1 = $GUI_EVENT_CLOSE
            Exit
            
        Case $scr1 = $exit
            Exit
            
        Case $scr1 = $info
            MsgBox(0, "About", "World of Warcraft Anti-AFK.")
            
        Case $scr1 = $start
            MsgBox(0, "Anti-AFK", "Running nAnti-AFK, please switch over to WoW.")
            AdlibEnable("sendspace", 5000)
            
        Case $scr1 = $stop
            MsgBox(0, "Anti-AFK", "Exiting Anti-AFK loop.")
            AdlibDisable()
    EndSelect
WEnd

Func sendspace()
    Send("{SPACE}", 0)
EndFunc ;==>sendspace
Edited by JdeB

SciTE4AutoIt3 Full installer Download page   - Beta files       Read before posting     How to post scriptsource   Forum etiquette  Forum Rules 
 
Live for the present,
Dream of the future,
Learn from the past.
  :)

Link to post
Share on other sites

Hmm, neither seemed to work quite as wanted. :o

I am trying to get the script to exit after the user presses "Start", right now, if Start is pressed, the user cannot exit the program without the help of ctrl alt delete, When I first tested the script in a friends msn window, the thing almost forced me to shut the computer down. ;)

Got rid of that problem by adding "while 2 = 2" before "WinWaitActive("World of Warcraft")".

This closing has been the plague though. And I do not know how to fix it... :geek:

I'll try solving it, for learning, but help is very much appreciated.

Oh one more thing, the function of this was to make the player jump while they were away, to restart the away from they keyboard timer. Jumping in World of Warcraft is done by pressing the space bar, hence the "Send ("{SPACE}", 0)". :sorcerer:

Edited by the_OG
Link to post
Share on other sites

Create an account or sign in to comment

You need to be a member in order to leave a comment

Create an account

Sign up for a new account in our community. It's easy!

Register a new account

Sign in

Already have an account? Sign in here.

Sign In Now
  • Recently Browsing   0 members

    No registered users viewing this page.

×
×
  • Create New...