[VB]如何实现自动按下键盘的某个键
我是初学者.对API还不是很懂.能不能帮我写一条小程序.能实现在每间隔300毫秒自动按下键盘的A键后再按V键,重复这样...就像按键精灵一样的!能自动按键盘这样..能不能...
我是初学者.对API还不是很懂.能不能帮我写一条小程序.能实现在每间隔300毫秒自动按下键盘的 A 键后再按 V 键,重复这样...就像按键精灵一样的!能自动按键盘这样..
能不能给我写出个更完整点的..我会加更多分的...谢谢了! 展开
能不能给我写出个更完整点的..我会加更多分的...谢谢了! 展开
4个回答
展开全部
你可以用 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
至于发键之间的 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
展开全部
建立个TIMER控件,时间间隔属性设置为300
然后把 Enabled属性设置为 true
然后双击时间控件打开代码窗口写代码:
Privatr sub timer1()
SendKeys "A"
SendKeys "V"
end sub
然后把 Enabled属性设置为 true
然后双击时间控件打开代码窗口写代码:
Privatr sub timer1()
SendKeys "A"
SendKeys "V"
end sub
本回答被提问者采纳
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
展开全部
SendKeys 语句
SendKeys string[, wait]
这样用:SendKeys "A"
SendKeys string[, wait]
这样用:SendKeys "A"
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
展开全部
PostMessage(hWnd, WM_KEYDOWN, 65, 0);
65是A,
66是B,。。。
65是A,
66是B,。。。
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询