0
Gosub 01
Delay 1000
Gosub 03
Rem 1
Delay 3000
For 2
    Gosub 確定
EndFor 
Delay 1000
Gosub 02
Delay 1000
Gosub 04
Goto 1
Sub 01
    VBSCall FindPic(0,0,a,b,"找視窗.bmp",0.6,x,y)
    If x>=0 and y>=0
        MoveTo x,y
        LeftClick 1
    Else 
        Delay 500
    EndIf 
Return 
Sub 確定
    Rem 找
    VBSCall FindPic(0,0,a,b,"確定.bmp",0.6,x,y)
    If x>=0 and y>=0
        MoveTo x,y
        LeftClick 1
        Delay 500
        Goto 找
    Else 
        Delay 500
    EndIf 
Return 
Sub 02
    Rem 點
    VBSCall FindColor(0,0,a,b,"00A5FF",x,y)
    If x>=0 and y>=0
        MoveTo x+20,y
        LeftClick 1
    Else 
        Delay 500
        Goto 點
    EndIf 
Return 
Sub 03
    Delay 1000
    UserVar a=1024 輸入你的螢幕之X軸
    UserVar b=768 輸入你的螢幕之Y軸
    UserVar min1=10 請輸入腳本一次運行多久(分鐘)
    UserVar min2=2 請輸入腳本運行一次後休息多久(分鐘)
    ta=now
    tb=min1*60
    tc=int(min2*60)
Return 
Sub 04
    If DateDiff("s",ta,now)>=tb
        Delay 500
        Gosub 05
    Else 
        Delay 500
    EndIf 
Return 
Sub 05
    Delay tc
    Gosub 03
Return