悬赏:按键精灵 循环按键问题(不同的按键 不同的定时循环)急 在线等!
比如:按键T5秒一次循环按键按键F10秒一次循环按键右键点击1分钟一次循环点击共同作用的脚本?...
比如:按键T 5秒一次循环按键
按键F 10秒一次循环按键
右键点击 1分钟一次循环点击
共同作用的脚本? 展开
按键F 10秒一次循环按键
右键点击 1分钟一次循环点击
共同作用的脚本? 展开
展开全部
i=0
while true
if i/5=Int( i/5) then
KeyPress "T", 1
Delay 100
end if
if i/10=Int( i/10) then
KeyPress "F", 1
Delay 100
end if
if i/60=Int( i/60) then
RightClick 1
Delay 100
end if
Delay 1000
i=i+1
wend
//复制黏贴代码到按键精灵,点调试。然后打开你做次循环操作的窗口(例如打开个记事本),按启动热键即可。想停止,按取消热键,一般是F12
while true
if i/5=Int( i/5) then
KeyPress "T", 1
Delay 100
end if
if i/10=Int( i/10) then
KeyPress "F", 1
Delay 100
end if
if i/60=Int( i/60) then
RightClick 1
Delay 100
end if
Delay 1000
i=i+1
wend
//复制黏贴代码到按键精灵,点调试。然后打开你做次循环操作的窗口(例如打开个记事本),按启动热键即可。想停止,按取消热键,一般是F12
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
展开全部
多线程例子:
线程1=BeginThread(a)
//同时运行过程a
线程2=BeginThread(b)
//同时运行过程b
线程3=BeginThread(c)
//同时运行过程c
Sub a
//线程a(子程序a)
Rem a
//标记a
线程1命令填写区
Goto a
//跳转到标记a
End Sub
//子程序结束
Sub b
//线程b(子程序b)
Rem b
//标记b
线程2命令填写区
Goto b
//跳转到标记b
End Sub
//子程序结束
Sub c
//线程c(子程序c)
Rem c
//标记c
线程3命令填写区
Goto c
//跳转到标记c
End Sub
//子程序结束
停止线程命令:
StopThread 线程1
//停止线程a
StopThread 线程2
//停止线程b
StopThread 线程3
//停止线程c
简洁版:
线程1=BeginThread(a)
线程2=BeginThread(b)
线程3=BeginThread(c)
Sub a
Rem a
线程1命令填写区
Goto a
End Sub
Sub b
Rem b
线程2命令填写区
Goto b
End Sub
Sub c
Rem c
线程3命令填写区
Goto c
End Sub
停止命令:
StopThread 线程1
StopThread 线程2
StopThread 线程3
线程1=BeginThread(a)
//同时运行过程a
线程2=BeginThread(b)
//同时运行过程b
线程3=BeginThread(c)
//同时运行过程c
Sub a
//线程a(子程序a)
Rem a
//标记a
线程1命令填写区
Goto a
//跳转到标记a
End Sub
//子程序结束
Sub b
//线程b(子程序b)
Rem b
//标记b
线程2命令填写区
Goto b
//跳转到标记b
End Sub
//子程序结束
Sub c
//线程c(子程序c)
Rem c
//标记c
线程3命令填写区
Goto c
//跳转到标记c
End Sub
//子程序结束
停止线程命令:
StopThread 线程1
//停止线程a
StopThread 线程2
//停止线程b
StopThread 线程3
//停止线程c
简洁版:
线程1=BeginThread(a)
线程2=BeginThread(b)
线程3=BeginThread(c)
Sub a
Rem a
线程1命令填写区
Goto a
End Sub
Sub b
Rem b
线程2命令填写区
Goto b
End Sub
Sub c
Rem c
线程3命令填写区
Goto c
End Sub
停止命令:
StopThread 线程1
StopThread 线程2
StopThread 线程3
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
展开全部
//得带当前窗口句柄
Hwnd = Plugin.Window.Foreground()
Dimenv Hwnd
BeginThread a
BeginThread b
BeginThread c
Sub a
Do
KeyPress "T", 1
Delay 5000
Loop
End Sub
Sub b
Do
KeyPress "F", 1
Delay 10000
Loop
End Sub
Sub c
Do
RightClick 1
Delay 60000
Loop
End Sub
//在要进行操作的窗口内按热键启动,如若复制后调试脚本错误,请对比代码,将多余的符号删除
Hwnd = Plugin.Window.Foreground()
Dimenv Hwnd
BeginThread a
BeginThread b
BeginThread c
Sub a
Do
KeyPress "T", 1
Delay 5000
Loop
End Sub
Sub b
Do
KeyPress "F", 1
Delay 10000
Loop
End Sub
Sub c
Do
RightClick 1
Delay 60000
Loop
End Sub
//在要进行操作的窗口内按热键启动,如若复制后调试脚本错误,请对比代码,将多余的符号删除
本回答被提问者和网友采纳
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
展开全部
简单,需要的话留个QQ
追问
QQ410758076
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询