Question

VB执行键盘按键

Private Declare Function GetAsyncKeyState Lib "user32" (ByVal Vkey As Long) As Integer

Private Function MyHotKey(vKeyCode) As Boolean
MyHotKey = GetAsyncKeyState(vKeyCode) < 0
End Function

Private Sub Timer1_Timer()
If MyHotKey(vbKeyF1) Then '当我按下F1键时
此处写执行（←→Z）三个键的组合键
End If
End Sub
请问代码要如何写呢？
希望高手指点下，不胜感激的说

Answer 1

参考吧：

vbs SendKey用法

简单说,这个命令就是模拟键盘操作,将一个或多个按键指令发送到指定Windows窗口来控制应用程序运行,其使用格式为:
object.SendKeys string
"object":表示WshShell对象
"string":表示要发送的按键指令字符串,需要放在英文双引号中.

Shift --》 +
Ctrl --》 ^
Alt --》 %

。。。。。。。。。。。。。。。
可以写成：
SendKeys "^%z"
就是同时按下Ctrl Alt z 三个键。
。。。。。黑龙江省巴彦县兴隆镇 张志晨。。。。。。。

Answer 2

Private Sub Form_Load()
Me.KeyPreview = True
End Sub

Private Sub Form_KeyUp(KeyCode As Integer, Shift As Integer)
If KeyCode = vbKeyF1 Then 'F1
Form2.Show
ElseIf KeyCode = vbKey1 And Shift = 2 Then 'Ctrl+1
Form2.Show
End If
End Sub

这个只是简单的方法，如果要更高级的，比如在其他软件的界面上按下F1，也能打开软件的Form2，就要用到系统全局热键了，在此忽略不表。

Answer 3

试试keybd_event