月经排不干净的危害:[VB]如何实现自动按下键盘的某个键
来源:百度文库 编辑:中科新闻网 时间:2024/05/13 14:18:45
能不能给我写出个更完整点的..我会加更多分的...谢谢了!
建立个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