作业帮[按键精灵]问题：当鼠标停止移动达到2分钟,就移动到X位置点击一下帮忙看下这个如何在按键精灵里实现触发条件：鼠标停止移动达到20秒（连续判断5次,累计100秒）行为：移动到X点,鼠标单
来源：学生作业帮助网 编辑：作业帮 时间：2024/04/30 00:32:46
[按键精灵]问题：当鼠标停止移动达到2分钟,就移动到X位置点击一下帮忙看下这个如何在按键精灵里实现触发条件：鼠标停止移动达到20秒（连续判断5次,累计100秒）行为：移动到X点,鼠标单
[按键精灵]问题：当鼠标停止移动达到2分钟,就移动到X位置点击一下
帮忙看下这个如何在按键精灵里实现
触发条件：鼠标停止移动达到20秒（连续判断5次,累计100秒）
行为：移动到X点,鼠标单击1下
比较2次的,我已经写出来了,但是要比较5次我搞不定.
VBS dim x,y,x1,y1
//声明变量
While 1=1
VBSCall GetCursorPos(x,y)
//得到当前鼠标的坐标位置 并保存到变量x,y中
Delay 120000
//延迟120秒
VBSCall GetCursorPos(x1,y1)
//得到当前鼠标的坐标位置 并保存到变量x1,y1中
If x=x1
Gosub d
EndIf
EndWhile
Sub d
MoveTo 450,350
Delay 1000
LeftClick 1
Return d
我要判断2分钟内,鼠标是否原地不动.如果原地不动,才去移动过去单击.否则就不去点.可是,要判断鼠标2分钟内是否有移动,就要在不同的时间去取鼠标的坐标,然后进行比较,如果坐标一致,那就是没动,如果不一致,那就是动了.
我已经有了在2分钟内取2次鼠标坐标进行比较的办法.但是不能满足我的需求,我需要2分钟内,取5次鼠标坐标进行比较.
[按键精灵]问题：当鼠标停止移动达到2分钟,就移动到X位置点击一下帮忙看下这个如何在按键精灵里实现触发条件：鼠标停止移动达到20秒（连续判断5次,累计100秒）行为：移动到X点,鼠标单
Dim i,n
Dim x(2),y(2)
i=0
n=0
VBSCall GetCursorPos(x(i),y(i))
While i4
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