玫瑰之香露酒十年窖藏:[VB]如何实现自动按下键盘的某个键

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

SendKeys 语句

SendKeys string[, wait]

这样用：SendKeys "A"

PostMessage(hWnd, WM_KEYDOWN, 65, 0);

65是A，
66是B，。。。

你可以用 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