Use a hotkey to send the same key as the hotkey without triggering itself?

[GarGar]

I'm trying to make a macro that will spam the 1 key as long as I'm holding it down (as in repeatedly press and release until I release the hotkey.) But what it does is do a loop of the hotkey triggering itself which does absolutely nothing. I'm wondering if there's a way to work around this somehow?

Another example is if I'm trying to make the hotkey "h" send the string "hello", if I do this it inputs 'ello' and triggers itself, which inputs 'ello' again and continues until I terminate it.

Here's the code I'm working with

Global $Paused
HotKeySet("{END}", "Terminate")
HotKeySet("1", "one")

While 1
WEnd

Func Terminate()
    Exit 0
EndFunc

Func one()
    While 1
        Send("1")
        sleep(2)
    WEnd
EndFunc

I'll try to be reasonable, I haven't worked with AutoIt much.

[Steveiwonder]

This does the trick.

#Include <Misc.au3>
While 1
    If _IsPressed(31) Then
        Send("Realse to stop me!" & @CRLF)
    EndIf
WEnd

See here for list of key codes.

http://www.kbdedit.com/manual/low_level_vk_list.html

[GarGar]

This does the trick.

#Include <Misc.au3>
While 1
    If _IsPressed(31) Then
        Send("Realse to stop me!" & @CRLF)
    EndIf
WEnd

See here for list of key codes.

http://www.kbdedit.com/manual/low_level_vk_list.html

Ah, this is a step in the right direction, thank you. Now I can send the key, but I've been playing with it and I can't figure out how to make it press and release the key repeatedly until the hotkey is released, rather than just have it press 1 when I press the hotkey and release 1 when I release the hotkey, which is pretty redundant as it does that anyway.

Thanks for any help

[GEOSoft]

You should unset the hotkey when you enter the function and then reset it before returning.

HotKeySet("1", "0ne")

Func One()
    HotKeySey("1")
    $dll = DllOpen("user32.dll")
    While _IsPressed(31)
        ;; do what you want here.
    WEnd
    DllClose($dll)
    HotKeySet("1", "One")
EndFunc

[GarGar]

It's getting closer, I just don't know what else to do from here.

If I do this, it does the same thing it did last post:

HotKeySet("1", "one")

Func one()
    HotKeySet("1")
    $dll = DllOpen("user32.dll")
    While _IsPressed(31)
        send("1")
        sleep(1)
    WEnd
    DllClose($dll)
    HotKeySet("1", "One")
EndFunc

However, if I do this, it sends a 1 continuously until I terminate, even if I've released the key:

HotKeySet("1", "one")

Func one()
    HotKeySet("1")
    $dll = DllOpen("user32.dll")
    While _IsPressed(31)
        While 1
            send("1")
            sleep(1)
        WEnd
    WEnd
    DllClose($dll)
    HotKeySet("1", "One")
EndFunc

What I'd think I need is a way to stop the loop, or return to:

While 1

WEnd

upon release of the hotkey, but I don't know how to do that. If not, maybe someone has a different way?

I know this all must be very simple and perhaps sounds redundant, but I am learning.

Thanks again for all the help.

[GEOSoft]

It's going to stay in the second loop forever the way you have it. The line I added should not be required nor should that sleep(). Take a look at Opt("SendKeyDelay").

HotKeySet("1", "one")

Func one()
    HotKeySet("1")
    $dll = DllOpen("user32.dll")
    While _IsPressed(31)
        send("1")
        sleep(1)
        If NOT _IsPressed(31) Then ExitLoop
    WEnd
    DllClose($dll)
    HotKeySet("1", "One")
EndFunc

Edited April 5, 2010 by GEOSoft

[GarGar]

Ah, there we go, that's all it was missing, that fixes it up perfectly.

Thanks for the help and the knowledge.