Question

[VB]如何实现自动按下键盘的某个键

我是初学者.对API还不是很懂.能不能帮我写一条小程序.能实现在每间隔300毫秒自动按下键盘的 A 键后再按 V 键,重复这样...就像按键精灵一样的!能自动按键盘这样..
能不能给我写出个更完整点的..我会加更多分的...谢谢了!

Answer 1

你可以用 SendKeys 发键，但发键之前你必须用 AppActivate 把焦点转移到目标窗口上去。
至于发键之间的 300 毫秒间隔，你可以用 Timer Control。

AppActivate 的第一个参数指定目标窗口。 这参数必须是目标窗口的标题或 Shell 函数返回的 Task ID。
现在你眼前的浏览器的最上方显示的 “[VB]如何实现自动按...” 就是窗口标题的例子。
Shell 函数执行一个程序后返回该程序独有的 “身份证号码” （Task ID）。
用 Task ID 作 AppActivate 的第一个参数比较可靠。

Shell 执行程序时可以顺便把焦点移过去。
下面的代码用 Shell 执行笔记本时故意不把焦点移过去，好让 AppActivate 有机会发挥。
Timer 可以在设计时或运行时添加。 下面示范后者。
 
 
 
Dim WithEvents tmr As VB.Timer
 
 
Private Sub Form_Load()

    taskID = Shell("C:\WINDOWS\system32\notepad.exe", vbNormalNoFocus)
    AppActivate taskID

    Set tmr = Me.Controls.Add("VB.Timer", "myTimer")
    tmr.Interval = 300

End Sub
 
 
Private Sub tmr_Timer()

    SendKeys "AV", True

End Sub
 
 
 

Answer 2

建立个TIMER控件,时间间隔属性设置为300
然后把 Enabled属性设置为 true
然后双击时间控件打开代码窗口写代码:
Privatr sub timer1()
SendKeys "A"
SendKeys "V"
end sub

Answer 3

SendKeys 语句

SendKeys string[, wait]

这样用：SendKeys "A"

Answer 4

PostMessage(hWnd, WM_KEYDOWN, 65, 0);

65是A，
66是B，。。。