How to make a hotkey to enable more hotkeys?

[XInFisk]

Hi, anyone know how i make a hotkey enable so i can use 5, 6, 7, 8, 9 and 0 to hotkeys? i mean when i push lets say Page up it will able me to use 5 to say hi and 6 to say lets go and 7 to say roger that and when i push Page Down it will disable me to use 5, 6, 7, 8, 9 and 0 to hotkeys? Do anyone understand me?

-XInFisk

Edited July 2, 2006 by XInFisk

[Simucal]

This will do it for you:

expandcollapse popup

HotKeySet("{PGUP}", "_SetKeys")
HotKeySet("{PGDN}", "_UnSetKeys")

While 1
    Sleep(100)
WEnd


Func _SetKeys()
    Beep(700, 100) ; Beep to let you know it reset the hotkeys
    For $i = 5 to 10
        HotKeySet(StringRight($i,1), "_Func"&StringRight($i,1))
    Next
EndFunc

Func _UnSetKeys()
    Beep(500, 100) ; Beep to let you know it unset the hotkeys
    For $i = 5 to 10
        HotKeySet(StringRight($i,1))
    Next
EndFunc

Func _Func5()
MsgBox(0, "Func5", "This hotkey works!") ; Put your say "Roger" code here
EndFunc

Func _Func6()
MsgBox(0, "Func6", "This hotkey works!") ; Put your say "Hi" code here
EndFunc

Func _Func7()
MsgBox(0, "Func7", "This hotkey works!") ; etc, etc
EndFunc

Func _Func8()
MsgBox(0, "Func8", "This hotkey works!")
EndFunc

Func _Func9()
MsgBox(0, "Func9", "This hotkey works!")
EndFunc

Func _Func0()
MsgBox(0, "Func0", "This hotkey works!")
EndFunc

[XInFisk]

This will do it for you:

expandcollapse popup

HotKeySet("{PGUP}", "_SetKeys")
HotKeySet("{PGDN}", "_UnSetKeys")

While 1
    Sleep(100)
WEnd
Func _SetKeys()
    Beep(700, 100) ; Beep to let you know it reset the hotkeys
    For $i = 5 to 10
        HotKeySet(StringRight($i,1), "_Func"&StringRight($i,1))
    Next
EndFunc

Func _UnSetKeys()
    Beep(500, 100) ; Beep to let you know it unset the hotkeys
    For $i = 5 to 10
        HotKeySet(StringRight($i,1))
    Next
EndFunc

Func _Func5()
MsgBox(0, "Func5", "This hotkey works!") ; Put your say "Roger" code here
EndFunc

Func _Func6()
MsgBox(0, "Func6", "This hotkey works!") ; Put your say "Hi" code here
EndFunc

Func _Func7()
MsgBox(0, "Func7", "This hotkey works!") ; etc, etc
EndFunc

Func _Func8()
MsgBox(0, "Func8", "This hotkey works!")
EndFunc

Func _Func9()
MsgBox(0, "Func9", "This hotkey works!")
EndFunc

Func _Func0()
MsgBox(0, "Func0", "This hotkey works!")
EndFunc

Thanks for a fast reply.. <3

-XInFisk