UserVar LTop=300,200 鼠标左上
UserVar RBot=980,500 鼠标右下
UserVar DCBTN=DropList{左键:1|右键:2} 双击左键或右键
UserVar dy1=5 鼠标扫描期间间隔时间
UserVar dy2=500 上钩后等待时间
UserVar mouseType=1884068285 鼠标特征码
VBSCall GetCursorShape(0)
Dim s,x1,y1,x2,y2,x,y,c,fx,fy,rx,ry,starttime,endtime
s=InStr(LTop,",")
x1=int(Mid(LTop,1,s-1))
y1=int(Mid(LTop,s+1))
s=InStr(RBot,",")
x2=int(Mid(RBot,1,s-1))
y2=int(Mid(RBot,s+1))
c=int(DCBTN)
Rem Search
x=x1
y=y1
MoveTo x-100 y
Delay 1000
If c=1
    MiddleClick 1
Else 
    RightClick 1
    Delay 100
    RightClick 1
EndIf 
Delay 2000
starttime=Now
While y<y2
    y=y+20
    While x<x2
        x=x+10
        MoveTo x y
        Delay dy1
        If GetCursorShape(0)=mouseType
            fx=x-10
            fy=y
            MoveTo fx fy
            Goto Waiting
        EndIf 
    EndWhile 
    x=x1
EndWhile 
Goto Search
Rem Waiting
While true
    VBSCall FindColorEx(fx-150,fy-150,fx+150,fy+150,"fffffa",1,0.9,rx,ry)
    If rx>=0 and ry>=0
        MoveTo rx ry
        Delay dy2
        RightClick 1
        Delay 500
        LeftClick 1
        Delay 1000
        Goto Search
    EndIf 
    If DateDiff("s",starttime,Now)>=22
        Goto Search
    EndIf 
EndWhile