Autoit3 -> AHK?

[Jacqueline]

I've noticed more people use Autoit3 for scripting, but I personally prefer AHK. But does Autoit3 scripting work the same way as AHK?

I've seen some useful scripts here, especially for weaving (which is what I need) but I really don't like the fact that I can't pause the script (even if I press the pausing hotkey, it just doesn't stop for some reason).

Let's say I'm using this Autoit3 script to weave my cobwebs:

 Spoiler

#include <ImageSearch.au3>
MsgBox(0,"Yeah!","get'em GEWD!",5)
Global $Paused
HotKeySet("!{ESC}", "Stop")
$x1=0
$y1=0

While (1)
Send ("{LALT down}")
sleep(100)
$result=_ImageSearch("wheel.bmp",1,$x1,$y1,70)
if $result=1 Then
MouseMove($x1,$y1,3)
sleep(500)
MouseClick("left")
EndIf
$result2= _ImageSearch("webs.bmp",1,$x1,$y1,102)
if $result2=1 Then
MouseMove($x1,$y1,3)
MouseClickDrag("left",$x1,$y1,70,550)
sleep(100)
MouseClick("left")
sleep(100)
MouseMove(160,615)
sleep(300)
MouseClick("left")
sleep(6000)
EndIf
if $result2=0 Then
Sleep(999999)
EndIf
WEnd

Would this work for AHK as well, or do I need to make some changes for it to work for AHK? Any help is appreciated, thanks.

[Theri]

The syntax is different for ahk, do a google search on converting au3 to ahk, pretty sure there's a really simple utility to do it for you.

imo au3 syntax is much nicer and better to work with than ahk but that's neither here nor there.

Why would you sleep for 999999 <.<

[Jacqueline]

Actually, I'll give Autoit3 one more try. But my current issue is that I get an error when trying to start the script above:

AutoIt Error
"Line 16 (file blah blah blah blah\auto_weave.au3):

