[RELEASE] 123 Clickz0r

; #EXAMPLE 1# =======================================================================================
; Description	:		Creates GUI which will be displayed until any key is pressed.
; ===================================================================================================
$hGui = GUICreate("Example 1 - Press any key to exit...", 400, 100)
GUISetState()
$sKeyboardState = _WinAPI_GetKeyboardState(1)
While _WinAPI_GetKeyboardState(1) = $sKeyboardState
	Sleep(100)
WEnd
GUIDelete($hGui)
Sleep(500)
; #EXAMPLE 2# =======================================================================================
; Description	:		Creates GUI which will be displayed until the "A" key is pressed.
; ===================================================================================================
$hGui = GUICreate('Example 2 - Press "A" to exit...', 400, 200)
GUISetState()
$aKeyboardStateOld = _WinAPI_GetKeyboardState()
While 1
	$aKeyboardState = _WinAPI_GetKeyboardState()
	If $aKeyboardState[65] <> $aKeyboardStateOld[65] Then ExitLoop
	Sleep(100)
WEnd
GUIDelete($hGui)
Sleep(500)
; #EXAMPLE 3# =======================================================================================
; Description	:		Creates GUI which will display the [state] and [toggle] of keys A-Z.
; ===================================================================================================
$hGui 	= GUICreate('Example 3 - Type...', 400, 400)
$hLabel = GUICtrlCreateLabel("", 2, 2, 396, 396)
GUISetState()
While GUIGetMsg() <> -3
	$aKeyboardState = _WinAPI_GetKeyboardState()
	$sKeys = "I" & @TAB & "CHR" & @TAB & "State" & @TAB & "Toogle" & @LF
	For $i = 65 To 90
		$sKeys &= $i & @TAB & Chr($i) & @TAB & BitAND($aKeyboardState[$i], 0xF0) & @TAB & BitAND($aKeyboardState[$i], 0x0F) & @LF
	Next
	GUICtrlSetData($hLabel, $sKeys)
	Sleep(100)
WEnd
; #FUNCTION# =======================================================================================
; Function Name	:		_WinAPI_GetKeyboardState
; Description	:		Returns the status of the 256 virtual keys
; Syntax		:		_WinAPI_GetKeyboardState($iFlag=0)
; Parameters	:		Return Type:
;							0 - Returns an array[256]
;							1 - Returns a string
; Return values	:		Return Type:
;							Success  - Array[256] or String containing status of 256 virtual keys
;							Failure  - False
; ===================================================================================================
Func _WinAPI_GetKeyboardState($iFlag = 0)
	Local $aDllRet, $lpKeyState = DllStructCreate("byte[256]")
	$aDllRet = DllCall("User32.dll", "int", "GetKeyboardState", "ptr", DllStructGetPtr($lpKeyState))

	If @error Then Return SetError(@error, 0, 0)
	If $aDllRet[0] = 0 Then
		Return SetError(1, 0, 0)
	Else
		Switch $iFlag
			Case 0
				Local $aReturn[256]
				For $i = 1 To 256
					$aReturn[$i - 1] = DllStructGetData($lpKeyState, 1, $i)
				Next
				Return $aReturn
			Case Else
				Return DllStructGetData($lpKeyState, 1)
		EndSwitch
	EndIf
EndFunc   ;==>_WinAPI_GetKeyboardState

#include <misc.au3>
$keys = IniReadSection("keys.ini","keys")

While 1
    for $x =1 to $keys[0][0]
        if _ispressed($keys[$x][0]) then
			MsgBox(0,"",$keys[$x][1]&" was pressed")
		EndIf
    next
sleep(99)
WEnd