Sign in to follow this  
Followers 0
James

InputBox Button pressed

8 posts in this topic

#1 ·  Posted (edited)

Hey all,

For my latest project I need to know how to find if a key is pressed and which one.

Case $iMsg = $HotKey
            Local $Dll = "user32.dll"
            For $Key = Asc(10) To Asc(12)
                $Pressed = _IsPressed($Key, $Dll)
                If $Pressed = "10" Then
                    GUICtrlSetData($HotKey, "Shift + ")
                ElseIf $Pressed = "11" Then
                    GUICtrlSetData($HotKey, "Ctrl + ")
                ElseIf $Pressed = "12" Then
                    GUICtrlSetData($HotKey, "Alt + ")
                EndIf
            Next

I only need: Shift, Ctrl & Alt. Then I need to know which other key is being pressed and set the keys into a Inputbox.

Please help.

The possible key combinations I would like to allow:

Ctrl + F1-9/Numbers/Letters

Ctrl + Shift + F1-9/Numbers/Letters

Ctrl + Shift + Alt + F1-9/Numbers/Letters

Alt + F1-9/Numbers/Letters

Alt + Ctrl + F1-9/Numbers/Letters

etc etc.

-James

Edited by JamesB

Share this post


Link to post
Share on other sites



This is what i did...Strip it off

