[按键精灵]问题:当鼠标停止移动达到2分钟,就移动到X位置点击一下帮忙看下这个如何在按键精灵里实现触发条件:鼠标停止移动达到20秒(连续判断5次,累计100秒)行为:移动到X点,鼠标单
来源:学生作业帮助网 编辑:作业帮 时间:2024/07/11 07:37:34
![[按键精灵]问题:当鼠标停止移动达到2分钟,就移动到X位置点击一下帮忙看下这个如何在按键精灵里实现触发条件:鼠标停止移动达到20秒(连续判断5次,累计100秒)行为:移动到X点,鼠标单](/uploads/image/z/15101854-70-4.jpg?t=%5B%E6%8C%89%E9%94%AE%E7%B2%BE%E7%81%B5%5D%E9%97%AE%E9%A2%98%EF%BC%9A%E5%BD%93%E9%BC%A0%E6%A0%87%E5%81%9C%E6%AD%A2%E7%A7%BB%E5%8A%A8%E8%BE%BE%E5%88%B02%E5%88%86%E9%92%9F%2C%E5%B0%B1%E7%A7%BB%E5%8A%A8%E5%88%B0X%E4%BD%8D%E7%BD%AE%E7%82%B9%E5%87%BB%E4%B8%80%E4%B8%8B%E5%B8%AE%E5%BF%99%E7%9C%8B%E4%B8%8B%E8%BF%99%E4%B8%AA%E5%A6%82%E4%BD%95%E5%9C%A8%E6%8C%89%E9%94%AE%E7%B2%BE%E7%81%B5%E9%87%8C%E5%AE%9E%E7%8E%B0%E8%A7%A6%E5%8F%91%E6%9D%A1%E4%BB%B6%EF%BC%9A%E9%BC%A0%E6%A0%87%E5%81%9C%E6%AD%A2%E7%A7%BB%E5%8A%A8%E8%BE%BE%E5%88%B020%E7%A7%92%EF%BC%88%E8%BF%9E%E7%BB%AD%E5%88%A4%E6%96%AD5%E6%AC%A1%2C%E7%B4%AF%E8%AE%A1100%E7%A7%92%EF%BC%89%E8%A1%8C%E4%B8%BA%EF%BC%9A%E7%A7%BB%E5%8A%A8%E5%88%B0X%E7%82%B9%2C%E9%BC%A0%E6%A0%87%E5%8D%95)
[按键精灵]问题:当鼠标停止移动达到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