Question

请问vb怎么给特定窗口发送组合键？

用sendkeys 时很难保证接受按键的窗口就是想发送的窗口，焦点窗口会变化的，即使使用了SetForegroundWindow hwnd 也不能保证。程序结果有时正确，有时不正确。与电脑反应速度和延迟时间等都相关的。这样的程序不可靠。

Answer 1

Private Sub Form_Load()
Dim x
x = Shell("Notepad.exe", vbNormalFocus)
SendKeys "这是一个文本文件的测试程序.", True ' 模拟输入英文字符串
SendKeys "{Enter}{Enter}", True ' 两次回车
waittime (2) ' 延时 2 秒
SendKeys "自动输入文字", True
SendKeys "{Enter}{Enter}", True
waittime (2)
SendKeys "既不是病毒，也不是木马!", True
SendKeys "{Enter}{Enter}", True
waittime (2)
SendKeys "开始退出... 看菜单项{(}F{)}...", True
SendKeys "%", True 'Alt 键激活菜单条
waittime (1)
SendKeys "(F)", True '按字母 "F"，选择"文件(F)"菜单
waittime (1)
SendKeys "(X)", True '按字母 "X"， 选择"退出(X)"
waittime (2)
SendKeys "(N)", True '弹出一个对话框，询问文件是否存盘，按 "N" 不存盘
End '结束本模拟程序
End Sub
Private Sub waittime(delay As Single)
Dim starttime As Single
starttime = Timer
Do Until (Timer - starttime) > delay
Loop
End Sub

Answer 2

获取制定窗口的句柄，然后Setfocus，然后sendkeys，不过最好小心一点，有可能把机器搞死
VB没别的方法发送键盘消息，一定要控制窗口句柄