Dim i,nDim x(2),y(2)i=0n=0VBSCall GetCursorPos(x(i),y(i))While i<2 //设置延时2分钟内5次 Delay 120000/5 //里用绝对值函数使i0与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,nDim x(5),y(5)i=0While i<5 Delay 120000/5 VBSCall GetCursorPos(x(i),y(i)) n=0 While n