按键精灵条件设置及循环命令..求助..
KeyPress"4",1Delay30首先这段代码要执行3次..执行后每隔60秒后再次执行,在这60秒内循环这段代码:KeyPress"1",1Delay60KeyPr...
KeyPress "4", 1
Delay 30
首先这段代码要执行3次..执行后每隔60秒后再次执行,在这60秒内循环这段代码:
KeyPress "1", 1
Delay 60
KeyPress "2", 1
Delay 50
KeyPress "3", 1
Delay 65
额..
就是每隔1分钟按3次按键"4",然后陆续按键123,大概就是这样吧..无限循环到按终止键,,,求教要怎么搞..
ps..不知道百度知道怎么攒的积分...就这么多...抱歉-. -#
Rem c
For 3
KeyPress "4", 1
Delay 30
Next
a = Plugin.Sys.GetTime()
Do
b = Plugin.Sys.GetTime()
If b - a = 6000 Then
Goto c
Else
KeyPress "1", 1
Delay 60
KeyPress "2", 1
Delay 50
KeyPress "3", 1
Delay 65
End If
Loop
-----------if那个条件设置完全没啥用额....我调来调去要么执行一遍3个按4键然后无限循环123..要么直接444123444的循环...求助... 展开
Delay 30
首先这段代码要执行3次..执行后每隔60秒后再次执行,在这60秒内循环这段代码:
KeyPress "1", 1
Delay 60
KeyPress "2", 1
Delay 50
KeyPress "3", 1
Delay 65
额..
就是每隔1分钟按3次按键"4",然后陆续按键123,大概就是这样吧..无限循环到按终止键,,,求教要怎么搞..
ps..不知道百度知道怎么攒的积分...就这么多...抱歉-. -#
Rem c
For 3
KeyPress "4", 1
Delay 30
Next
a = Plugin.Sys.GetTime()
Do
b = Plugin.Sys.GetTime()
If b - a = 6000 Then
Goto c
Else
KeyPress "1", 1
Delay 60
KeyPress "2", 1
Delay 50
KeyPress "3", 1
Delay 65
End If
Loop
-----------if那个条件设置完全没啥用额....我调来调去要么执行一遍3个按4键然后无限循环123..要么直接444123444的循环...求助... 展开
3个回答
展开全部
Rem a
For 3
KeyPress "4", 1
Delay 30
Next
For 400
KeyPress "1", 1
Delay 50
KeyPress "2", 1
Delay 50
KeyPress "3", 1
Delay 50
Next
Goto a
For 3
KeyPress "4", 1
Delay 30
Next
For 400
KeyPress "1", 1
Delay 50
KeyPress "2", 1
Delay 50
KeyPress "3", 1
Delay 50
Next
Goto a
更多追问追答
追问
这样也不失为一种思路哈...
啊....我想了想也可以把这个两段看成一个整体,统一60秒循环执行就ok了...哈哈哈...这样就简单准确多了..
追答
哎 5分也只有这技术了,还有个方法就是多线程 采纳吧
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
展开全部
你想要实现的功能,是可以做到的,不过我看了你上面的逻辑,觉得很混乱,所以你还是讲清楚一点你想怎样做。你所说的这段代码,那段代码,我还真不知道你指的是哪段代码,你最好把代码全部写完,之后后面文字指明第几行到第几行要求怎样执行,先执行哪些行,再执行哪些行,这样会更清晰。
追问
我自己网上拔得代码...问题还是不行...具体目的是要先按3下4键,然后无限循环键盘123键1分钟然后再按3下4键...再123123123...一直到按终止键结束
追答
代码如下:
While True
For i = 1 To 3
KeyPress 52, 1
Delay 30
Next
t1 = Plugin.Sys.GetTime() //得到系统开机到现在的时间,单位(ms)
Do Until t2 - t1 > 60000 //60000毫秒=1分钟,时间你可以自己改变这个数设定
For i = 1 To 3
KeyPress 48 + i, 1 //根据变量i分别按“1”,“2”,“3”
Delay 50
Next
t2 = Plugin.Sys.GetTime()
//这样做和设定的1分钟有200毫秒左右的误差,本人认为可以接受
//如果非得要很精确1分钟,只能用多线程。
Loop
Wend
本回答被提问者采纳
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
展开全部
i=0
do
for 3
KeyPress "4", 1
Delay 30
tt1=now
next
do
end if
KeyPress "1", 1
Delay 60
KeyPress "2", 1
Delay 50
KeyPress "3", 1
Delay 65
tt2=now
loop until tt2-tt1<60000//记不得了怎么做了.你去找找时间差是怎么算的,
loop
do
for 3
KeyPress "4", 1
Delay 30
tt1=now
next
do
end if
KeyPress "1", 1
Delay 60
KeyPress "2", 1
Delay 50
KeyPress "3", 1
Delay 65
tt2=now
loop until tt2-tt1<60000//记不得了怎么做了.你去找找时间差是怎么算的,
loop
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询
广告 您可能关注的内容 |