Advertisement
Guest User

Untitled

a guest
Jun 23rd, 2017
62
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
AutoIt 1.40 KB | None | 0 0
  1. Func _GetKeyPressed()
  2.     $KeyListHex = "01|02|04|05|06|08|09|0C|0D|10|11|12|13|14|1B|20|21|22|23|24|25|26|27|28|29|2A|2B|2C|2D|2E|30|31|32|33|34|35|36|37|38|39|"
  3.     $KeyListHex &= "41|42|43|44|45|46|47|48|49|4A|4B|4C|4D|4E|4F|50|51|52|53|54|55|56|57|58|59|5A|5B|5C|60|61|62|63|64|65|66|67|68|69|6A|6B|"
  4.     $KeyListHex &= "6C|6D|6E|6F|70|71|72|73|74|75|76|77|78|79|7A|7B|7C|7D|7E|7F|7G|7H|80H|81H|82H|83H|84H|85H|86H|87H|90|91|A0|A1|A2|A3|"
  5.     $KeyListHex &= "A4|A5|BA|BB|BC|BD|BE|BF|C0|DB|DC|DD"
  6.     $KeyListHex = StringSplit($KeyListHex, "|", 1)
  7.  
  8.     $KeyListNorm = "LMOUSE|RMOUSE|MMOUSE|X1MOUSE|X2MOUSE|BACKSP|TAB|CLEAR|ENTER|SHIFT|CTRL|ALT|PAUSE|CAPS|ESC|SPACE|PAGEUP|PAGEDOWN|END|HOME|LARROW|"
  9.     $KeyListNorm &= "UARROW|RARROW|DARROW|SELECT|PRINT|EXE|PRINTSCR|INSERT|DELETE|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|"
  10.     $KeyListNorm &= "S|T|U|V|W|X|Y|Z|LWIN|RWIN|NUM0|NUM1|NUM2|NUM3|NUM4|NUM5|NUM6|NUM7|NUM8|NUM9|MULTI|ADD|SEP|SUB|DEC|DIV|F1|F2|F3|F4|F5|"
  11.     $KeyListNorm &= "F6|F7|F8|F9|F10|F11|F12|F13|F14|F15|F16|F17|F18|F19|F20|F21|F22|F23|F24|NUMLOCK|SCROLLLOCK|LSHIFT|RSHIFT|LCONT|RCONT|LMENU|RMENU|;|"
  12.     $KeyListNorm &= "=|,|-|.|/|`|[|\|]"
  13.     $KeyListNorm = StringSplit($KeyListNorm, "|", 1)
  14.  
  15.     For $i = 1 To $KeyListHex[0]
  16.         If _IsPressed($KeyListHex[$i]) = 1 Then
  17.             Do
  18.                 Sleep(5)
  19.             Until _IsPressed($KeyListHex[$i]) = 0
  20.             Return ($KeyListNorm[$i])
  21.         EndIf
  22.     Next
  23.     Return ("")
  24. EndFunc   ;==>_GetKeyPressed
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement