Question

vb 模拟键盘操作

我发现不管是用WinIo还是keybd_event模拟键盘普通键(数字键和字母键)按键的操作都只是输出一次,只执行按下的操作时发出一次按键操作,怎么处理啊?
例如:
keybd_event(vbKeyA, 0, 0, 0)
Sleep 5000
keybd_event(vbKeyA, 0, 2, 0)
虽然中间延迟了5秒，但是最终输出的也只有一次按键操作产生的效果
(如果按住键盘上的A键5秒应该会输出一大串的a啊)
求解！

Answer 1

这个和直实键盘是有差别的，你按下了，只是按下了，不会因为你按了多久没放就输出一堆aaaa。 如果真像你想的那样处理，那还不出问题？
你想要输出一堆a，弄个循环吧。

Answer 2

你要产生一大串吗，必须发送一大串的按下、再发送一次放开，例如：
for i=1 to 10
keybd_event(vbKeyA, 0, 0, 0)
Sleep 500
next i
keybd_event(vbKeyA, 0, 2, 0)

Answer 3

其实要这个效果的话用按键精灵就可以了。你这个按键问题主要是按下了键没弹起，就相当于你一直按着A键5秒。我刚学VB不久，不太懂，这个是从按键精灵那里得来的启发。

Answer 4

把下面的代码加入你的窗口代码中
Dim WithEvents MyDoc As MSHTML.HTMLDocument
Private Function MyDoc_oncontextmenu() As Boolean
WebBrowser1.Document.oncontextmenu = "False"
End Function
Private Sub WebBrowser1_DocumentComplete(ByVal pDisp As Object, URL As Variant)
Set MyDoc = WebBrowser1.Document
end sub