key_event 键盘模拟（转集）

3. ''键盘表
4. 'VB中的键码 '常数'键码值'描述
5. Const vbKeyLButton = 1  '鼠标左键
6. Const vbKeyRButton = 2  '鼠标右键
7. Const vbKeyCancel = 3 'CANCEL 键
8. Const vbKeyMButton = 4  '鼠标中键
9. Const vbKeyBack = 8 'Backspace 键
10. Const vbKeyTab = 9  'TAB 键
11. Const vbKeyClear = 12 'CLEAR 键
12. Const vbKeyReturn = 13  'Enter 键
13. Const vbKeyShift = 16 'Shift 键
14. Const vbKeyConterol = 17 'Ctrl 键
15. Const vbKeyMenu = 18 '菜单键
16. Const vbKeyPause = 19 'PAUSE 键
17. Const vbKeyCapital = 20 'CAPS   'LOCK 键
18. Const vbKeyEscape = 27  'ESC 键
19. Const vbKeySpace = 32 'SPACEBAR 键
20. Const vbKeyPageUp = 33  'PAGEUP 键
21. Const vbKeyPageDown = 34 'PAGEDOWN 键
22. Const vbKeyEnd = 35 'END 键
23. Const vbKeyHome = 36 'HOME 键
24. Const vbKeyLeft = 37 'LEFT   'ARROW 键←
25. Const vbKeyUp = 38  'UP 'ARROW 键↑
26. Const vbKeyRight = 39 'RIGHT  'ARROW 键→
27. Const vbKeyDown = 40 'DOWN   'ARROW 键↓
28. Const vbKeySelect = 41  'SELECT 键
29. Const vbKeyPrint = 42 'PRINT  'SCREEN 键
30. Const vbKeyExecute = 43 'EXECUTE 键
31. Const vbKeySnapshot = 44 'SNAP   'SHOT 键
32. Const vbKeyInser = 45 'INSERT 键
33. Const vbKeyDelete = 46  'DELETE 键
34. Const vbKeyHelp = 47 'HELP 键
35. Const vbKey0 = 48 '0 键
36. Const vbKey1 = 49 '1 键
37. Const vbKey2 = 50 '2 键
38. Const vbKey3 = 51 '3 键
39. Const vbKey4 = 52 '4 键
40. Const vbKey5 = 53 '5 键
41. Const vbKey6 = 54 '6 键
42. Const vbKey7 = 55 '7 键
43. Const vbKey8 = 56 '8 键
44. Const vbKey9 = 57 '9 键
45. Const vbKeyA = 65 'A 键
46. Const vbKeyB = 66 'B 键
47. Const vbKeyC = 67 'C 键
48. Const vbKeyD = 68 'D 键
49. Const vbKeyE = 69 'E 键
50. Const vbKeyF = 70 'F 键
51. Const vbKeyG = 71 'G 键
52. Const vbKeyH = 72 'H 键
53. Const vbKeyI = 73 'I 键
54. Const vbKeyJ = 74 'J 键
55. Const vbKeyK = 75 'K 键
56. Const vbKeyL = 76 'L 键
57. Const vbKeyM = 77 'M 键
58. Const vbKeyN = 78 'N 键
59. Const vbKeyO = 79 'O 键
60. Const vbKeyP = 80 'P 键
61. Const vbKeyQ = 81 'Q 键
62. Const vbKeyR = 82 'R 键
63. Const vbKeyS = 83 'S 键
64. Const vbKeyT = 84 'T 键
65. Const vbKeyU = 85 'U 键
66. Const vbKeyV = 86 'V 键
67. Const vbKeyW = 87 'W 键
68. Const vbKeyX = 88 'X 键
69. Const vbKeyY = 89 'Y 键
70. Const vbKeyZ = 90 'Z 键
71. Const vbKeyNum0 = 96 '0 键   '(在数字小键盘上)
72. Const vbKeyNum1 = 97 '1 键   '(在数字小键盘上)
73. Const vbKeyNum2 = 98 '2 键   '(在数字小键盘上)
74. Const vbKeyNum3 = 99 '3 键   '(在数字小键盘上)
75. Const vbKeyNum4 = 100 '4 键   '(在数字小键盘上)
76. Const vbKeyNum5 = 101 '5 键   '(在数字小键盘上)
77. Const vbKeyNum6 = 102 '6 键   '(在数字小键盘上)
78. Const vbKeyNum7 = 103 '7 键   '(在数字小键盘上)
79. Const vbKeyNum8 = 104 '8 键   '(在数字小键盘上)
80. Const vbKeyNum9 = 105 '9 键   '(在数字小键盘上)
81. Const vbKeyMultiply = 106 '乘号(*) 键
82. Const vbKeyAdd = 107 '加号(+) 键
83. Const vbKeySeparator = 108  'Enter键(在数字小键盘上)
84. Const vbKeySubtract = 109 '减号(-) 键
85. Const vbKeyDecimal = 110 '小数点(.) 键
86. Const vbKeyDivide = 111 '除号(/) 键
87. Const vbKeyF1 = 112 'F1 键
88. Const vbKeyF2 = 113 'F2 键
89. Const vbKeyF3 = 114 'F3 键
90. Const vbKeyF4 = 115 'F4 键
91. Const vbKeyF5 = 116 'F5 键
92. Const vbKeyF6 = 117     'F6 键
93. Const vbKeyF7 = 118 'F7 键
94. Const vbKeyF8 = 119 'F8 键
95. Const vbKeyF9 = 120 'F9 键
96. Const vbKeyF10 = 121 'F10 键
97. Const vbKeyF11 = 122 'F11 键
98. Const vbKeyF12 = 123 'F12 键
99. Const vbKeyF13 = 124 'F13 键
100. Const vbKeyF14 = 125 'F14 键
101. Const vbKeyF15 = 126 'F15 键
102. Const vbKeyF16 = 127 'F16 键
103. Const vbKeyNumlock = 144 'NUM    'LOCK 键    '
105. ''
106. Const KEYEVENTF_KEYUP = &H2
109. ''
110. Private Declare Sub keybd_event Lib "user32" (ByVal bVk As Byte, ByVal Scan As Byte, ByVal dwFlags As Long, ByVal dwExtraInfo As Long)
111. Private Declare Function GetAsyncKeyState Lib "user32" (ByVal vkey As Long) As Integer
112. Private Declare Function MapVirtualKey Lib "user32" Alias "MapVirtualKeyA" (ByVal wCode As Long, ByVal wMapType As Long) As Long    '计算扫描码
113. Private Declare Function GetKeyState Lib "user32" (ByVal nVirtKey As Integer) As Integer    '这个比较正确
115. ''休眠
116. Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)
119. ''输入法相关
120. Private Declare Function GetKeyboardLayoutList Lib "user32" (ByVal nBuff As Long, lpList As Long) As Long   '所有输入法
121. Private Declare Function ImmGetDescription Lib "imm32.dll" Alias "ImmGetDescriptionA" (ByVal hkl As Long, ByVal lpsz As String, ByVal uBufLen As Long) As Long
122. Private Declare Function ImmIsIME Lib "imm32.dll" (ByVal hkl As Long) As Long   '中文输入法
123. Private Declare Function ActivateKeyboardLayout Lib "user32" (ByVal hkl As Long, ByVal flags As Long) As Long   '使用输入法
124. Private Declare Function GetKeyboardLayout Lib "user32" (ByVal dwLayout As Long) As Long    '取输入法   '0当前
125. Private Declare Function GetKeyboardLayoutName Lib "user32" Alias "GetKeyboardLayoutNameA" (ByVal pwszKLID As String) As Long
126. Private Declare Function LoadKeyboardLayout Lib "user32" Alias "LoadKeyboardLayoutA" (ByVal pwszKLID As String, ByVal flags As Long) As Long
127.           
128.           Const KLF_REORDER = &H8
129.           Private NoOfKBDLayout     As Long, i       As Long, j       As Long
130.           Private hKB(24)     As Long, BuffLen       As Long
131.           Private Buff     As String
132.           Private RetStr     As String
133.           Private RetCount     As Long
134.           Private kln     As String
135.           Private hCurKBDLayout As Variant
136.           
138. ''换成英文输入法
139. Private Sub set_kb_en()
140.           Buff = String(255, 0)
141.           hCurKBDLayout = GetKeyboardLayout(0)       '取得目前的输入法
142.           NoOfKBDLayout = GetKeyboardLayoutList(25, hKB(0))         '取得所有输入法
143.           
144.           For i = 1 To NoOfKBDLayout
145.             If ImmIsIME(hKB(i - 1)) = 1 Then               '中文输入法
146.                 BuffLen = 255
147.                 RetCount = ImmGetDescription(hKB(i - 1), Buff, BuffLen)
148.                 RetStr = Left(Buff, RetCount)
149.                 Debug.Print i & ":" & RetStr
150.             Else
151.                 RetStr = "English   (American)"       '英文输入法
152.                 Debug.Print i, RetStr
153.                 ActivateKeyboardLayout GetKeyboardLayout(hKB(i - 1)), 0       '使用英文输入法
154.             End If
155.           Next
156. End Sub
161. ''换成原输入法
162. Private Sub set_kb_re()
163.           'ActivateKeyboardLayout hCurKBDLayout, 0       '恢复原来的输入法
164. End Sub
168. ''输入一个字符  ,一串字符
169. Public Function set_key(key_char As String)
170.     Dim isUper As Boolean, isCapital As Boolean, isShift As Boolean
171.     Dim key_CH As String
172.     
173.     key_CH = Left(key_char, 1)
174.     isCapital = GetKeyState(vbKeyCapital)       '大写状态
175.     '相异就得SHIFT，针对字母
176.     isShift = IIf(Asc(key_CH) >= 65 And Asc(key_CH) <= 90 And isCapital = False, True, False)
177.     isShift = isShift Or IIf(Asc(key_CH) >= Asc("a") And Asc(key_CH) <= Asc("z") And isCapital = True, True, False)
178.     
179.     
180.     If Len(key_char) = 0 Then Call set_kb_re: Exit Function     '无字符退出
181.     
182.     
183.     
184.     key_CH = Asc(UCase(key_CH)) 'vkey
185.     'hCurKBDLayout = GetKeyboardLayout(0)       '取得目前的输入法
186.     'Debug.Print ImmGetDescription(hCurKBDLayout, Buff, 255)
187.     'If key_CH < 128 Then Debug.Print IMEStatus()
189.     If isUper Xor isCapital Then '锁定与字符状态相异则用SHIFT
190.         keybd_event vbKeyShift, MapVirtualKey(vbKeyShift, 0), 0, 0
191.         Sleep 5
192.     End If
193.     keybd_event key_CH, MapVirtualKey(key_CH, 0), 0, 0
194.     Sleep 10
195.     
196.     
197.     ''弹起
198.     keybd_event key_CH, MapVirtualKey(key_CH, 0), KEYEVENTF_KEYUP, 0
199.         Sleep 5
200.     If isUper Xor isCapital Then '锁定与字符状态相异则用SHIFT
201.         keybd_event vbKeyShift, MapVirtualKey(vbKeyShift, 0), KEYEVENTF_KEYUP, 0
202.         Sleep 5
203.     End If
204.     
205.     If Len(key_char) = 1 Then set_key = Chr(key_CH):  Call set_kb_re: Exit Function '单字符退出
206.     set_key = Chr(key_CH) & set_key(Mid(key_char, 2))   '多字符继续
207. End Function