废墟

UserVar LTop=300,200 鼠标左上
UserVar RBot=980,500 鼠标右下
UserVar DCBTN=DropList{左键:1|右键:2} 双击左键或右键
UserVar dy1=5 鼠标扫描期间间隔时间
UserVar dy2=2000 上钩后等待时间
UserVar mouseType=1884068285 鼠标特征码
UserVar wColor=FFFFFA 水花颜色
UserVar PX=0.9 颜色近似度
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 y
Delay 1000
If c=1
    LeftDoubleClick 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
            fy=y
            MoveTo fx+100 fy+100
            Goto Waiting
        EndIf
    EndWhile
    x=x1
EndWhile
Goto Search
Rem Waiting
While true
    VBSCall FindColorEx(fx-100,fy-100,fx+100,fy+100,wColor,1,PX,rx,ry)
    If rx>=0 and ry>=0
        MoveTo rx ry
        Delay dy2
        RightClick 1
        Delay 500
        LeftClick 1
        Delay 2000
        Goto Search
    EndIf
    If DateDiff("s",starttime,Now)>=22
        Goto Search
    EndIf
EndWhile