$Reciving = True
    Do
        For $i = 8 To 165
            If _IsPressed(Hex($i, 2)) Then
                $Hex = Hex($i, 2)
                If $Hex = "08" Then GUICtrlSetData($keyinput, "{" & "BACKSPACE" & "}")
                If $Hex = "09" Then GUICtrlSetData($keyinput, "{" & "TAB" & "}")
                If $Hex = "0C" Then GUICtrlSetData($keyinput, "{" & "ClEAR" & "}")
                If $Hex = "0D" Then GUICtrlSetData($keyinput, "{" & "ENTER" & "}")
                If $Hex = "10" Then GUICtrlSetData($keyinput, "{" & "SHIFT" & "}")
                If $Hex = "11" Then GUICtrlSetData($keyinput, "{" & "CTRL" & "}")
                If $Hex = "12" Then GUICtrlSetData($keyinput, "{" & "ALT" & "}")
                If $Hex = "13" Then GUICtrlSetData($keyinput, "{" & "PAUSE" & "}")
                If $Hex = "14" Then GUICtrlSetData($keyinput, "{" & "CAPS LOCK" & "}")
                If $Hex = "1B" Then GUICtrlSetData($keyinput, "{" & "ESC" & "}")
                If $Hex = "20" Then GUICtrlSetData($keyinput, "{" & "SPACEBAR" & "}")
                If $Hex = "21" Then GUICtrlSetData($keyinput, "{" & "PAGE UP" & "}")
                If $Hex = "22" Then GUICtrlSetData($keyinput, "{" & "PAGE DOWN" & "}")
                If $Hex = "23" Then GUICtrlSetData($keyinput, "{" & "END" & "}")
                If $Hex = "24" Then GUICtrlSetData($keyinput, "{" & "HOME" & "}")
                If $Hex = "25" Then GUICtrlSetData($keyinput, "{" & "LEFT ARROW" & "}")
                If $Hex = "26" Then GUICtrlSetData($keyinput, "{" & "UP ARROW" & "}")
                If $Hex = "27" Then GUICtrlSetData($keyinput, "{" & "RIGHT ARROW" & "}")
                If $Hex = "28" Then GUICtrlSetData($keyinput, "{" & "DOWN ARROW" & "}")
                If $Hex = "29" Then GUICtrlSetData($keyinput, "{" & "SELECT" & "}")
                If $Hex = "2A" Then GUICtrlSetData($keyinput, "{" & "PRINT" & "}")
                If $Hex = "2B" Then GUICtrlSetData($keyinput, "{" & "EXECUTE" & "}")
                If $Hex = "2C" Then GUICtrlSetData($keyinput, "{" & "PRINT SCREEN" & "}")
                If $Hex = "2D" Then GUICtrlSetData($keyinput, "{" & "INS" & "}")
                If $Hex = "2E" Then GUICtrlSetData($keyinput, "{" & "DEL" & "}")
                If $Hex = "30" Then GUICtrlSetData($keyinput, "{" & "0" & "}")
                If $Hex = "31" Then GUICtrlSetData($keyinput, "{" & "1" & "}")
                If $Hex = "32" Then GUICtrlSetData($keyinput, "{" & "2" & "}")
                If $Hex = "33" Then GUICtrlSetData($keyinput, "{" & "3" & "}")
                If $Hex = "34" Then GUICtrlSetData($keyinput, "{" & "4" & "}")
                If $Hex = "35" Then GUICtrlSetData($keyinput, "{" & "5" & "}")
                If $Hex = "36" Then GUICtrlSetData($keyinput, "{" & "6" & "}")
                If $Hex = "37" Then GUICtrlSetData($keyinput, "{" & "7" & "}")
                If $Hex = "38" Then GUICtrlSetData($keyinput, "{" & "8" & "}")
                If $Hex = "39" Then GUICtrlSetData($keyinput, "{" & "9" & "}")
                If $Hex = "41" Then GUICtrlSetData($keyinput, "{" & "A" & "}")
                If $Hex = "42" Then GUICtrlSetData($keyinput, "{" & "B" & "}")
                If $Hex = "43" Then GUICtrlSetData($keyinput, "{" & "C" & "}")
                If $Hex = "44" Then GUICtrlSetData($keyinput, "{" & "D" & "}")
                If $Hex = "45" Then GUICtrlSetData($keyinput, "{" & "E" & "}")
                If $Hex = "46" Then GUICtrlSetData($keyinput, "{" & "F" & "}")
                If $Hex = "47" Then GUICtrlSetData($keyinput, "{" & "G" & "}")
                If $Hex = "48" Then GUICtrlSetData($keyinput, "{" & "H" & "}")
                If $Hex = "49" Then GUICtrlSetData($keyinput, "{" & "I" & "}")
                If $Hex = "4A" Then GUICtrlSetData($keyinput, "{" & "J" & "}")
                If $Hex = "4B" Then GUICtrlSetData($keyinput, "{" & "K" & "}")
                If $Hex = "4C" Then GUICtrlSetData($keyinput, "{" & "L" & "}")
                If $Hex = "4D" Then GUICtrlSetData($keyinput, "{" & "M" & "}")
                If $Hex = "4E" Then GUICtrlSetData($keyinput, "{" & "N" & "}")
                If $Hex = "4F" Then GUICtrlSetData($keyinput, "{" & "O" & "}")
                If $Hex = "50" Then GUICtrlSetData($keyinput, "{" & "P" & "}")
                If $Hex = "51" Then GUICtrlSetData($keyinput, "{" & "Q" & "}")
                If $Hex = "52" Then GUICtrlSetData($keyinput, "{" & "R" & "}")
                If $Hex = "53" Then GUICtrlSetData($keyinput, "{" & "S" & "}")
                If $Hex = "54" Then GUICtrlSetData($keyinput, "{" & "T" & "}")
                If $Hex = "55" Then GUICtrlSetData($keyinput, "{" & "U" & "}")
                If $Hex = "56" Then GUICtrlSetData($keyinput, "{" & "V" & "}")
                If $Hex = "57" Then GUICtrlSetData($keyinput, "{" & "W" & "}")
                If $Hex = "58" Then GUICtrlSetData($keyinput, "{" & "X" & "}")
                If $Hex = "59" Then GUICtrlSetData($keyinput, "{" & "Y" & "}")
                If $Hex = "5A" Then GUICtrlSetData($keyinput, "{" & "Z" & "}")
                If $Hex = "5B" Then GUICtrlSetData($keyinput, "{" & "Left Windows" & "}")
                If $Hex = "5C" Then GUICtrlSetData($keyinput, "{" & "Right Windows" & "}")
                If $Hex = "60" Then GUICtrlSetData($keyinput, "{" & "NUMPAD 0" & "}")
                If $Hex = "61" Then GUICtrlSetData($keyinput, "{" & "NUMPAD 1" & "}")
                If $Hex = "62" Then GUICtrlSetData($keyinput, "{" & "NUMPAD 2" & "}")
                If $Hex = "63" Then GUICtrlSetData($keyinput, "{" & "NUMPAD 3" & "}")
                If $Hex = "64" Then GUICtrlSetData($keyinput, "{" & "NUMPAD 4" & "}")
                If $Hex = "65" Then GUICtrlSetData($keyinput, "{" & "NUMPAD 5" & "}")
                If $Hex = "66" Then GUICtrlSetData($keyinput, "{" & "NUMPAD 6" & "}")
                If $Hex = "67" Then GUICtrlSetData($keyinput, "{" & "NUMPAD 7" & "}")
                If $Hex = "68" Then GUICtrlSetData($keyinput, "{" & "NUMPAD 8" & "}")
                If $Hex = "69" Then GUICtrlSetData($keyinput, "{" & "NUMPAD 9" & "}")
                If $Hex = "6A" Then GUICtrlSetData($keyinput, "{" & "NUMPAD *" & "}")
                If $Hex = "6B" Then GUICtrlSetData($keyinput, "{" & "NUMPAD +" & "}")
                If $Hex = "6C" Then GUICtrlSetData($keyinput, "{" & "NUMPAD Separator" & "}")
                If $Hex = "6D" Then GUICtrlSetData($keyinput, "{" & "NUMPAD -" & "}")
                If $Hex = "6E" Then GUICtrlSetData($keyinput, "{" & "NUMPAD ." & "}")
                If $Hex = "6F" Then GUICtrlSetData($keyinput, "{" & "NUMPAD /" & "}")
                If $Hex = "70" Then GUICtrlSetData($keyinput, "{" & "F1" & "}")
                If $Hex = "71" Then GUICtrlSetData($keyinput, "{" & "F2" & "}")
                If $Hex = "72" Then GUICtrlSetData($keyinput, "{" & "F3" & "}")
                If $Hex = "73" Then GUICtrlSetData($keyinput, "{" & "F4" & "}")
                If $Hex = "74" Then GUICtrlSetData($keyinput, "{" & "F5" & "}")
                If $Hex = "75" Then GUICtrlSetData($keyinput, "{" & "F6" & "}")
                If $Hex = "76" Then GUICtrlSetData($keyinput, "{" & "F7" & "}")
                If $Hex = "77" Then GUICtrlSetData($keyinput, "{" & "F8" & "}")
                If $Hex = "78" Then GUICtrlSetData($keyinput, "{" & "F9" & "}")
                If $Hex = "79" Then GUICtrlSetData($keyinput, "{" & "F10" & "}")
                If $Hex = "7A" Then GUICtrlSetData($keyinput, "{" & "F11" & "}")
                If $Hex = "7B" Then GUICtrlSetData($keyinput, "{" & "F12" & "}")
                If $Hex = "90" Then GUICtrlSetData($keyinput, "{" & "NUM LOCK" & "}")
                If $Hex = "91" Then GUICtrlSetData($keyinput, "{" & "SCROLL LOCK" & "}")
                If $Hex = "A4" Then GUICtrlSetData($keyinput, "{" & "LEFT MENU" & "}")
                If $Hex = "A5" Then GUICtrlSetData($keyinput, "{" & "RIGHT MENU" & "}")
                $Reciving = False
            EndIf
        Next
    Until $Reciving = False