HotKeySet("{PAUSE},"TogglePause")

Error: Unknown function name.

^What's wrong with that? I don't see errors in the script. Besides, I have the other pickup cobweb script with the same hotkey line, yet it runs perfectly?

[Theri]

HotKeySet("{PAUSE},"TogglePause")

Errors because you didn't create a function called TogglePause.

[Jacqueline]

Thanks, I never noticed that, I only noticed to put a function called Stop.

Now I got it to run, but the script doesn't help me in anyway I don't know whether I need to make new coordinates to have it work on my resolution or not, but I've also noticed that it doesn't seem to click properly either. I fail at scripting.

Edit: I'm using PNG as the image files, could that be a problem to this?

[Theri]

Not really sure how its behaving versus what you are expecting to be able to help you.

[Jacqueline]

I don't know, but for some reason the scripts don't work properly when I use a transparented background image, whereas if I use a normal one (with background), it works better :s I changed the transparented backgrounds from PNG to GIF now, still doesn't work as well as the JPG.

And I still can't pause/stop the script even if I press ESC, I have to stop the script manually which is really annoying.

[Theri]

You should stick to bmp or gif file formats, jpg are ok. Don't use anything else. Alpha transparency doesn't work as far as I can tell.. Read the imagesearch documentation for ahk, its the same for autoit. If for instance you want to match a word you could paint the non font areas to a solid color, like black, and set transparency to transblack in the imagesearch function call. (This is the only form of "transparency" I've noticed to work through my testing).

See my post in the sub forum or the imagesearch documentation.

The code you posted only has one hotkey and that is esc which is calling a function called stop. I'm not sure if that is the hotkey that isn't working, try setting it to use a-z instead. I set a hotkey to x and it works fine.

Edit:
HotKeySet("!{ESC}", "Stop") is incorrect.

Take out the !.

[Jacqueline]

Hm, I just tried using X as my hotkey, still doesn't stop the script. I think that's mainly the problem for me right now, since if I were to reduce sleeping time to 1000 or less, it'd be almost impossible to stop the script manually.

What I've noticed though is that while running the script, it disables my keyboard (Can't type, can't use any mabi hotkeys, etc). What could be the problem :s?

[Jacqueline]

Originally Posted by Theri

Edit:
HotKeySet("!{ESC}", "Stop") is incorrect.

Take out the !.

As much as I hoped for that to work, it didn't T_T Looks like I'll have to manually stop the script all the time. Gosh, Autoit3 hates me.

I greatly appreciate the help though, thanks.

[Infylos]

Originally Posted by Jacqueline

I've noticed more people use Autoit3 for scripting, but I personally prefer AHK. But does Autoit3 scripting work the same way as AHK?

I've seen some useful scripts here, especially for weaving (which is what I need) but I really don't like the fact that I can't pause the script (even if I press the pausing hotkey, it just doesn't stop for some reason).

Let's say I'm using this Autoit3 script to weave my cobwebs:

 Spoiler

#include <ImageSearch.au3>
MsgBox(0,"Yeah!","get'em GEWD!",5)
Global $Paused
HotKeySet("!{ESC}", "Stop")
$x1=0
$y1=0

While (1)
Send ("{LALT down}")
sleep(100)
$result=_ImageSearch("wheel.bmp",1,$x1,$y1,70)
if $result=1 Then
MouseMove($x1,$y1,3)
sleep(500)
MouseClick("left")
EndIf
$result2= _ImageSearch("webs.bmp",1,$x1,$y1,102)
if $result2=1 Then
MouseMove($x1,$y1,3)
MouseClickDrag("left",$x1,$y1,70,550)
sleep(100)
MouseClick("left")
sleep(100)
MouseMove(160,615)
sleep(300)
MouseClick("left")
sleep(6000)
EndIf
if $result2=0 Then
Sleep(999999)
EndIf
WEnd

Would this work for AHK as well, or do I need to make some changes for it to work for AHK? Any help is appreciated, thanks.

Do you actually use this script or was that just an example?

[Theri]

Partial placeholder, I'll post code to resolve the pause issue when I've had a time to grab lunch and work it out.

Update:

Looks like you have two options. You can either include misc.au3 in your scripts and use the _IsPressed function to check for the key presses and then run the proper code. This could probably work out ok depending on the script.

The other involves setting up like a virtual keyboard and then works in the expected way. Ill update again in a bit.

Update 2:

Here's the examples I found of how to do this. First is u sing misc.au3 and its _IsPressed() function and the second sort of hooks into the keyboard. I'm not sure why hotkeys work as expected in AHK and not AutoIt.

#include <Misc.au3>
$dll = DllOpen("user32.dll")

While 1
    If _IsPressed("1b", $dll) Then
        MsgBox(0,"Pressed","Esc")
        ExitLoop
    EndIf
WEnd
DllClose($dll)

Second example.

#include <WinAPI.au3>
#include <WindowsConstants.au3>

Global Const $VK_DELETE = 0x2E
Global Const $VK_ESCAPE = 0x1B

Global $hFunc, $pFunc
Global $hHook
Global $hMod
Global $fPauseBot = False

$hFunc = DllCallbackRegister('_KeyboardHook', 'lresult', 'int;uint;uint')
$pFunc = DllCallbackGetPtr($hFunc)

$hMod = _WinAPI_GetModuleHandle(0)
$hHook = _WinAPI_SetWindowsHookEx($WH_KEYBOARD_LL, $pFunc, $hMod)

While 1
    If $fPauseBot Then
        _UnsetHotKeys()
        While $fPauseBot
            Sleep(20)
        WEnd
        _ResetHotKeys()
    EndIf
    Sleep(20)
WEnd


Func OnAutoItExit()
    _WinAPI_UnhookWindowsHookEx($hHook)
    DllCallbackFree($hFunc)
EndFunc


Func _UnsetHotKeys()
    HotKeySet("+!d")
EndFunc


Func _ResetHotKeys()
    HotKeySet("+!d", "ShowMessage");Shift-Alt-d
EndFunc


Func ShowMessage()
    MsgBox(0x40, 'Title', 'Text')
EndFunc


Func _KeyboardHook($iCode, $iwParam, $ilParam)
    Local $tKBDLLHS = DllStructCreate($tagKBDLLHOOKSTRUCT, $ilParam)
    Local $iVkCode
    
    If $iCode > -1 Then
        $iVkCode = DllStructGetData($tKBDLLHS, 'vkCode')
        If $iwParam = $WM_KEYUP Then
            Switch $iVkCode
                Case $VK_ESCAPE
                    Exit
                Case $VK_DELETE
                    $fPauseBot = Not $fPauseBot ; Was $fPauseBot = True.
            EndSwitch
        EndIf
    EndIf
    
    Return _WinAPI_CallNextHookEx($hHook, $iCode, $iwParam, $ilParam)
EndFunc

This code is not mine, both come from the AutoIt forums. I will probably rewrite and include a modified version of the second in my bot functions at a later date.

[Theri]

Hate to double post but I'm sure we can deal.

Here's what you need from the 2nd example code.

#include <WinAPI.au3>
#include <WindowsConstants.au3>

Global Const $VK_DELETE = 0x2E
Global Const $VK_ESCAPE = 0x1B

Global $hFunc,$pFunc,$hHook,$hMod

$hFunc = DllCallbackRegister('_KeyboardHook', 'lresult', 'int;uint;uint')
$pFunc = DllCallbackGetPtr($hFunc)

$hMod = _WinAPI_GetModuleHandle(0)
$hHook = _WinAPI_SetWindowsHookEx($WH_KEYBOARD_LL, $pFunc, $hMod)

Func _KeyboardHook($iCode, $iwParam, $ilParam)
    Local $tKBDLLHS = DllStructCreate($tagKBDLLHOOKSTRUCT, $ilParam)
    Local $iVkCode
    
    If $iCode > -1 Then
        $iVkCode = DllStructGetData($tKBDLLHS, 'vkCode')
        If $iwParam = $WM_KEYUP Then
            Switch $iVkCode
                Case $VK_ESCAPE
			; code to do on escape press
                Case $VK_DELETE
			; code to do on pause.
            EndSwitch
        EndIf
    EndIf
    
    Return _WinAPI_CallNextHookEx($hHook, $iCode, $iwParam, $ilParam)
EndFunc

You cant do while loops but you can do whatever so you can get a sleep in to pause for whatever length, just not indefinitely.

Codes for the keys.

 Spoiler

;                  01 Left mouse button
;                  02 Right mouse button
;                  04 Middle mouse button (three-button mouse)
;                  05 Windows 2000/XP: X1 mouse button
;                  06 Windows 2000/XP: X2 mouse button
;                  08 BACKSPACE key
;                  09 TAB key
;                  0C CLEAR key
;                  0D ENTER key
;                  10 SHIFT key
;                  11 CTRL key
;                  12 ALT key
;                  13 PAUSE key
;                  14 CAPS LOCK key
;                  1B ESC key
;                  20 SPACEBAR
;                  21 PAGE UP key
;                  22 PAGE DOWN key
;                  23 END key
;                  24 HOME key
;                  25 LEFT ARROW key
;                  26 UP ARROW key
;                  27 RIGHT ARROW key
;                  28 DOWN ARROW key
;                  29 SELECT key
;                  2A PRINT key
;                  2B EXECUTE key
;                  2C PRINT SCREEN key
;                  2D INS key
;                  2E DEL key
;                  30 0 key
;                  31 1 key
;                  32 2 key
;                  33 3 key
;                  34 4 key
;                  35 5 key
;                  36 6 key
;                  37 7 key
;                  38 8 key
;                  39 9 key
;                  41 A key
;                  42 B key
;                  43 C key
;                  44 D key
;                  45 E key
;                  46 F key
;                  47 G key
;                  48 H key
;                  49 I key
;                  4A J key
;                  4B K key
;                  4C L key
;                  4D M key
;                  4E N key
;                  4F O key
;                  50 P key
;                  51 Q key
;                  52 R key
;                  53 S key
;                  54 T key
;                  55 U key
;                  56 V key
;                  57 W key
;                  58 X key
;                  59 Y key
;                  5A Z key
;                  5B Left Windows key
;                  5C Right Windows key
;                  60 Numeric keypad 0 key
;                  61 Numeric keypad 1 key
;                  62 Numeric keypad 2 key
;                  63 Numeric keypad 3 key
;                  64 Numeric keypad 4 key
;                  65 Numeric keypad 5 key
;                  66 Numeric keypad 6 key
;                  67 Numeric keypad 7 key
;                  68 Numeric keypad 8 key
;                  69 Numeric keypad 9 key
;                  6A Multiply key
;                  6B Add key
;                  6C Separator key
;                  6D Subtract key
;                  6E Decimal key
;                  6F Divide key
;                  70 F1 key
;                  71 F2 key
;                  72 F3 key
;                  73 F4 key
;                  74 F5 key
;                  75 F6 key
;                  76 F7 key
;                  77 F8 key
;                  78 F9 key
;                  79 F10 key
;                  7A F11 key
;                  7B F12 key
;                  7C-7F F13 key - F16 key
;                  80H-87H F17 key - F24 key
;                  90 NUM LOCK key
;                  91 SCROLL LOCK key
;                  A0 Left SHIFT key
;                  A1 Right SHIFT key
;                  A2 Left CONTROL key
;                  A3 Right CONTROL key
;                  A4 Left MENU key
;                  A5 Right MENU key
;                  BA ;
;                  BB =
;                  BC ,
;                  BD -
;                  BE .
;                  BF /
;                  C0 `
;                  DB [
;                  DC \
;                  DD ]