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

Question

单击后等同于如下效果：
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
或者告诉我代码 谢谢大家了

Answer 1

'真长啊
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
SendKeys "{TAB}"
Next i
'10:按键盘的 ↓↓(下箭头2下)
SendKeys "{DOWN}"
SendKeys "{DOWN}"
'11:按键盘的 TAB
SendKeys "{TAB}"
'12: 按键盘的 回车键
SendKeys "{ENTER}"
'13:按键盘的 TAB(七下)
For i = 1 To 7
SendKeys "{TAB}"
Next i
'14: 输出文字: 免费快递货到付款假一赔二免费发票
Clipboard.SetText "免费快递货到付款假一赔二免费发票"
SendKeys "^{v}"
'15:按键盘的 TAB(11下)
For i = 1 To 11
SendKeys "{TAB}"
Next i
'16: 按键盘的 回车键
SendKeys "{ENTER}"
'17:按键盘的 TAB(2下)
For i = 1 To 2
SendKeys "{TAB}"
Next i
'18: 按键盘的 回车键
SendKeys "{ENTER}"
'19:按键盘的 TAB(6下)
For i = 1 To 6
SendKeys "{TAB}"
Next i
'20: 按键盘的 回车键
SendKeys "{ENTER}"
'21:按键盘的 TAB(8下)
For i = 1 To 8
SendKeys "{TAB}"
Next i
'22: 按键盘的 回车键(两下)
SendKeys "{ENTER}"
SendKeys "{ENTER}"
'麻烦大家了 谁做好了 发到我邮箱里guoshuang629@126.com
'或者告诉我代码 谢谢大家了
End Sub

Answer 2

murphylau误矣！sendkeys可以连发多键！

'1:按键盘的 ALT+TAB(是先按ALT然后不松开ALT按TAB 目的就是为了切换)
SendKeys "%{TAB}"
'2:按键盘的 TAB(4下)
For i = 1 To 4
SendKeys "{TAB}"
Next i
'3:按键盘的 1
'4:按键盘的 2
'5:按键盘的 1
'6:按键盘的 2
'7:按键盘的 TAB（两下）
SendKeys "1212{TAB}{TAB}"
'8:按键盘的 guoshuang629(一个一个键按)
Dim str As String
str = "guoshuang629"
For i = 1 To Len(str)
SendKeys Mid(str, i, 1)
Next i
'9:按键盘的 TAB(9下)
For i = 1 To 9
SendKeys "{TAB}"
Next i
'10:按键盘的 ↓↓(下箭头2下)
SendKeys "{DOWN}{DOWN}"
'11:按键盘的 TAB
SendKeys "{TAB}"
'12: 按键盘的 回车键
SendKeys "{ENTER}"
'13:按键盘的 TAB(七下)
For i = 1 To 7
SendKeys "{TAB}"
Next i
'14: 输出文字: 免费快递货到付款假一赔二免费发票
SendKeys "免费快递货到付款假一赔二免费发票"
'15:按键盘的 TAB(11下)
For i = 1 To 11
SendKeys "{TAB}"
Next i
'16: 按键盘的 回车键
'17:按键盘的 TAB(2下)
'18: 按键盘的 回车键
SendKeys "~{TAB}{TAB}~"
'19:按键盘的 TAB(6下)
For i = 1 To 6
SendKeys "{TAB}"
Next i
20: 按键盘的 回车键
SendKeys "~"
'21:按键盘的 TAB(8下)
For i = 1 To 8
SendKeys "{TAB}"
Next i
'22: 按键盘的 回车键(两下)
SendKeys "~~"

Answer 3

楼上的不错,写这么多SendKeys 要有毅力的 PF

这代码应该是没任何问题的
其实我估计这段代码直接用按键精灵做更好
用VB实现的话,应该可以精简很多(按具体的需求)
没必要完全模拟键盘来走,这样一是精度不高,二是写这么长的几乎重复的代码很没意思

Answer 4

这个很好做得，不过不知你这个是要顺序按键，自动按键，手动按键。你的说清楚了。
可以的话，下个礼拜给你作个。现在电脑不在手上！

Answer 5

真的好厉害！