Share this post


Link to post
Share on other sites

Hi,

Try to play with this example, i don't belive it, but it's actualy works! (it tooks me couple hours to make this) :) ...

#include <GuiConstants.au3>

For $i = 0 To 9
    HotKeySet("^" & $i, "HotkeysEvent")
    HotKeySet("!" & $i, "HotkeysEvent")
    HotKeySet("+" & $i, "HotkeysEvent")
Next

Opt("GuiOnEventMode", 1)


$Gui = GuiCreate("Test")
GUISetOnEvent(-3, "Quit")

$Input = GUICtrlCreateInput("", 20, 40, 300, 20, $ES_READONLY)
GUICtrlSetBkColor(-1, 0xFFFFFF)

GUISetState()

AdlibEnable("CheckKeyPress", 150)

While 1
    Sleep(10)
WEnd

Func HotkeysEvent()
    $InputContent = GUICtrlRead($Input)
    $InputNum = StringRegExpReplace($InputContent, '(?i)(.*)\+\s', '')
    $HotkeyData = StringRegExpReplace($InputContent, '(?i)[0-9]', '')
    $NumData = StringRegExpReplace(@HotKeyPressed, '\^|!|\+', '')
    
    If $InputNum = "" Then
        GUICtrlSetData($Input, $InputContent & $NumData)
    ElseIf StringLen($InputNum) Then
        GUICtrlSetData($Input, $HotkeyData & $NumData)
    EndIf
EndFunc

