#include <Misc.au3>
#include <WinAPIvkeysConstants.au3>
#include-once

Func IsPressedToString($hex)
	Local $maj = _GetCaps() Or _IsPressed("10")
	Local $altGr = _IsPressed("A5")
	Local $send[3]
	Switch($hex)
	case "08"
		$send[0]= "{BACKSPACE}"
	case "09"
		$send[0]= "{TAB}"
	case "0D"
		$send[0]= "{ENTER}"
	case "13"
		$send[0]= "{PAUSE}"
	case "1B"
		$send[0]= "{ESC}"
	case "20"
		$send[0]= "{SPACE}"
	case "21"
		$send[0]= "{PGUP}"
	case "22"
		$send[0]= "{PGDN}"
	case "23"
		$send[0]= "{END}"
	case "24"
		$send[0]= "{HOME}"
	case "25"
		$send[0]= "{LEFT}"
	case "26"
		$send[0]= "{UP}"
	case "27"
		$send[0]= "{RIGHT}"
	case "28"
		$send[0]= "{DOWN}"
	case "2C"
		$send[0]= "{PRINTSCREEN}"
	case "2D"
		$send[0]= "{INS}"
	case "2E"
		$send[0]= "{DEL}"
	case "30"
		$send[0]= "à"
		$send[1]= "0"
		$send[2]= "@"
	case "31"
		$send[0]= "&"
		$send[1]= "1"
	case "32"
		$send[0]= "é"
		$send[1]= "2"
		$send[2]= "~"
	case "33"
		$send[0]= '"'
		$send[1]= "3"
		$send[2]= "#"
	case "34"
		$send[0]= "'"
		$send[1]= "4"
		$send[2]= "{"
	case "35"
		$send[0]= "("
		$send[1]= "5"
		$send[2]= "["
	case "36"
		$send[0]= "-"
		$send[1]= "6"
		$send[2]= "|"
	case "37"
		$send[0]= "è"
		$send[1]= "7"
		$send[2]= "`"
	case "38"
		$send[0]= "_"
		$send[1]= "8"
		$send[2]= "\"
	case "39"
		$send[0]= "ç"
		$send[1]= "9"
	case "41"
		$send[0]= "a"
		$send[1]= "A"
	case "42"
		$send[0]= "b"
		$send[1]= "B"
	case "43"
		$send[0]= "c"
		$send[1]= "C"
	case "44"
		$send[0]= "d"
		$send[1]= "D"
	case "45"
		$send[0]= "e"
		$send[1]= "E"
		$send[2]= "€"
	case "46"
		$send[0]= "f"
		$send[1]= "F"
	case "47"
		$send[0]= "g"
		$send[1]= "G"
	case "48"
		$send[0]= "h"
		$send[1]= "H"
	case "49"
		$send[0]= "i"
		$send[1]= "I"
	case "4A"
		$send[0]= "j"
		$send[1]= "J"
	case "4B"
		$send[0]= "k"
		$send[1]= "K"
	case "4C"
		$send[0]= "l"
		$send[1]= "L"
	case "4D"
		$send[0]= "m"
		$send[1]= "M"
	case "4E"
		$send[0]= "n"
		$send[1]= "N"
	case "4F"
		$send[0]= "o"
		$send[1]= "O"
	case "50"
		$send[0]= "p"
		$send[1]= "P"
	case "51"
		$send[0]= "q"
		$send[1]= "Q"
	case "52"
		$send[0]= "r"
		$send[1]= "R"
	case "53"
		$send[0]= "s"
		$send[1]= "S"
	case "54"
		$send[0]= "t"
		$send[1]= "T"
	case "55"
		$send[0]= "u"
		$send[1]= "U"
	case "56"
		$send[0]= "v"
		$send[1]= "V"
	case "57"
		$send[0]= "w"
		$send[1]= "W"
	case "58"
		$send[0]= "x"
		$send[1]= "X"
	case "59"
		$send[0]= "y"
		$send[1]= "Y"
	case "5A"
		$send[0]= "z"
		$send[1]= "Z"
	case "60"
		$send[0]= "{NUMPAD0}"
	case "61"
		$send[0]= "{NUMPAD1}"
	case "62"
		$send[0]= "{NUMPAD2}"
	case "63"
		$send[0]= "{NUMPAD3}"
	case "64"
		$send[0]= "{NUMPAD4}"
	case "65"
		$send[0]= "{NUMPAD5}"
	case "66"
		$send[0]= "{NUMPAD6}"
	case "67"
		$send[0]= "{NUMPAD7}"
	case "68"
		$send[0]= "{NUMPAD8}"
	case "69"
		$send[0]= "{NUMPAD9}"
	case "6A"
		$send[0]= "{NUMPADMULT}"
	case "6B"
		$send[0]= "{NUMPADADD}"
	case "6D"
		$send[0]= "{NUMPADSUB}"
	case "6E"
		$send[0]= "{NUMPADDOT}"
	case "6F"
		$send[0]= "{NUMPADDIV}"
	case "70"
		$send[0]= "{F1}"
	case "71"
		$send[0]= "{F2}"
	case "72"
		$send[0]= "{F3}"
	case "73"
		$send[0]= "{F4}"
	case "74"
		$send[0]= "{F5}"
	case "75"
		$send[0]= "{F6}"
	case "76"
		$send[0]= "{F7}"
	case "77"
		$send[0]= "{F8}"
	case "78"
		$send[0]= "{F9}"
	case "79"
		$send[0]= "{F10}"
	case "7A"
		$send[0]= "{F11}"
	case "7B"
		$send[0]= "{F12}"
	case "BA"
		$send[0]= "$"
		$send[1]= "£"
		$send[2]= "¤"
	case "BB"
		$send[0]= "="
		$send[1]= "+"
		$send[2]= "}"
	case "BC"
		$send[0]= ","
		$send[1]= "?"
	case "BE"
		$send[0]= ";"
		$send[1]= "."
	case "BF"
		$send[0]= ":"
		$send[1]= "/"
	case "C0"
		$send[0]= "ù"
		$send[1]= "%"
	case "DB"
		$send[0]= ")"
		$send[1]= "°"
		$send[2]= "]"
	case "DC"
		$send[0]= "*"
		$send[1]= "µ"
	case "DD"
		$send[0]= "^"
		$send[1]= "¨"
	case "DE"
		$send[0]= "²"
	case "DF"
		$send[0]= "!"
		$send[1]= "§"
	case "E2"
		$send[0]= "<"
		$send[1]= ">"
	EndSwitch
	Local $ret = ""
	If(Not($maj) And Not($altGr)) Then
		$ret = $send[0]
	ElseIf($maj And Not($altGr)) Then
		$ret = $send[1]
	ElseIf(Not($maj) And $altGr) Then
		$ret = $send[2]
	EndIf
	Return $ret
EndFunc

Func _GetNumLock()
    Local $ret
    $ret = DllCall("user32.dll","long","GetKeyState","long",$VK_NUMLOCK)
    Return $ret[0]
EndFunc

Func _GetScrollLock()
    Local $ret
    $ret = DllCall("user32.dll","long","GetKeyState","long",$VK_SCROLL)
    Return $ret[0]
EndFunc

Func _GetCaps()
    Local $ret
    $ret = DllCall("user32.dll","long","GetKeyState","long",$VK_CAPITAL)
    Return $ret[0]
EndFunc