找回密码
 加入
搜索
AUTOIT CN»论坛 › AU3交流 › 『 提问交流 』 › 这个虚拟键盘能做成自定义函数或插件吗？ ...
返回列表 发新帖
查看: 2027|回复: 2

[系统综合] 这个虚拟键盘能做成自定义函数或插件吗？

[复制链接]
cashiba
发表于 2016-12-19 13:03:40 | 显示全部楼层 |阅读模式
本帖最后由 cashiba 于 2016-12-19 13:05 编辑

在网上看到一段虚拟键盘的代码，经测试可用。
在论坛里搜了一下，曾经有人发过，不过要花钱下载。
1、界面不算流畅，布局有点拥挤
2、如果能做成一个自定义函数或插件就好了，可以在需要的时候给呼出来.....
AU3基础差，能力不足，不会修改。发出来给需要的、感兴趣的.....。免币。
  1. #NoTrayIcon
  2. #Region ;**** Directives created by AutoIt3Wrapper_GUI ****
  3. #AutoIt3Wrapper_Icon=1295599487_Gnome-Input-Keyboard-64.ico
  4. #AutoIt3Wrapper_OutFile=Virtual_Keyboard.exe
  5. #AutoIt3Wrapper_Compression=4
  6. #AutoIt3Wrapper_Res_Description=Virtual Keyboard with Anti - KeyLogger
  7. #AutoIt3Wrapper_Res_FileVersion=1.1.0.6
  8. #AutoIt3Wrapper_Res_Language=1033
  9. #AutoIt3Wrapper_Res_Field=ProductName|Virtual Keyboard with Anti - KeyLogger
  10. #AutoIt3Wrapper_Res_Field=InternalName|VirtualKeyboard.exe
  11. #AutoIt3Wrapper_Res_Field=ProductVersion|1.1.0.6
  12. #AutoIt3Wrapper_Res_Field=OriginalFilename|VirtualKeyboard.exe
  13. #AutoIt3Wrapper_Run_Tidy=y
  14. #EndRegion ;**** Directives created by AutoIt3Wrapper_GUI ****

  16. #include <ButtonConstants.au3>
  17. #include <GUIConstantsEx.au3>
  18. #include <WindowsConstants.au3>
  19. #include <StaticConstants.au3>
  20. #include <Array.au3>
  21. #include <WinAPI.au3>
  22. #include <IE.au3>

  24. Opt("WinWaitDelay", 0)
  25. Opt("SendKeyDelay", 0)
  26. Opt("SendKeyDownDelay", 0)
  27. Opt("Sendcapslockmode", 0)
  28. Opt("TrayIconHide", 1)
  29. Opt("GUICloseOnESC", 0)

  31. Global $fLeftShiftHolden = False
  32. Global $fLeftAltHolden = False
  33. Global $fLeftCtrlHolden = False
  34. Global $fRightShiftHolden = False
  35. Global $fRightAltHolden = False
  36. Global $fRightCtrlHolden = False
  37. Global Const $VK_NUMLOCK = 0x90
  38. Global Const $VK_SCROLL = 0x91
  39. Global Const $VK_CAPITAL = 0x14
  40. Global $ctrlstatus = 0, $altstatus = 0, $shiftstatus = 0
  41. ;
  42. Global $_NOACTIVATE = 0x08000000
  43. Global $MA_NOACTIVATE = 3
  44. Global $MA_NOACTIVATEANDEAT = 4
  45. Global $keyStroke_Array[68] = ['{SPACE}', '{ENTER}', '{ALT}', '{BS}', '{BACKSPACE}', '{DEL}', '{UP}', '{DOWN}', _
  46.                 '{LEFT}', '{RIGHT}', '{HOME}', '{END}', '{ESC}', '{INS}', '{PGUP}', '{PGDN}', '{F1}', '{F2}', '{F3}', _
  47.                 '{F4}', '{F5}', '{F6}', '{F7}', '{F8}', '{F9}', '{F10}', '{F11}', '{F12}', '{TAB}', '{PRINTSCREEN}', '{LWIN}', _
  48.                 '{RWIN}', '{BREAK}', '{PAUSE}', '{NUMPADMULT}', '{NUMPADADD}', '{NUMPADSUB}', '{NUMPADDIV}', '{NUMPADDOT}', _
  49.                 '{NUMPADENTER}', '{APPSKEY}', '{LALT}', '{RALT}', '{LCTRL}', '{RCTRL}', '{LSHIFT}', '{RSHIFT}', '{SLEEP}', _
  50.                 '{NUMPAD0}', '{NUMPAD1}', '{NUMPAD2}', '{NUMPAD3}', '{NUMPAD4}', '{NUMPAD5}', '{NUMPAD6}', '{NUMPAD7}', _
  51.                 '{NUMPAD8}', '{NUMPAD9}', '{ALTDOWN}', '{SHIFTDOWN}', '{CTRLDOWN}', '{ALTUP}', '{CTRLUP}', '{SHIFTUP}', '{CAPSLOCK}', _
  52.                 '{INSERT}', '{DELETE}', '{Escape}']

  54. _ArraySort($keyStroke_Array)

  56. HotKeySet("{Esc}", "Quit")

  58. $ProductVersion = "v0.1"
  59. $MainGUITitle = "Virtual Keyboard " & $ProductVersion & " - "
  60. $Form1 = GUICreate($MainGUITitle, 722, 194, 300, 300, -1, BitOR($WS_EX_TOOLWINDOW, $WS_EX_TOPMOST, $_NOACTIVATE)) ;$WS_POPUPWINDOW;BitOR($WS_EX_TOOLWINDOW, $WS_EX_TOPMOST, $WS_EX_WINDOWEDGE))
  61. $Esc = GUICtrlCreateButton("Esc", 0, 0, 33, 25, $WS_GROUP)
  62. $F1 = GUICtrlCreateButton("F1", 48, 0, 33, 25, $WS_GROUP)
  63. $F2 = GUICtrlCreateButton("F2", 80, 0, 33, 25, $WS_GROUP)
  64. $F3 = GUICtrlCreateButton("F3", 112, 0, 33, 25, $WS_GROUP)
  65. $F4 = GUICtrlCreateButton("F4", 144, 0, 33, 25, $WS_GROUP)
  66. $F5 = GUICtrlCreateButton("F5", 184, 0, 33, 25, $WS_GROUP)
  67. $F6 = GUICtrlCreateButton("F6", 216, 0, 33, 25, $WS_GROUP)
  68. $F7 = GUICtrlCreateButton("F7", 248, 0, 33, 25, $WS_GROUP)
  69. $F8 = GUICtrlCreateButton("F8", 280, 0, 33, 25, $WS_GROUP)
  70. $F9 = GUICtrlCreateButton("F9", 320, 0, 33, 25, $WS_GROUP)
  71. $F10 = GUICtrlCreateButton("F10", 352, 0, 33, 25, $WS_GROUP)
  72. $F11 = GUICtrlCreateButton("F11", 385, 0, 33, 25, $WS_GROUP)
  73. $F12 = GUICtrlCreateButton("F12", 417, 0, 33, 25, $WS_GROUP)
  74. $PrintScreen = GUICtrlCreateButton("prtscr", 488, 0, 33, 25, $WS_GROUP)
  75. $ScrollLock = GUICtrlCreateButton("scr lo", 520, 0, 33, 25, $WS_GROUP)
  76. $PauseBreak = GUICtrlCreateButton("pa br", 552, 0, 33, 25, $WS_GROUP)
  77. $Igel = GUICtrlCreateButton("`", 0, 32, 33, 33, $WS_GROUP)
  78. $One = GUICtrlCreateButton("1", 32, 32, 33, 33, $WS_GROUP)
  79. $Two = GUICtrlCreateButton("2", 64, 32, 33, 33, $WS_GROUP)
  80. $Three = GUICtrlCreateButton("3", 96, 32, 33, 33, $WS_GROUP)
  81. $Four = GUICtrlCreateButton("4", 128, 32, 33, 33, $WS_GROUP)
  82. $Five = GUICtrlCreateButton("5", 160, 32, 33, 33, $WS_GROUP)
  83. $Six = GUICtrlCreateButton("6", 192, 32, 33, 33, $WS_GROUP)
  84. $Seven = GUICtrlCreateButton("7", 224, 32, 33, 33, $WS_GROUP)
  85. $Eight = GUICtrlCreateButton("8", 256, 32, 33, 33, $WS_GROUP)
  86. $Nine = GUICtrlCreateButton("9", 288, 32, 33, 33, $WS_GROUP)
  87. $Zero = GUICtrlCreateButton("0", 320, 32, 33, 33, $WS_GROUP)
  88. $Minus = GUICtrlCreateButton("-", 352, 32, 33, 33, $WS_GROUP)
  89. $Equal = GUICtrlCreateButton("=", 384, 32, 33, 33, $WS_GROUP)
  90. $Back = GUICtrlCreateButton("<-------", 416, 32, 65, 33, $WS_GROUP)
  91. $Insert = GUICtrlCreateButton("Insert", 488, 32, 33, 33, $WS_GROUP)
  92. $Home = GUICtrlCreateButton("Home", 520, 32, 33, 33, $WS_GROUP)
  93. $PageUp = GUICtrlCreateButton("PgUp", 552, 32, 33, 33, $WS_GROUP)
  94. $NumberLock = GUICtrlCreateButton("NmLo", 592, 32, 33, 33, $WS_GROUP)
  95. $NumberPadSlash = GUICtrlCreateButton("/", 624, 32, 33, 33, $WS_GROUP)
  96. $NumberPadX = GUICtrlCreateButton("*", 656, 32, 33, 33, $WS_GROUP)
  97. $NumberPadMinus = GUICtrlCreateButton("-", 688, 32, 33, 33, $WS_GROUP)
  98. $Tab = GUICtrlCreateButton("Tab", 0, 64, 41, 33, $WS_GROUP)
  99. $q = GUICtrlCreateButton("Q", 40, 64, 33, 33, $WS_GROUP)
  100. $w = GUICtrlCreateButton("W", 72, 64, 33, 33, $WS_GROUP)
  101. $e = GUICtrlCreateButton("E", 104, 64, 33, 33, $WS_GROUP)
  102. $r = GUICtrlCreateButton("R", 136, 64, 33, 33, $WS_GROUP)
  103. $t = GUICtrlCreateButton("T", 168, 64, 33, 33, $WS_GROUP)
  104. $y = GUICtrlCreateButton("Y", 200, 64, 33, 33, $WS_GROUP)
  105. $u = GUICtrlCreateButton("U", 232, 64, 33, 33, $WS_GROUP)
  106. $i = GUICtrlCreateButton("I", 264, 64, 33, 33, $WS_GROUP)
  107. $o = GUICtrlCreateButton("O", 296, 64, 33, 33, $WS_GROUP)
  108. $p = GUICtrlCreateButton("P", 328, 64, 33, 33, $WS_GROUP)
  109. $LeftBrackets = GUICtrlCreateButton("[", 360, 64, 33, 33, $WS_GROUP)
  110. $RightBrackets = GUICtrlCreateButton("]", 392, 64, 33, 33, $WS_GROUP)
  111. $Enter = GUICtrlCreateButton("Enter", 424, 64, 57, 65, $WS_GROUP)
  112. $Delete = GUICtrlCreateButton("Del", 488, 64, 33, 33, $WS_GROUP)
  113. $End = GUICtrlCreateButton("End", 520, 64, 33, 33, $WS_GROUP)
  114. $PageDown = GUICtrlCreateButton("PgDn", 552, 64, 33, 33, $WS_GROUP)
  115. $NumberPad7 = GUICtrlCreateButton("7", 592, 64, 33, 33, $WS_GROUP)
  116. $NumberPad8 = GUICtrlCreateButton("8", 624, 64, 33, 33, $WS_GROUP)
  117. $NumberPad9 = GUICtrlCreateButton("9", 656, 64, 33, 33, $WS_GROUP)
  118. $NumberPadPlus = GUICtrlCreateButton("+", 688, 64, 33, 65, $WS_GROUP)
  119. $CapsLock = GUICtrlCreateButton("CapsLck", 0, 96, 49, 33, $WS_GROUP)
  120. $a = GUICtrlCreateButton("A", 48, 96, 33, 33, $WS_GROUP)
  121. $s = GUICtrlCreateButton("S", 80, 96, 33, 33, $WS_GROUP)
  122. $d = GUICtrlCreateButton("D", 112, 96, 33, 33, $WS_GROUP)
  123. $f = GUICtrlCreateButton("F", 144, 96, 33, 33, $WS_GROUP)
  124. $g = GUICtrlCreateButton("G", 176, 96, 33, 33, $WS_GROUP)
  125. $h = GUICtrlCreateButton("H", 208, 96, 33, 33, $WS_GROUP)
  126. $j = GUICtrlCreateButton("J", 240, 96, 33, 33, $WS_GROUP)
  127. $k = GUICtrlCreateButton("K", 272, 96, 33, 33, $WS_GROUP)
  128. $l = GUICtrlCreateButton("L", 304, 96, 33, 33, $WS_GROUP)
  129. $Colon = GUICtrlCreateButton(";", 336, 96, 33, 33, $WS_GROUP)
  130. $Apostrophe = GUICtrlCreateButton("'", 368, 96, 33, 33, $WS_GROUP)
  131. $RightSlash = GUICtrlCreateButton("", 400, 96, 33, 33, $WS_GROUP)
  132. $NumberPad4 = GUICtrlCreateButton("4", 592, 96, 33, 33, $WS_GROUP)
  133. $NumberPad5 = GUICtrlCreateButton("5", 624, 96, 33, 33, $WS_GROUP)
  134. $NumberPad6 = GUICtrlCreateButton("6", 656, 96, 33, 33, $WS_GROUP)
  135. $LeftShift = GUICtrlCreateButton("Shift", 0, 128, 33, 33, $WS_GROUP)
  136. $LeftSlash = GUICtrlCreateButton("", 32, 128, 33, 33, $WS_GROUP)
  137. $z = GUICtrlCreateButton("Z", 64, 128, 33, 33, $WS_GROUP)
  138. $x = GUICtrlCreateButton("X", 96, 128, 33, 33, $WS_GROUP)
  139. $c = GUICtrlCreateButton("C", 128, 128, 33, 33, $WS_GROUP)
  140. $v = GUICtrlCreateButton("V", 160, 128, 33, 33, $WS_GROUP)
  141. $b = GUICtrlCreateButton("B", 192, 128, 33, 33, $WS_GROUP)
  142. $n = GUICtrlCreateButton("N", 224, 128, 33, 33, $WS_GROUP)
  143. $m = GUICtrlCreateButton("M", 256, 128, 33, 33, $WS_GROUP)
  144. $Comma = GUICtrlCreateButton(",", 288, 128, 33, 33, $WS_GROUP)
  145. $Dot = GUICtrlCreateButton(".", 320, 128, 33, 33, $WS_GROUP)
  146. $QuestionMark = GUICtrlCreateButton("/", 352, 128, 33, 33, $WS_GROUP)
  147. $RightShift = GUICtrlCreateButton("Shift", 384, 128, 97, 33, $WS_GROUP)
  148. $NumberPad1 = GUICtrlCreateButton("1", 592, 128, 33, 33, $WS_GROUP)
  149. $NumberPad2 = GUICtrlCreateButton("2", 624, 128, 33, 33, $WS_GROUP)
  150. $NumberPad3 = GUICtrlCreateButton("3", 656, 128, 33, 33, $WS_GROUP)
  151. $NumberPadEnter = GUICtrlCreateButton("Enter", 688, 128, 33, 65, $WS_GROUP)
  152. $LeftCtrl = GUICtrlCreateButton("Ctrl", 0, 160, 41, 33, $WS_GROUP)
  153. $LeftWindows = GUICtrlCreateButton("Win", 40, 160, 41, 33, $WS_GROUP)
  154. $LeftAlt = GUICtrlCreateButton("Alt", 80, 160, 41, 33, $WS_GROUP)
  155. $Space = GUICtrlCreateButton("Space", 120, 160, 201, 33, $WS_GROUP)
  156. $RightAlt = GUICtrlCreateButton("Alt", 320, 160, 41, 33, $WS_GROUP)
  157. $RightWindows = GUICtrlCreateButton("Win", 360, 160, 41, 33, $WS_GROUP)
  158. $RightCtrl = GUICtrlCreateButton("Ctrl", 400, 160, 81, 33, $WS_GROUP)
  159. $NumberPad0 = GUICtrlCreateButton("0", 592, 160, 65, 33, $WS_GROUP)
  160. $NumberPadDot = GUICtrlCreateButton(".", 656, 160, 33, 33, $WS_GROUP)
  161. $LeftArrow = GUICtrlCreateButton("<", 488, 160, 33, 33, $WS_GROUP)
  162. $DownArrow = GUICtrlCreateButton("|", 520, 160, 33, 33, $WS_GROUP)
  163. $RightArrow = GUICtrlCreateButton(">", 552, 160, 33, 33, $WS_GROUP)
  164. $UpArrow = GUICtrlCreateButton("^", 520, 128, 33, 33, $WS_GROUP)
  165. ;Pictures:
  166. $NumberLockOnPic = GUICtrlCreatePic("on.bmp", 600, 3, 18, 26, BitOR($SS_NOTIFY, $WS_GROUP, $WS_CLIPSIBLINGS))
  167. $NumberLockOffPic = GUICtrlCreatePic("off.bmp", 600, 3, 18, 26, BitOR($SS_NOTIFY, $WS_GROUP, $WS_CLIPSIBLINGS))
  168. $CapsLockOnPic = GUICtrlCreatePic("on.bmp", 624, 3, 18, 26, BitOR($SS_NOTIFY, $WS_GROUP, $WS_CLIPSIBLINGS))
  169. $CapsLockOffPic = GUICtrlCreatePic("off.bmp", 624, 3, 18, 26, BitOR($SS_NOTIFY, $WS_GROUP, $WS_CLIPSIBLINGS))
  170. $ScrollLockOnPic = GUICtrlCreatePic("on.bmp", 648, 3, 18, 26, BitOR($SS_NOTIFY, $WS_GROUP, $WS_CLIPSIBLINGS))
  171. $ScrollLockOffPic = GUICtrlCreatePic("off.bmp", 648, 3, 18, 26, BitOR($SS_NOTIFY, $WS_GROUP, $WS_CLIPSIBLINGS))

  173. ;Setting Pictures:
  174. _GetNumLock()
  175. _GetCapsLock()
  176. _GetScrollLock()
  177. If _GetNumLock() = 1 Then
  178.         $NumberLockOn = True
  179. Else
  180.         GUICtrlSetState($NumberLockOnPic, $GUI_HIDE)
  181.         $NumberLockOn = False
  182. EndIf

  184. If _GetCapsLock() = 1 Then
  185.         $CapsLockOn = True
  186. Else
  187.         GUICtrlSetState($CapsLockOnPic, $GUI_HIDE) ;;
  188.         $CapsLockOn = False
  189. EndIf

  191. If _GetScrollLock() = 1 Then
  192.         $ScrollLockOn = True
  193. Else
  194.         GUICtrlSetState($ScrollLockOnPic, $GUI_HIDE)
  195.         $ScrollLockOn = False
  196. EndIf
  197. ;Current focused window will remain focused even after the keyboard GUI is up:
  198. ;~ GUISetState()
  199. GUISetState(@SW_HIDE)
  200. GUIRegisterMsg($WM_MOUSEACTIVATE, 'WM_EVENTS')
  201. $WGT = WinGetTitle("", "")
  202. GUISetState(@SW_SHOWNOACTIVATE)
  203. WinActivate($WGT)


  206. While 1
  207.         If WinActive($Form1) = False Then
  208.                 WinSetTitle($Form1, "", $MainGUITitle & WinGetTitle("", ""))
  209.         EndIf
  210.         $nMsg = GUIGetMsg()
  211.         Switch $nMsg
  212.                 Case $GUI_EVENT_CLOSE
  213.                         Exit
  214.                 Case $ScrollLock
  215.                         _ScrollLockPushed()
  216.                 Case $NumberLock
  217.                         _NumberLockPushed()
  218.                 Case $CapsLock
  219.                         _CapsLockPushed()
  220.                 Case $Esc
  221.                         PressButton("{Escape}", 0)
  222.                 Case $F1
  223.                         PressButton("{F1}", 0)
  224.                 Case $F2
  225.                         PressButton("{F2}", 0)
  226.                 Case $F3
  227.                         PressButton("{F3}", 0)
  228.                 Case $F4
  229.                         PressButton("{F4}", 0)
  230.                 Case $F5
  231.                         PressButton("{F5}", 0)
  232.                 Case $F6
  233.                         PressButton("{F6}", 0)
  234.                 Case $F7
  235.                         PressButton("{F7}", 0)
  236.                 Case $F8
  237.                         PressButton("{F8}", 0)
  238.                 Case $F9
  239.                         PressButton("{F9}", 0)
  240.                 Case $F10
  241.                         PressButton("{F10}", 0)
  242.                 Case $F11
  243.                         PressButton("{F11}", 0)
  244.                 Case $F12
  245.                         PressButton("{F12}", 0)
  246.                 Case $PrintScreen
  247.                         GUISetState(@SW_HIDE)
  248.                         PressButton("{PrintScreen}", 0)
  249.                         GUISetState(@SW_SHOW)
  250.                 Case $PauseBreak
  251.                         PressButton("{PAUSE}", 0)
  252.                 Case $Igel
  253.                         PressButton("`", 0)
  254.                 Case $One
  255.                         PressButton("1", 0)
  256.                 Case $Two
  257.                         PressButton("2", 0)
  258.                 Case $Three
  259.                         PressButton("3", 0)
  260.                 Case $Four
  261.                         PressButton("4", 0)
  262.                 Case $Five
  263.                         PressButton("5", 0)
  264.                 Case $Six
  265.                         PressButton("6", 0)
  266.                 Case $Seven
  267.                         PressButton("7", 0)
  268.                 Case $Eight
  269.                         PressButton("8", 0)
  270.                 Case $Nine
  271.                         PressButton("9", 0)
  272.                 Case $Zero
  273.                         PressButton("0", 0)
  274.                 Case $Minus
  275.                         PressButton("-", 0)
  276.                 Case $Equal
  277.                         PressButton("=", 0)
  278.                 Case $Back
  279.                         PressButton("{Backspace}", 0)
  280.                 Case $Insert
  281.                         PressButton("{Insert}", 0)
  282.                 Case $Home
  283.                         PressButton("{Home}", 0)
  284.                 Case $PageUp
  285.                         PressButton("{PgUp}", 0)
  286.                 Case $NumberPadSlash
  287.                         PressButton("/", 0)
  288.                 Case $NumberPadX
  289.                         PressButton("*", 0)
  290.                 Case $NumberPadMinus
  291.                         PressButton("-", 0)
  292.                 Case $Tab
  293.                         PressButton("{Tab}", 0)
  294.                 Case $q
  295.                         PressButton("q", 0)
  296.                 Case $w
  297.                         PressButton("w", 0)
  298.                 Case $e
  299.                         PressButton("e", 0)
  300.                 Case $r
  301.                         PressButton("r", 0)
  302.                 Case $t
  303.                         PressButton("t", 0)
  304.                 Case $y
  305.                         PressButton("y", 0)
  306.                 Case $u
  307.                         PressButton("u", 0)
  308.                 Case $i
  309.                         PressButton("i", 0)
  310.                 Case $o
  311.                         PressButton("o", 0)
  312.                 Case $p
  313.                         PressButton("p", 0)
  314.                 Case $LeftBrackets
  315.                         PressButton("[", 0)
  316.                 Case $RightBrackets
  317.                         PressButton("]", 0)
  318.                 Case $Enter
  319.                         PressButton("{Enter}", 0)
  320.                 Case $Delete
  321.                         PressButton("{Delete}", 0)
  322.                 Case $End
  323.                         PressButton("{End}", 0)
  324.                 Case $PageDown
  325.                         PressButton("{PgDn}", 0)
  326.                 Case $NumberPad7
  327.                         PressButton("7", 0)
  328.                 Case $NumberPad8
  329.                         PressButton("8", 0)
  330.                 Case $NumberPad9
  331.                         PressButton("9", 0)
  332.                 Case $NumberPadPlus
  333.                         PressButton("+", 0)
  334.                 Case $a
  335.                         PressButton("a", 0)
  336.                 Case $s
  337.                         PressButton("s", 0)
  338.                 Case $d
  339.                         PressButton("d", 0)
  340.                 Case $f
  341.                         PressButton("f", 0)
  342.                 Case $g
  343.                         PressButton("g", 0)
  344.                 Case $h
  345.                         PressButton("h", 0)
  346.                 Case $j
  347.                         PressButton("j", 0)
  348.                 Case $k
  349.                         PressButton("k", 0)
  350.                 Case $l
  351.                         PressButton("l", 0)
  352.                 Case $Colon
  353.                         PressButton(";", 0)
  354.                 Case $Apostrophe
  355.                         PressButton("'", 0)
  356.                 Case $RightSlash
  357.                         PressButton("", 0)
  358.                 Case $NumberPad4
  359.                         PressButton("4", 0)
  360.                 Case $NumberPad5
  361.                         PressButton("5", 0)
  362.                 Case $NumberPad6
  363.                         PressButton("6", 0)
  364.                 Case $LeftSlash
  365.                         PressButton("", 0)
  366.                 Case $z
  367.                         PressButton("z", 0)
  368.                 Case $x
  369.                         PressButton("x", 0)
  370.                 Case $c
  371.                         PressButton("c", 0)
  372.                 Case $v
  373.                         PressButton("v", 0)
  374.                 Case $b
  375.                         PressButton("b", 0)
  376.                 Case $n
  377.                         PressButton("n", 0)
  378.                 Case $m
  379.                         PressButton("m", 0)
  380.                 Case $Comma
  381.                         PressButton(",", 0)
  382.                 Case $Dot
  383.                         PressButton(".", 0)
  384.                 Case $QuestionMark
  385.                         PressButton("/", 0)
  386.                 Case $NumberPad1
  387.                         PressButton("1", 0)
  388.                 Case $NumberPad2
  389.                         PressButton("2", 0)
  390.                 Case $NumberPad3
  391.                         PressButton("3", 0)
  392.                 Case $NumberPadEnter
  393.                         PressButton("{Enter}", 0)
  394.                 Case $LeftWindows
  395.                         PressButton("{Lwin}", 0)
  396.                 Case $Space
  397.                         PressButton("{Space}", 0)
  398.                 Case $RightWindows
  399.                         PressButton("{Rwin}", 0)
  400.                 Case $NumberPad0
  401.                         PressButton("0", 0)
  402.                 Case $NumberPadDot
  403.                         PressButton(".", 0)
  404.                 Case $LeftArrow
  405.                         PressButton("{Left}", 0)
  406.                 Case $DownArrow
  407.                         PressButton("{Down}", 0)
  408.                 Case $RightArrow
  409.                         PressButton("{Right}", 0)
  410.                 Case $UpArrow
  411.                         PressButton("{Up}", 0)
  412.                 Case $LeftShift
  413.                         If $fLeftShiftHolden = False And $fRightShiftHolden = False Then
  414.                                 PressButton("{SHIFTDOWN}", 1)
  415.                                 $fLeftShiftHolden = True
  416.                                 GUICtrlDelete($LeftShift)
  417.                                 $LeftShift = GUICtrlCreateButton("Shift", 0, 128, 33, 33, $WS_GROUP, $WS_EX_CLIENTEDGE)
  418.                         ElseIf $fLeftShiftHolden = True And $fRightShiftHolden = False Then
  419.                                 PressButton("{SHIFTUP}", 1)
  420.                                 $fLeftShiftHolden = False
  421.                                 GUICtrlDelete($LeftShift)
  422.                                 $LeftShift = GUICtrlCreateButton("Shift", 0, 128, 33, 33, $WS_GROUP)
  423.                         ElseIf $fLeftShiftHolden = False And $fRightShiftHolden = True Then
  424.                                 PressButton("{SHIFTDOWN}", 1)
  425.                                 $fRightShiftHolden = False
  426.                                 $fLeftShiftHolden = True
  427.                                 GUICtrlDelete($LeftShift)
  428.                                 GUICtrlDelete($RightShift)
  429.                                 $LeftShift = GUICtrlCreateButton("Shift", 0, 128, 33, 33, $WS_GROUP, $WS_EX_CLIENTEDGE)
  430.                                 $RightShift = GUICtrlCreateButton("Shift", 384, 128, 97, 33, $WS_GROUP)
  431.                         EndIf
  432.                 Case $RightShift
  433.                         If $fRightShiftHolden = False And $fLeftShiftHolden = False Then
  434.                                 PressButton("{SHIFTDOWN}", 1)
  435.                                 $fRightShiftHolden = True
  436.                                 GUICtrlDelete($RightShift)
  437.                                 $RightShift = GUICtrlCreateButton("Shift", 384, 128, 97, 33, $WS_GROUP, $WS_EX_CLIENTEDGE)
  438.                         ElseIf $fRightShiftHolden = True And $fLeftShiftHolden = False Then
  439.                                 PressButton("{SHIFTUP}", 1)
  440.                                 $fRightShiftHolden = False
  441.                                 GUICtrlDelete($RightShift)
  442.                                 $RightShift = GUICtrlCreateButton("Shift", 384, 128, 97, 33, $WS_GROUP)
  443.                         ElseIf $fRightShiftHolden = False And $fLeftShiftHolden = True Then
  444.                                 PressButton("{SHIFTDOWN}", 1)
  445.                                 $fLeftShiftHolden = False
  446.                                 $fRightShiftHolden = True
  447.                                 GUICtrlDelete($RightShift)
  448.                                 GUICtrlDelete($LeftShift)
  449.                                 $RightShift = GUICtrlCreateButton("Shift", 384, 128, 97, 33, $WS_GROUP, $WS_EX_CLIENTEDGE)
  450.                                 $LeftShift = GUICtrlCreateButton("Shift", 0, 128, 33, 33, $WS_GROUP)
  451.                         EndIf
  452.                 Case $LeftCtrl
  453.                         If $fLeftCtrlHolden = False And $fRightCtrlHolden = False Then
  454.                                 PressButton("{CTRLDOWN}", 1)
  455.                                 $fLeftCtrlHolden = True
  456.                                 GUICtrlDelete($LeftCtrl)
  457.                                 $LeftCtrl = GUICtrlCreateButton("Ctrl", 0, 160, 41, 33, $WS_GROUP, $WS_EX_CLIENTEDGE)
  458.                         ElseIf $fLeftCtrlHolden = True And $fRightCtrlHolden = False Then
  459.                                 PressButton("{CTRLUP}", 1)
  460.                                 $fLeftCtrlHolden = False
  461.                                 GUICtrlDelete($LeftCtrl)
  462.                                 $LeftCtrl = GUICtrlCreateButton("Ctrl", 0, 160, 41, 33, $WS_GROUP)
  463.                         ElseIf $fLeftCtrlHolden = False And $fRightCtrlHolden = True Then
  464.                                 PressButton("{CTRLDOWN}", 1)
  465.                                 $fRightCtrlHolden = False
  466.                                 $fLeftCtrlHolden = True
  467.                                 GUICtrlDelete($LeftCtrl)
  468.                                 GUICtrlDelete($RightCtrl)
  469.                                 $LeftCtrl = GUICtrlCreateButton("Ctrl", 0, 160, 41, 33, $WS_GROUP, $WS_EX_CLIENTEDGE)
  470.                                 $RightCtrl = GUICtrlCreateButton("Ctrl", 400, 160, 81, 33, $WS_GROUP)
  471.                         EndIf
  472.                 Case $RightCtrl
  473.                         If $fRightCtrlHolden = False And $fLeftCtrlHolden = False Then
  474.                                 PressButton("{CTRLDOWN}", 1)
  475.                                 $fRightCtrlHolden = True
  476.                                 GUICtrlDelete($RightCtrl)
  477.                                 $RightCtrl = GUICtrlCreateButton("Ctrl", 400, 160, 81, 33, $WS_GROUP, $WS_EX_CLIENTEDGE)
  478.                         ElseIf $fRightCtrlHolden = True And $fLeftCtrlHolden = False Then
  479.                                 PressButton("{CTRLUP}", 1)
  480.                                 $fRightCtrlHolden = False
  481.                                 GUICtrlDelete($RightCtrl)
  482.                                 $RightCtrl = GUICtrlCreateButton("Ctrl", 400, 160, 81, 33, $WS_GROUP)
  483.                         ElseIf $fRightCtrlHolden = False And $fLeftCtrlHolden = True Then
  484.                                 PressButton("{CTRLDOWN}", 1)
  485.                                 $fLeftCtrlHolden = False
  486.                                 $fRightCtrlHolden = True
  487.                                 GUICtrlDelete($RightCtrl)
  488.                                 GUICtrlDelete($LeftCtrl)
  489.                                 $RightCtrl = GUICtrlCreateButton("Ctrl", 400, 160, 81, 33, $WS_GROUP, $WS_EX_CLIENTEDGE)
  490.                                 $LeftCtrl = GUICtrlCreateButton("Ctrl", 0, 160, 41, 33, $WS_GROUP)
  491.                         EndIf
  492.                 Case $LeftAlt
  493.                         If $fLeftAltHolden = False And $fRightAltHolden = False Then
  494.                                 PressButton("{ALTDOWN}", 1)
  495.                                 $fLeftAltHolden = True
  496.                                 GUICtrlDelete($LeftAlt)
  497.                                 $LeftAlt = GUICtrlCreateButton("Alt", 80, 160, 41, 33, $WS_GROUP, $WS_EX_CLIENTEDGE)
  498.                         ElseIf $fLeftAltHolden = True And $fRightAltHolden = False Then
  499.                                 PressButton("{ALTUP}", 1)
  500.                                 $fLeftAltHolden = False
  501.                                 GUICtrlDelete($LeftAlt)
  502.                                 $LeftAlt = GUICtrlCreateButton("Alt", 80, 160, 41, 33, $WS_GROUP)
  503.                         ElseIf $fLeftAltHolden = False And $fRightAltHolden = True Then
  504.                                 PressButton("{ALTDOWN}", 1)
  505.                                 $fRightAltHolden = False
  506.                                 $fLeftAltHolden = True
  507.                                 GUICtrlDelete($LeftAlt)
  508.                                 GUICtrlDelete($RightAlt)
  509.                                 $LeftAlt = GUICtrlCreateButton("Alt", 80, 160, 41, 33, $WS_GROUP, $WS_EX_CLIENTEDGE)
  510.                                 $RightAlt = GUICtrlCreateButton("Alt", 320, 160, 41, 33, $WS_GROUP)
  511.                         EndIf
  512.                 Case $RightAlt
  513.                         If $fRightAltHolden = False And $fLeftAltHolden = False Then
  514.                                 PressButton("{ALTDOWN}", 1)
  515.                                 $fRightAltHolden = True
  516.                                 GUICtrlDelete($RightAlt)
  517.                                 $RightAlt = GUICtrlCreateButton("Alt", 320, 160, 41, 33, $WS_GROUP, $WS_EX_CLIENTEDGE)
  518.                         ElseIf $fRightAltHolden = True And $fLeftAltHolden = False Then
  519.                                 PressButton("{ALTUP}", 1)
  520.                                 $fRightAltHolden = False
  521.                                 GUICtrlDelete($RightAlt)
  522.                                 $RightAlt = GUICtrlCreateButton("Alt", 320, 160, 41, 33, $WS_GROUP)
  523.                         ElseIf $fRightAltHolden = False And $fLeftAltHolden = True Then
  524.                                 PressButton("{ALTDOWN}", 1)
  525.                                 $fLeftAltHolden = False
  526.                                 $fRightAltHolden = True
  527.                                 GUICtrlDelete($RightAlt)
  528.                                 GUICtrlDelete($LeftAlt)
  529.                                 $RightAlt = GUICtrlCreateButton("Alt", 320, 160, 41, 33, $WS_GROUP, $WS_EX_CLIENTEDGE)
  530.                                 $LeftAlt = GUICtrlCreateButton("Alt", 80, 160, 41, 33, $WS_GROUP)
  531.                         EndIf
  532.         EndSwitch
  533. WEnd

  535. Func PressButton($_Key, $_HoldNeeded)
  536.         Local $ctrl
  537.         $ReplacedString = StringReplace(WinGetTitle($Form1), "Virtual Keyboard v0.1 - ", "")
  538.         $ctrl = ControlGetFocus($ReplacedString)
  539.         $ie_handle = WinWaitActive(WinGetTitle('', ''))
  540.         If WinActivate($ReplacedString) Then
  541.                 If _ArrayBinarySearch($keyStroke_Array, $_Key) <> -1 And $_Key <> "{TAB}" Then
  542.                         Select
  543.                                 Case $_Key == '{SHIFTDOWN}'
  544.                                         $shiftstatus = 1
  545.                                 Case $_Key == '{SHIFTUP}'
  546.                                         $shiftstatus = 0
  547.                                 Case $_Key == '{CTRLDOWN}'
  548.                                         $ctrlstatus = 1
  549.                                 Case $_Key == '{CTRLUP}'
  550.                                         $ctrlstatus = 0
  551.                                 Case $_Key == '{ALTUP}'
  552.                                         $altstatus = 0
  553.                                 Case $_Key == '{ALTDOWN}'
  554.                                         $altstatus = 1
  555.                                 Case StringLower($_Key) == StringLower('{BS}')
  556.                                         ControlFocus($ReplacedString, "", $ctrl)
  557.                                         ControlSend($ReplacedString, "", $ctrl, "{ASC 008}")
  558.                                 Case StringLower($_Key) == StringLower('{BACKSPACE}')
  559.                                         ControlFocus($ReplacedString, "", $ctrl)
  560.                                         ControlSend($ReplacedString, "", $ctrl, "{ASC 008}")
  561.                                 Case Else
  562.                                         Send($_Key)
  563.                         EndSelect
  564.                 Else
  565.                         If $shiftstatus == 1 And $CapsLockOn == False And $ctrlstatus == 0 And $altstatus == 0 And $_Key <> "{TAB}" Then
  566. ;~ Send('0')
  567.                                 ControlFocus($ReplacedString, "", $ctrl)
  568.                                 If $ie_handle <> 0 And StringInStr($ctrl, 'Internet Explorer_Server', 0) > 0 Then
  569.                                         get_keyboard_focus($ie_handle, $ctrl, StringUpper($_Key))
  570.                                 Else
  571.                                         ControlCommand($ReplacedString, "", $ctrl, "EditPaste", StringUpper($_Key))
  572.                                 EndIf
  573.                         ElseIf $shiftstatus == 0 And $CapsLockOn == True And $ctrlstatus == 0 And $altstatus == 0 And $_Key <> "{TAB}" Then
  574.                                 ControlFocus($ReplacedString, "", $ctrl)
  575.                                 If $ie_handle <> 0 And StringInStr($ctrl, 'Internet Explorer_Server', 0) > 0 Then
  576.                                         get_keyboard_focus($ie_handle, $ctrl, StringUpper($_Key))
  577.                                 Else
  578.                                         ControlCommand($ReplacedString, "", $ctrl, "EditPaste", StringUpper($_Key))
  579.                                 EndIf
  580.                         ElseIf $shiftstatus == 1 And $CapsLockOn == True And $ctrlstatus == 0 And $altstatus == 0 And $_Key <> "{TAB}" Then
  581.                                 ControlFocus($ReplacedString, "", $ctrl)
  582.                                 If $ie_handle <> 0 And StringInStr($ctrl, 'Internet Explorer_Server', 0) > 0 Then
  583.                                         get_keyboard_focus($ie_handle, $ctrl, $_Key)
  584.                                 Else
  585.                                         ControlCommand($ReplacedString, "", $ctrl, "EditPaste", $_Key)
  586.                                 EndIf
  587.                         ElseIf $shiftstatus == 0 And $CapsLockOn == False And $ctrlstatus == 0 And $altstatus == 0 And $_Key <> "{TAB}" Then
  588.                                 ControlFocus($ReplacedString, "", $ctrl)
  589.                                 If $ie_handle <> 0 And StringInStr($ctrl, 'Internet Explorer_Server', 0) > 0 Then
  590.                                         get_keyboard_focus($ie_handle, $ctrl, $_Key)
  591.                                 Else
  592.                                         ControlCommand($ReplacedString, "", $ctrl, "EditPaste", $_Key)
  593.                                 EndIf
  594.                         ElseIf $ctrlstatus == 1 And $altstatus == 0 Then
  595.                                 ControlFocus($ReplacedString, "", $ctrl)
  596.                                 If $ie_handle <> 0 And StringInStr($ctrl, 'Internet Explorer_Server', 0) > 0 Then
  597.                                         get_keyboard_focus($ie_handle, $ctrl, $_Key)
  598.                                 Else
  599.                                         ControlSend($ReplacedString, "", $ctrl, '^' & $_Key)
  600.                                 EndIf
  601.                         ElseIf $ctrlstatus == 0 And $altstatus == 1 Then
  602.                                 ControlFocus($ReplacedString, "", $ctrl)
  603.                                 ControlSend($ReplacedString, "", $ctrl, '!' & $_Key)
  604.                         Else
  605.                                 ControlFocus($ReplacedString, "", $ctrl)
  606.                                 ControlSend($ReplacedString, "", $ctrl, "{ASC 0x09}")
  607.                         EndIf
  608.                 EndIf
  609.         EndIf
  610.         If $_HoldNeeded = 1 Then
  611.                 SoundPlay("Hold.wav")
  612.         Else
  613.                 SoundPlay("Type.wav")
  614.                 SoundSetWaveVolume(10) ;Set volume for both Hold.wav and Type.wav
  615.         EndIf
  616. EndFunc   ;==>PressButton

  618. Func get_keyboard_focus($ie_handle, $control_class_namenn, $key)
  619.         _IEErrorHandlerRegister("MyErrFunc")
  620.         $oIE = _IEAttach($ie_handle, 'Embedded')
  621.         If IsObj($oIE) Then
  622.                 $oIE.document.activeElement.name
  623.                 If @error == 0 Then
  624.                         $oRange = $oIE.document.selection.createRange()
  625.                         $oRange.text = $key
  626.                         Return
  627.                 Else
  628.                         ConsoleWrite($key)
  629.                         ControlSend('', '', '', $key)
  630.                 EndIf
  631.         EndIf
  632. EndFunc   ;==>get_keyboard_focus

  634. Func MyErrFunc()
  635.         SetError(1, 1, 1)
  636.         Return
  637. EndFunc   ;==>MyErrFunc

  639. Func _GetNumLock() ; By GaryFrost
  640.         Local $ret
  641.         $ret = DllCall("user32.dll", "long", "GetKeyState", "long", $VK_NUMLOCK)
  642.         Return $ret[0]
  643. EndFunc   ;==>_GetNumLock

  645. Func _GetScrollLock() ; By GaryFrost
  646.         Local $ret
  647.         $ret = DllCall("user32.dll", "long", "GetKeyState", "long", $VK_SCROLL)
  648.         Return $ret[0]
  649. EndFunc   ;==>_GetScrollLock

  651. Func _GetCapsLock() ; By GaryFrost
  652.         Local $ret
  653.         $ret = DllCall("user32.dll", "long", "GetKeyState", "long", $VK_CAPITAL)
  654.         Return $ret[0]
  655. EndFunc   ;==>_GetCapsLock

  657. Func Quit()
  658.         GUIDelete($Form1)
  659.         Exit
  660. EndFunc   ;==>Quit

  662. Func _NumberLockPushed()
  663.         If $NumberLockOn = True Then
  664.                 GUICtrlSetState($NumberLockOnPic, $GUI_HIDE)
  665.                 PressButton("{NumLock}", 1)
  666.                 $NumberLockOn = False
  667.         Else
  668.                 GUICtrlSetState($NumberLockOnPic, $GUI_SHOW)
  669.                 PressButton("{NumLock}", 1)
  670.                 $NumberLockOn = True
  671.         EndIf
  672. EndFunc   ;==>_NumberLockPushed

  674. Func _ScrollLockPushed()
  675.         If $ScrollLockOn = True Then
  676.                 GUICtrlSetState($ScrollLockOnPic, $GUI_HIDE)
  677.                 PressButton("{ScrollLock}", 1)
  678.                 $ScrollLockOn = False
  679.         Else
  680.                 GUICtrlSetState($ScrollLockOnPic, $GUI_SHOW)
  681.                 PressButton("{ScrollLock}", 1)
  682.                 $ScrollLockOn = True
  683.         EndIf
  684. EndFunc   ;==>_ScrollLockPushed

  686. Func _CapsLockPushed()
  687.         If $CapsLockOn = True Then
  688.                 GUICtrlSetState($CapsLockOnPic, $GUI_HIDE)
  689.                 PressButton("{CapsLock}", 1)
  690.                 $CapsLockOn = False
  691.         Else
  692.                 GUICtrlSetState($CapsLockOnPic, $GUI_SHOW)
  693.                 PressButton("{CapsLock}", 1)
  694.                 $CapsLockOn = True
  695.         EndIf
  696. EndFunc   ;==>_CapsLockPushed

  698. Func WM_EVENTS($hWndGUI, $MsgID, $WParam, $LParam)
  699.         Switch $hWndGUI
  700.                 Case $Form1
  701.                         Switch $MsgID
  702.                                 Case $WM_MOUSEACTIVATE
  703.                                         ; Check mouse position
  704.                                         Local $aMouse_Pos = GUIGetCursorInfo($Form1)
  705.                                         If $aMouse_Pos[4] > 0 Then
  706.                                                 Local $word = _WinAPI_MakeLong($aMouse_Pos[4], $BN_CLICKED)
  707.                                                 _SendMessage($Form1, $WM_COMMAND, $word, GUICtrlGetHandle($aMouse_Pos[4]))
  708.                                         ElseIf $aMouse_Pos[1] < 0 And $aMouse_Pos[0] > 700 Then
  709.                                                 Quit()
  710.                                         Else
  711.                                                 WinActivate($Form1)
  712.                                         EndIf
  713.                                         Return $MA_NOACTIVATEANDEAT
  714.                         EndSwitch
  715.         EndSwitch
  716.         Return $GUI_RUNDEFMSG
  717. EndFunc   ;==>WM_EVENTS
复制代码
created, 能力, 网上, 虚拟键盘

相关帖子
回复

举报

q410225
发表于 2016-12-19 13:12:00 | 显示全部楼层
本帖最后由 q410225 于 2016-12-19 13:17 编辑

做的挺精致的,

想呼出,最简单的是编译后做个快捷方式,设热键,

要不然就用HotKeySet
回复

举报

1361739590
发表于 2016-12-21 09:21:42 | 显示全部楼层
PressButton($_Key, $_HoldNeeded)
这个就是主函数吧，可以直接调用，其他的都是界面和变量定义。
回复

举报

返回列表 发新帖
高级模式
B Color Image Link Quote Code Smilies
您需要登录后才可以回帖 登录 | 加入

本版积分规则

QQ|手机版|小黑屋|AUTOIT CN ( 鲁ICP备19019924号-1 )谷歌 百度

GMT+8, 2026-9-20 23:31 , Processed in 0.080417 second(s), 23 queries .

Powered by Discuz! X3.5 Licensed

© 2001-2026 Discuz! Team.

快速回复 返回顶部 返回列表