Func CheckKeyPress()
    $LastKeyPress = _KeyIsPressed()
    If StringRegExp($LastKeyPress[0], "(?i)\{Ctrl\}|\{Shift\}|\{Alt\}") Then
        If $LastKeyPress[0] = "{Alt}" Then
            GUICtrlSetData($Input, "Alt + ")
            MouseClick("Left")
        Else
            GUICtrlSetData($Input, StringRegExpReplace($LastKeyPress[0], '\{|\}', '') & " + ")
        EndIf
        
        While 1
            $CheckKeyPress = _KeyIsPressed()
            If $CheckKeyPress[0] <> $LastKeyPress[0] Then ExitLoop
            Sleep(10)
        WEnd
        
        $InputContent = GUICtrlRead($Input)
        $InputNum = StringRegExpReplace($InputContent, '(?i)(.*)\+\s', '')
        
        If $CheckKeyPress[0] <> -1 And StringIsDigit($CheckKeyPress[0]) And _
            Not StringIsDigit($InputContent) And $InputNum = "" Then
            GUICtrlSetData($Input, $InputContent & $CheckKeyPress[0])
        ElseIf StringRegExpReplace($InputContent, '(?i)(.*)\+\s', '') = '' Then
            GUICtrlSetData($Input, "")
        EndIf
    EndIf
EndFunc

Func _KeyIsPressed()
    Local $RetArr[2] = [-1, 0]
    Local $KeyBoardLayoutArr = StringSplit("{LMouse}|{RMouse}|{}|(MMouse}|{}|{}|{}|{BACKSPACE}|{TAB}|{}|{}|{}|{ENTER}|{}|{}|{SHIFT}|{CTRL}|{ALT}|{PAUSE}|{CAPSLOCK}|{}|{}|{}|{}|{}|{}|{ESC}|{}|{}|{}|{]|{SPACE}|{PGUP}|{PGDN}|{END}|{HOME}|{LEFT}|{UP}|{RIGHT}|{DOWN}|{SELECT}|{PRINTSCREEN}|{}|{PRINTSCREEN}|{INSERT}|{DEL}|{}|0|1|2|3|4|5|6|7|8|9|{}|{}|{}|{}|{}|{}|{}|a|b|c|d|e|f|g|h|i|j|k|l|m|n|o|p|q|r|s|t|u|v|w|x|y|z|{LWIN}|{RWIN}|{APPSKEY}|{}|{SLEEP}|{numpad0}|{numpad1}|{numpad2}|{numpad3}|{numpad4}|{numpad5}|{numpad6}|{numpad7}|{numpad8}|{numpad9}|{NUMPADMULT}|{NUMPADADD}|{}|{NUMPADSUB}|{NUMPADDOT}|{NUMPADDIV}|{F1}|{F2}|{F3}|{F4}|{F5}|{F6}|{F7}|{F8}|{F9}|{F10}|{F11}|{F12}|{F13}|{F14}|{F15}|{F16}|{F17}|{F18}|{F19}|{F20}|{F21}|{F22}|{F23}|{F24}|{}|{}|{}|{}|{}|{}|{}|{}|{NUMLOCK}|{}|{}|{}|{}|{}|{}|{}|{}|{}|{}|{}|{}|{}|{}|{}|{SHIFT}|{SHIFT}|{CTRL}|{CTRL}|{ALT}|{ALT}|{BROWSER_BACK}|{BROWSER_FORWARD}|{BROWSER_REFRESH}|{BROWSER_STOP}|{BROWSER_SEARCH}|{BROWSER_FAVORITES}|{BROWSER_HOME}|{VOLUME_MUTE}|{VOLUME_DOWN}|{VOLUME_UP}|{MEDIA_NEXT}|{MEDIA_PREV}|{MEDIA_STOP}|{MEDIA_PLAY_PAUSE}|{LAUNCH_MAIL}|{LAUNCH_MEDIA}|{LAUNCH_APP1}|{LAUNCH_APP2}|{}|{}|;|{+}|,|{-}|.|/|`|{}|{}|{}|{}|{}|{}|{}|{}|{}|{}|{}|{}|{}|{}|{}|{}|{}|{}|{}|{}|{}|{}|{}|{}|{}|{}|[|\|]|'", "|")
    Local $a_R
    For $i = 0 To 165
        $a_R = DllCall("user32.dll", "int", "GetAsyncKeyState", "int", '0x' & Hex($i,2))
        If Not @error And BitAND($a_R[0], 0x8000) = 0x8000 Then
            $RetArr[0] = $KeyBoardLayoutArr[$i]
            $RetArr[1] = Hex($i, 2)
            ExitLoop
        EndIf
    Next
    Return $RetArr
