[按键精灵]问题：当鼠标停止移动达到2分钟,就移动到X位置点击一下

来源：学生作业帮编辑：作业帮分类：综合作业时间：2024/07/18 04:35:23

[按键精灵]问题：当鼠标停止移动达到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次鼠标坐标进行比较.

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

flex builder 4 如何使一个物体移动到鼠标点击的位置,要慢慢移动,不要一下跳到点击的位置. 关于按键精灵鼠标移动脚本的问题下面是我的脚本代码在flash中,如何制作当鼠标移动到页面某个位置时,该位置出现相应的说明文字. 求as3物体移动算法舞台上已有一个mc实例名称为sp,速度（speed) = 3,鼠标点击一下舞台的某个位置,sp慢慢的英语翻译将鼠标移动到“赛次”位置,按鼠标左键,显示“预赛,次赛,复赛,半决赛,决赛”,将鼠标移动到“半决赛”位置,按其左有那个翻译软件是当鼠标移动到单词上面就可以自动现实出翻译解释的? 装什么软件可以让鼠标移动到单词上就显示中文怎么样在FLASH中设置鼠标移动到FLASH上播放就暂停有没有把鼠标移动到英文单词上就可以现实中文意思的软件? 有个翻译器鼠标移动到那就翻译那的东西,那是什么? 求英译中的软件有没有鼠标移动到英文上就翻译的软件啊加急! UG4.在用UG4.0,当鼠标的光标移动到图标时,就会显示该图标的功能,但是现在机子不知道为什么,不显示了,我是菜鸟来的