Wow - Anti AFK script.

[Psiksenz]

HiHo guys!

Well, I found this script a few months ago here in this forum as well.... and it worked perfect !!!

You can do other stuff while "getting" honor....

F9 hides even ur wow, F10 recovers it..

And it randomly moves ur player(!!!)

BUT:

I didnt use it quite a while and some easy syntax errors got into it.. I DONT KNOW

HERE THE SCRIPT, would be pleased for some corrections ^^

the end looks suspicous, but ...hmm^^

HotKeySet("{F9}", "hide")

HotKeySet("{F10}", "show")

AutoItSetOption("WinTitleMatchMode", 4)

While 1

Sleep(1000)

WEnd

Func hide()

Global $Show = 0

Global $handle = WinGetHandle("classname=GxWindowClassD3d")

WinSetState($handle, "", @SW_MINIMIZE)

WinSetState($handle, "", @SW_HIDE)

If @error Then

MsgBox(0, "error", "couldnt find WoW")

Else

While 1

$unique = Random(1, 4, 1)

If $unique = 1 Then

ControlSend($handle, "", "", "{UP DOWN}")

Sleep(100 + Random(1, 50, 1))

ControlSend($handle, "", "", "{UP UP}")

ControlSend($handle, "", "", "{DOWN DOWN}")

Sleep(100 + Random(1, 50, 1))

ControlSend($handle, "", "", "{DOWN UP}")

Sleep(200000 + Random(5000, 15000, 1))

ElseIf $unique = 2 Then

ControlSend($handle, "", "", "{RIGHT DOWN}")

Sleep(100 + Random(1, 50, 1))

ControlSend($handle, "", "", "{RIGHT UP}")

ControlSend($handle, "", "", "{LEFT DOWN}")

Sleep(100 + Random(1, 50, 1))

ControlSend($handle, "", "", "{LEFT UP}")

Sleep(200000 + Random(5000, 15000, 1))

ElseIf $unique = 3 Then

ControlSend($handle, "", "", "{DOWN DOWN}")

Sleep(100 + Random(1, 50, 1))

ControlSend($handle, "", "", "{DOWN UP}")

ControlSend($handle, "", "", "{UP DOWN}")

Sleep(100 + Random(1, 50, 1))

ControlSend($handle, "", "", "{UP UP}")

Sleep(200000 + Random(5000, 15000, 1))

ElseIf $unique = 4 Then

ControlSend($handle, "", "", "{LEFT DOWN}")

Sleep(100 + Random(1, 50, 1))

ControlSend($handle, "", "", "{LEFT UP}")

ControlSend($handle, "", "", "{RIGHT DOWN}")

Sleep(100 + Random(1, 50, 1))

ControlSend($handle, "", "", "{RIGHT UP}")

Sleep(200000 + Random(5000, 15000, 1))

EndIf

If $Show > 0 Then ExitLoop

WEnd

EndIf

EndFunc ;==>hide

Func show()

Global $Show = 1

WinSetState("World of W

is there some of this script missing?

[Polymorph]

yes, looks like...

but it work a few months ago

i think my virus scanner thought somehow that there is a line in that looks somehow suspicious!!!

I can remember that once it complained about this script........

well, actually I dont have any glue of repairing it ^^

thats why I need u guys

[Dae]

Yes part of it is missing, here's the topic by the author: http://www.edgeofnowhere.cc/viewtopic.php?t=305097

You're missing this part:

arcraft", "", @SW_SHOW)
   WinSetState("World of Warcraft", "", @SW_MAXIMIZE)
   WinActivate($handle, "")
EndFunc  ;==>show

There's also a better version on like pages 7-9 that turns left/right, instead of moving up/down, and fixes a bug.

[bajstro]

Can someone re-write this script and post it here so that you dont have to have the "World of Warcraft" window targeted while using it!?

WinWaitActive("World of Warcraft")

HotKeySet("{PAUSE}", "Start")

HotKeySet("!{PAUSE}","Quit")

TogglePause()

func Start()

HotKeySet("{PAUSE}")

HotKeySet("{PAUSE}", "TogglePause")

ToolTip('Zeby BGAFK zadzialal musisz miec okno wowa na wierzchu !!(nie mozesz przegladac stronek ani nic innego).',0,0)

While 1

Send("{SPACE}")

Sleep(Random(70000,120000))

WEnd

EndFunc

Func TogglePause()

ToolTip('Zeby BGAFK zadzialal musisz miec okno wowa na wierzchu !!(nie mozesz przegladac stronek ani nic innego).',0,0)

HotKeySet("{PAUSE}")

HotKeySet("{PAUSE}", "Start")

While 1

sleep(100)

WEnd

EndFunc

func Quit()

Exit

EndFunc

Edited August 22, 2007 by bajstro

[qazwsx]

If you want to click in the window couldnt you just hide the window and then use control click?