EndFunc

Func Quit()
    Exit
EndFunc

The function _KeyPressed() i found here on forum (sorry, but i can not remember who is the author - thanks to him), but i changed it to my needs ;)


 

Spoiler

Using OS: Win 7 Professional, Using AutoIt Ver(s): 3.3.6.1 / 3.3.8.1

AutoIt_Rus_Community.png AutoIt Russian Community

My Work...

Spoiler

AutoIt_Icon_small.pngProjects: ATT - Application Translate Tool {new}| BlockIt - Block files & folders {new}| SIP - Selected Image Preview {new}| SISCABMAN - SciTE Abbreviations Manager {new}| AutoIt Path Switcher | AutoIt Menu for Opera! | YouTube Download Center! | Desktop Icons Restorator | Math Tasks | KeyBoard & Mouse Cleaner | CaptureIt - Capture Images Utility | CheckFileSize Program

AutoIt_Icon_small.pngUDFs: OnAutoItErrorRegister - Handle AutoIt critical errors {new}| AutoIt Syntax Highlight {new}| Opera Library! | Winamp Library | GetFolderToMenu | Custom_InputBox()! | _FileRun UDF | _CheckInput() UDF | _GUIInputSetOnlyNumbers() UDF | _FileGetValidName() UDF | _GUICtrlCreateRadioCBox UDF | _GuiCreateGrid() | _PathSplitByRegExp() | _GUICtrlListView_MoveItems - UDF | GUICtrlSetOnHover_UDF! | _ControlTab UDF! | _MouseSetOnEvent() UDF! | _ProcessListEx - UDF | GUICtrl_SetResizing - UDF! | Mod. for _IniString UDFs | _StringStripChars UDF | _ColorIsDarkShade UDF | _ColorConvertValue UDF | _GUICtrlTab_CoverBackground | CUI_App_UDF | _IncludeScripts UDF | _AutoIt3ExecuteCode | _DragList UDF | Mod. for _ListView_Progress | _ListView_SysLink | _GenerateRandomNumbers | _BlockInputEx | _IsPressedEx | OnAutoItExit Handler | _GUICtrlCreateTFLabel UDF | WinControlSetEvent UDF | Mod. for _DirGetSizeEx UDF
 
AutoIt_Icon_small.pngExamples: 
ScreenSaver Demo - Matrix included | Gui Drag Without pause the script | _WinAttach()! | Turn Off/On Monitor | ComboBox Handler Example | Mod. for "Thinking Box" | Cool "About" Box | TasksBar Imitation Demo

Like the Projects/UDFs/Examples? Please rate the topic (up-right corner of the post header: Rating AutoIt_Rating.gif)

* === My topics === *

==================================================
My_Userbar.gif
==================================================

 

 

 

AutoIt is simple, subtle, elegant. © AutoIt Team

Share this post


Link to post
Share on other sites

Firstly: It works!

Secondly: When pressing a key and letting go it wont stay

Thirdly: It will only accept one keypress.

This is how it supose to be ;) - it's the same (almoust) as when you set the hotkeys in files property dialog.

About the part 3, you can add the second key by "playing" with the functions a litle, i am sorry, but i realy have no much time at this moment :) (maybe later)...


 

Spoiler

Using OS: Win 7 Professional, Using AutoIt Ver(s): 3.3.6.1 / 3.3.8.1

AutoIt_Rus_Community.png AutoIt Russian Community

My Work...

Spoiler

AutoIt_Icon_small.pngProjects: ATT - Application Translate Tool {new}| BlockIt - Block files & folders {new}| SIP - Selected Image Preview {new}| SISCABMAN - SciTE Abbreviations Manager {new}| AutoIt Path Switcher | AutoIt Menu for Opera! | YouTube Download Center! | Desktop Icons Restorator | Math Tasks | KeyBoard & Mouse Cleaner | CaptureIt - Capture Images Utility | CheckFileSize Program

