[腳本問題]如何因滑鼠改變,而觸發之後的動作?

我現在想設計一個腳本
1. 打算把滑鼠在畫面上會不停打圈
2. 當滑鼠形狀有改變時 ,
3. 便會按一下左鍵
那應該怎樣做呢??

[ 本帖最後由 o未知o 於 2009-5-9 01:50 編輯 ]

Rem 1
x0=400:y0=300:x=1:n=1
//x0,y0為800.600中間位置 看你視窗解析取半數就可以了
//上面的x小於下面的x讓條件成立便可
While x<600
   //當x超過600就重新畫圈
    x=x0+12*(cos(n)+n*sin(n))
    //12=x移動的格數
    y=y0+8*(sin(n)-n*cos(n))
    //8=y移動的格數
    MoveTo x,y
    Rem 2
    VBSCall Shape=GetCursorShape(0)
    If Shape=1593350287
        //1593350287為一般滑鼠形狀 看你欲偵測的滑鼠形狀改變數字
        LeftClick 1
        Delay 100
        Goto 2
    EndIf
    Delay 10
    n=n+0.1
    //0.1為轉圈速度 0.1~1 數字越大速度越快
EndFor
Delay 30
Goto 1