Jump to content

Not 'Send'ing?


Recommended Posts

AutoItSetOption("SendKeyDelay", 10)
HotKeySet ("+{F1}", "StartScan")
HotKeySet ("+{F2}", "StopScan")
HotKeySet ("+{F3}", "ExitScanner")

While 1
Sleep (100)
Wend

Func StartScan()
WinWaitActive ("Tibia")
Do
 sleep (100)
 send ("^{NUMPAD8}")
 send ("^{NUMPAD2}")
 $coord = PixelSearch( 850, 300, 1024, 768, 0x80ACE8, 20)
Until NOT @error
send ("^{L}")
MsgBox (0, "Logged!", "You logged at " & @Hour & ":" & @min & ":" & @sec)
Endfunc

Func StopScan()
While 1
Sleep(6000)
WEnd
Endfunc

Func ExitScanner()
Msgbox (0, "Exit", "Exiting Forge AutoLog")
Exit
EndFunc

Problem it doesn't send Numpad8 and 2

Link to comment
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
 Share

  • Recently Browsing   0 members

    • No registered users viewing this page.
×
×
  • Create New...