AutoIt_Icon_small.pngUDFs: OnAutoItErrorRegister - Handle AutoIt critical errors {new}| AutoIt Syntax Highlight {new}| Opera Library! | Winamp Library | GetFolderToMenu | Custom_InputBox()! | _FileRun UDF | _CheckInput() UDF | _GUIInputSetOnlyNumbers() UDF | _FileGetValidName() UDF | _GUICtrlCreateRadioCBox UDF | _GuiCreateGrid() | _PathSplitByRegExp() | _GUICtrlListView_MoveItems - UDF | GUICtrlSetOnHover_UDF! | _ControlTab UDF! | _MouseSetOnEvent() UDF! | _ProcessListEx - UDF | GUICtrl_SetResizing - UDF! | Mod. for _IniString UDFs | _StringStripChars UDF | _ColorIsDarkShade UDF | _ColorConvertValue UDF | _GUICtrlTab_CoverBackground | CUI_App_UDF | _IncludeScripts UDF | _AutoIt3ExecuteCode | _DragList UDF | Mod. for _ListView_Progress | _ListView_SysLink | _GenerateRandomNumbers | _BlockInputEx | _IsPressedEx | OnAutoItExit Handler | _GUICtrlCreateTFLabel UDF | WinControlSetEvent UDF | Mod. for _DirGetSizeEx UDF
 
AutoIt_Icon_small.pngExamples: 
ScreenSaver Demo - Matrix included | Gui Drag Without pause the script | _WinAttach()! | Turn Off/On Monitor | ComboBox Handler Example | Mod. for "Thinking Box" | Cool "About" Box | TasksBar Imitation Demo

Like the Projects/UDFs/Examples? Please rate the topic (up-right corner of the post header: Rating AutoIt_Rating.gif)

* === My topics === *

==================================================
My_Userbar.gif
==================================================

 

 

 

AutoIt is simple, subtle, elegant. © AutoIt Team

Share this post


Link to post
Share on other sites

I tried to edit Generators code:

