Record a single key press

[Minikori]

Hey, I'm making a function in my script that records a single key that the user presses, but if the user presses escape, it cancels. I know MacroGamer has a function like this, and I've got it's piece of code containing it, but I can't fully understand how it works and what I need to change so it fits my script, here's the code:

CODE

Func GetKeyPressed($gui)

If $gui <> "" Then

while 1

for $i = 8 to 222 ;Accept 102 Standard KeyBoard Input (US)

If _IsPressed(hex($i,2)) Then

If StringRegExp($keyboardLayout[$i],"(CTRL)|(ALT)|(SHIFT)|(WIN)") Then

Select

Case $gui = "editor"

GUICtrlSetData($in_bindkey,$keyboardLayout[$i] & "+")

Local $key = GetKeyPressed("") ;recursive call

GUICtrlSetData($in_bindkey,$keyboardLayout[$i] & "+" & $key)

Return GUICtrlRead($in_bindkey)

Case $gui = "onoff"

GUICtrlSetData($Option_in_ONOFF,$keyboardLayout[$i] & "+")

Local $key = GetKeyPressed("") ;recursive call

GUICtrlSetData($Option_in_ONOFF,$keyboardLayout[$i] & "+" & $key)

Return GUICtrlRead($Option_in_ONOFF)

Case $gui = "recstartstop"

GUICtrlSetData($Option_in_Record,$keyboardLayout[$i] & "+")

Local $key = GetKeyPressed("") ;recursive call

GUICtrlSetData($Option_in_Record,$keyboardLayout[$i] & "+" & $key)

Return GUICtrlRead($Option_in_Record)

Case Else

EndSelect

EndIf

Return $keyboardLayout[$i]

EndIf

Next

wend

Else

while 1

for $i = 8 to 222 ;Accept 102 Standard KeyBoard Input (US)

If _IsPressed(hex($i,2)) And StringRegExp($keyboardLayout[$i],"(CTRL)|(ALT)|(WIN)|(SHIFT)") <> 1 Then

Return $keyboardLayout[$i]

EndIf

Next

wend

EndIf

EndFunc ;GetKeyPressed()==>

If your going to reply with modified code, just use a fake GUIControl.

[Minikori]

Bump.

[Minikori]

Bump.