LeftClick 1

                Delay 111

            EndIf 

            Delay 111

            VBSCall FindPic(376,287,491,350,"Attachment:\扔矿石.bmp",0.9,x,y)

            If x>=0 and y>=0

                VBSCall FindPic(330,320,400,380,"Attachment:\扔矿.bmp",0.8,x,y)

                If x>=0 and y>=0

                    MoveTo x+12 y+3

                    Delay 20

                    LeftDoubleClick 1

                    Delay 111

                EndIf 

            Else 

                VBSCall FindPic(330,320,400,380,"Attachment:\扔矿.bmp",0.8,x,y)

                If x>=0 and y>=0

                    MoveTo x+59 y+3

                    Delay 20

                    LeftDoubleClick 1

                EndIf 

            EndIf 

            Delay 111

        EndFor 

    EndIf 

    Plugin WindowEx.SetWindowState(hwnd(i),6)

    Delay 222

Return 采集

Sub 初始化

    If hwnd

        VBS Gnum=Ubound(hwnd)+1:dt=5

        If Gnum>0

            VBS dtGet=dtGet/Gnum:dtRes=dtRes/Gnum

        EndIf 

    Else 

        MessageBox "找不到[寻仙]窗口"&chr(13)&"点<确定>退出脚本"

        Goto 结束标记

    EndIf 

    Plugin WindowEx.SetWindowState(hwnd(0),1)

    Plugin WindowEx.SetWindowState(hwnd(0),7)

    Plugin WindowEx.MoveWindow(hwnd(0),0,0)

    Delay 2000

    VBSCall Call FindPic(0,0,140,90,"Attachment:\确定位置.bmp",0.7,mx,my)

    If mx<0 and my<0

        MessageBox "找不到[寻仙]窗口"&chr(13)&"点<确定>退出脚本"

        Goto 结束标记

    EndIf 

    VBS dx=(102-mx)

    VBS dy=(40-my)

    Plugin WindowEx.SetWindowState(hwnd(0),6)

    Delay 1111