Func Recieve()
    $Reciving = True
    Do
        For $i = 30 To 161
            If _IsPressed(Hex($i, 2)) Then
                $Hex = Hex($i, 2)
                If $Hex = "30" Then GUICtrlSetData($HotKey, "{" & "0" & "}")
                If $Hex = "31" Then GUICtrlSetData($HotKey, "{" & "1" & "}")
                If $Hex = "32" Then GUICtrlSetData($HotKey, "{" & "2" & "}")
                If $Hex = "33" Then GUICtrlSetData($HotKey, "{" & "3" & "}")
                If $Hex = "34" Then GUICtrlSetData($HotKey, "{" & "4" & "}")
                If $Hex = "35" Then GUICtrlSetData($HotKey, "{" & "5" & "}")
                If $Hex = "36" Then GUICtrlSetData($HotKey, "{" & "6" & "}")
                If $Hex = "37" Then GUICtrlSetData($HotKey, "{" & "7" & "}")
                If $Hex = "38" Then GUICtrlSetData($HotKey, "{" & "8" & "}")
                If $Hex = "39" Then GUICtrlSetData($HotKey, "{" & "9" & "}")
                If $Hex = "41" Then GUICtrlSetData($HotKey, "{" & "A" & "}")
                If $Hex = "42" Then GUICtrlSetData($HotKey, "{" & "B" & "}")
                If $Hex = "43" Then GUICtrlSetData($HotKey, "{" & "C" & "}")
                If $Hex = "44" Then GUICtrlSetData($HotKey, "{" & "D" & "}")
                If $Hex = "45" Then GUICtrlSetData($HotKey, "{" & "E" & "}")
                If $Hex = "46" Then GUICtrlSetData($HotKey, "{" & "F" & "}")
                If $Hex = "47" Then GUICtrlSetData($HotKey, "{" & "G" & "}")
                If $Hex = "48" Then GUICtrlSetData($HotKey, "{" & "H" & "}")
                If $Hex = "49" Then GUICtrlSetData($HotKey, "{" & "I" & "}")
                If $Hex = "4A" Then GUICtrlSetData($HotKey, "{" & "J" & "}")
                If $Hex = "4B" Then GUICtrlSetData($HotKey, "{" & "K" & "}")
                If $Hex = "4C" Then GUICtrlSetData($HotKey, "{" & "L" & "}")
                If $Hex = "4D" Then GUICtrlSetData($HotKey, "{" & "M" & "}")
                If $Hex = "4E" Then GUICtrlSetData($HotKey, "{" & "N" & "}")
                If $Hex = "4F" Then GUICtrlSetData($HotKey, "{" & "O" & "}")
                If $Hex = "50" Then GUICtrlSetData($HotKey, "{" & "P" & "}")
                If $Hex = "51" Then GUICtrlSetData($HotKey, "{" & "Q" & "}")
                If $Hex = "52" Then GUICtrlSetData($HotKey, "{" & "R" & "}")
                If $Hex = "53" Then GUICtrlSetData($HotKey, "{" & "S" & "}")
                If $Hex = "54" Then GUICtrlSetData($HotKey, "{" & "T" & "}")
                If $Hex = "55" Then GUICtrlSetData($HotKey, "{" & "U" & "}")
                If $Hex = "56" Then GUICtrlSetData($HotKey, "{" & "V" & "}")
                If $Hex = "57" Then GUICtrlSetData($HotKey, "{" & "W" & "}")
                If $Hex = "58" Then GUICtrlSetData($HotKey, "{" & "X" & "}")
                If $Hex = "59" Then GUICtrlSetData($HotKey, "{" & "Y" & "}")
                If $Hex = "5A" Then GUICtrlSetData($HotKey, "{" & "Z" & "}")
                If $Hex = "5B" Then GUICtrlSetData($HotKey, "{" & "Left Windows" & "}")
                If $Hex = "5C" Then GUICtrlSetData($HotKey, "{" & "Right Windows" & "}")
                If $Hex = "60" Then GUICtrlSetData($HotKey, "{" & "NUMPAD 0" & "}")
                If $Hex = "61" Then GUICtrlSetData($HotKey, "{" & "NUMPAD 1" & "}")
                If $Hex = "62" Then GUICtrlSetData($HotKey, "{" & "NUMPAD 2" & "}")
                If $Hex = "63" Then GUICtrlSetData($HotKey, "{" & "NUMPAD 3" & "}")
                If $Hex = "64" Then GUICtrlSetData($HotKey, "{" & "NUMPAD 4" & "}")
                If $Hex = "65" Then GUICtrlSetData($HotKey, "{" & "NUMPAD 5" & "}")
                If $Hex = "66" Then GUICtrlSetData($HotKey, "{" & "NUMPAD 6" & "}")
                If $Hex = "67" Then GUICtrlSetData($HotKey, "{" & "NUMPAD 7" & "}")
                If $Hex = "68" Then GUICtrlSetData($HotKey, "{" & "NUMPAD 8" & "}")
                If $Hex = "69" Then GUICtrlSetData($HotKey, "{" & "NUMPAD 9" & "}")
                If $Hex = "6A" Then GUICtrlSetData($HotKey, "{" & "NUMPAD *" & "}")
                If $Hex = "6B" Then GUICtrlSetData($HotKey, "{" & "NUMPAD +" & "}")
                If $Hex = "6C" Then GUICtrlSetData($HotKey, "{" & "NUMPAD Separator" & "}")
                If $Hex = "6D" Then GUICtrlSetData($HotKey, "{" & "NUMPAD -" & "}")
                If $Hex = "6E" Then GUICtrlSetData($HotKey, "{" & "NUMPAD ." & "}")
                If $Hex = "6F" Then GUICtrlSetData($HotKey, "{" & "NUMPAD /" & "}")
                If $Hex = "70" Then GUICtrlSetData($HotKey, "{" & "F1" & "}")
                If $Hex = "71" Then GUICtrlSetData($HotKey, "{" & "F2" & "}")
                If $Hex = "72" Then GUICtrlSetData($HotKey, "{" & "F3" & "}")
                If $Hex = "73" Then GUICtrlSetData($HotKey, "{" & "F4" & "}")
                If $Hex = "74" Then GUICtrlSetData($HotKey, "{" & "F5" & "}")
                If $Hex = "75" Then GUICtrlSetData($HotKey, "{" & "F6" & "}")
                If $Hex = "76" Then GUICtrlSetData($HotKey, "{" & "F7" & "}")
                If $Hex = "77" Then GUICtrlSetData($HotKey, "{" & "F8" & "}")
                If $Hex = "78" Then GUICtrlSetData($HotKey, "{" & "F9" & "}")
                If $Hex = "79" Then GUICtrlSetData($HotKey, "{" & "F10" & "}")
                If $Hex = "7A" Then GUICtrlSetData($HotKey, "{" & "F11" & "}")
                If $Hex = "7B" Then GUICtrlSetData($HotKey, "{" & "F12" & "}")
                $Reciving = False
            EndIf
        Next
    Until $Reciving = False
EndFunc

But it does nothing.

Share this post


Link to post
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
Sign in to follow this  
Followers 0