按键精灵怎么实现多窗口的循环自动切换

 我来答
EvenHHZ
2017-02-08 · 知道合伙人软件行家
EvenHHZ
知道合伙人软件行家
采纳数:13691 获赞数:18845
个人出版图书:《玩转Python网络爬虫》、《玩转Django2.0》

向TA提问 私信TA
展开全部
Dim i,n
Dim x(2),y(2)
i=0
n=0
VBSCall GetCursorPos(x(i),y(i))
While i<2
//设置延时,2分钟内5次
Delay 120000/5
//这里用绝对值函数,使i在0与1之间互相转化
i=Abs(i-1)
VBSCall GetCursorPos(x(i),y(i))
If x(0)=x(1) and y(0)=y(1)
n=n+1
Else
n=0
EndIf
//上面的IF语句里比较最近两次鼠标坐标,只要一有变化则计数器n清0
//当连续5次鼠标无变化时,则执行
If n>4
MoveTo 450,350
Delay 5
LeftClick 1
n=0
EndIf
EndWhile

把上面的粘贴到按键精灵里会睇得更清楚。
其实无必要比较完5次啦,只要比较最近两次有无变化就行了。如果确实要看比较5次的脚本,那可以有如下程序(上下两个脚本效果一样):

Dim i,n
Dim x(5),y(5)
i=0
While i<5
Delay 120000/5
VBSCall GetCursorPos(x(i),y(i))
n=0
While n<i
//这个循环用来比较数组内的数值
If x(n)=x(i) and y(n)=y(i)
If n=3
MoveTo 450,350
Delay 5
LeftClick 1
i=-1
//这里初始化i,就可以不断循环检测
EndIf
n=n+1
Else
i=-1
EndIf
EndWhile
i=i+1
EndWhile
本回答被网友采纳
已赞过 已踩过<
你对这个回答的评价是?
评论 收起
收起 1条折叠回答
推荐律师服务: 若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询

为你推荐:

下载百度知道APP,抢鲜体验
使用百度知道APP,立即抢鲜体验。你的手机镜头里或许有别人想知道的答案。
扫描二维码下载
×

类别

我们会通过消息、邮箱等方式尽快将举报结果通知您。

说明

0/200

提交
取消

辅 助

模 式