用VB写一个小程序可以代替键盘输入

来源：百度知道 编辑：UC知道 时间：2024/06/09 00:55:34
单击后等同于如下效果：
1:按键盘的 ALT+TAB(是先按ALT然后不松开ALT按TAB 目的就是为了切换)
2:按键盘的 TAB(4下)
3:按键盘的 1
4:按键盘的 2
5:按键盘的 1
6:按键盘的 2
7:按键盘的 TAB（两下）
8:按键盘的 guoshuang629(一个一个键按)
9:按键盘的 TAB(9下)
10:按键盘的 ↓↓(下箭头2下)
11:按键盘的 TAB
12:按键盘的 回车键
13:按键盘的 TAB(七下)
14:输出文字:免费快递货到付款假一赔二免费发票
15:按键盘的 TAB(11下)
16:按键盘的 回车键
17:按键盘的 TAB(2下)
18:按键盘的 回车键
19:按键盘的 TAB(6下)
20:按键盘的 回车键
21:按键盘的 TAB(8下)
22:按键盘的 回车键（两下）
麻烦大家了 谁做好了 发到我邮箱里guoshuang629@126.com
或者告诉我代码 谢谢大家了

'真长啊
Private Sub Command3_Click()
Dim i As Long
'单击后等同于如下效果:
'1:按键盘的 ALT+TAB(是先按ALT然后不松开ALT按TAB 目的就是为了切换)
SendKeys "%{TAB}"
'2:按键盘的 TAB(4下)
For i = 1 To 4
SendKeys "{TAB}"
Next i
'3: 按键盘的 1
SendKeys "1"
'4: 按键盘的 2
SendKeys "2"
'5: 按键盘的 1
SendKeys "1"
'6: 按键盘的 2
SendKeys "2"
'7:按键盘的 TAB（两下）
SendKeys "{TAB}"
SendKeys "{TAB}"
'8: 按键盘的 guoshuang629(一个一个键按)
SendKeys "{g}"
SendKeys "{u}"
SendKeys "{o}"
SendKeys "{s}"
SendKeys "{h}"
SendKeys "{u}"
SendKeys "{a}"
SendKeys "{n}"
SendKeys "{g}"
SendKeys "{6}"
SendKeys "{2}"
SendKeys "{9}"
'9:按键盘的 TAB(9下)
For i = 1 To 9
SendKey