Dim i,nDim x(2),y(2)i=0n=0VBSCall 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+1Elsen=0EndIf//上面的IF語句裡比較最近兩次滑鼠座標，只要一有變化則計數器n清0//當連續5次滑鼠無變化時，則執行If n>4MoveTo 450,350Delay 5LeftClick 1n=0EndIfEndWhile把上面的貼上到按鍵精靈裡會睇得更清楚。其實無必要比較完5次啦，只要比較最近兩次有無變化就行了。如果確實要看比較5次的指令碼，那可以有如下程式（上下兩個指令碼效果一樣）：Dim i,nDim x(5),y(5)i=0While i<5Delay 120000/5VBSCall GetCursorPos(x(i),y(i))n=0While n<i//這個迴圈用來比較陣列內的數值If x(n)=x(i) and y(n)=y(i)If n=3MoveTo 450,350Delay 5LeftClick 1i=-1//這裡初始化i，就可以不斷迴圈檢測EndIfn=n+1Elsei=-1EndIfEndWhilei=i+1EndWhile
Dim i,nDim x(2),y(2)i=0n=0VBSCall 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+1Elsen=0EndIf//上面的IF語句裡比較最近兩次滑鼠座標，只要一有變化則計數器n清0//當連續5次滑鼠無變化時，則執行If n>4MoveTo 450,350Delay 5LeftClick 1n=0EndIfEndWhile把上面的貼上到按鍵精靈裡會睇得更清楚。其實無必要比較完5次啦，只要比較最近兩次有無變化就行了。如果確實要看比較5次的指令碼，那可以有如下程式（上下兩個指令碼效果一樣）：Dim i,nDim x(5),y(5)i=0While i<5Delay 120000/5VBSCall GetCursorPos(x(i),y(i))n=0While n<i//這個迴圈用來比較陣列內的數值If x(n)=x(i) and y(n)=y(i)If n=3MoveTo 450,350Delay 5LeftClick 1i=-1//這裡初始化i，就可以不斷迴圈檢測EndIfn=n+1Elsei=-1EndIfEndWhilei=i+1EndWhile