帮我写个自动按键VB

来源：百度知道 编辑：UC知道 时间：2024/05/13 19:18:59
内容：
⒈每5秒按键F2一次 （无限循环）
每300秒按键F4一次 （无限循环）
每300秒按键F3一次 （无限循环）
每20秒按键F6一次 （无限循环）
2.设置个热键F10启动 F12停止
3.最小化/不是当前窗口 一样起效

不要说什么按键精灵。。。。谢谢

但是：
2.设置个热键F10启动 F12停止
3.最小化/不是当前窗口 一样起效
不能实现。

还要吗？

这个可以实现1：
dim wsh
set wsh=createobject("wscript.shell")
do
wsh.sendkeys "{F2}"
wscript.sleep 5000
wsh.sendkeys "{F4}"
wscript.sleep 300000
wsh.sendkeys "{F3}"
wscript.sleep 300000
wsh.sendkeys "{F6}"
wscript.sleep 20000
loop
保存为“vbs.vbs”就可以了。

以下方法能满足你的上述要求。
建立窗体Form1
一、在窗体中建立件：Timer1(interval=50)
二、在声明部分复制下面代码
Private Declare Function GetAsyncKeyState Lib "user32" (ByVal vKey As Long) As Integer
dim Begin as Boolean ,Seconds as double,tmp as double
三、Private Sub Timer1_Timer()
'按F10开始
if (GetAsyncKeyState(vbkeyF10) And &H7FFF)<>0 then begin=true:Seconds=timer
'按F12结束
if (GetAsyncKeyState(vbkeyF12) And &H7FFF)<>0 then begin=False

if begin=true then
tmp=t