为什么不能实现模拟键盘！

[benny106]

Private Declare Sub keybd_event Lib "user32" (ByVal bVk As Byte, ByVal bScan As Byte, ByVal dwFlags As Long, ByVal dwExtraInfo As Long)

Private Sub Command1_Click()
Shell "cmd.exe"
Call keybd_event(40, 0, 0, 0)
End Sub
上面的代码为什么能打开命令提示符，但是没有输入呢？如果用
Call keybd_event(91, 0, 0, 0)
Call keybd_event(82, 0, 0, 0)
则能模拟键盘({Windows]键码为91,"R"键码为82）

[benny106]

是不是没有指定输入窗口啊？怎么指定呢？

[zj1244]

Private Declare Sub keybd_event Lib "user32" (ByVal bVk As Byte, ByVal bScan As Byte, ByVal dwFlags As Long, ByVal dwExtraInfo As Long)

Private Sub Command1_Click()

keybd_event 91, 0, 0, 0 ' press WIN
keybd_event 91, 0, KEYEVENTF_KEYUP, 0 ' release Win
keybd_event 82, 0, 0, 0 ' press R
keybd_event 82, 0, KEYEVENTF_KEYUP, 0 ' release R

End Sub