Gosub 天鼠

            Delay 300

            LeftUp 1

            Delay 200

            RightClick 1

            Delay 300

        EndIf 

    EndIf 

    KeyDown 18,1

    KeyPress 87,1

    KeyUp 18,1

    Delay 500

    zx=148

    zy=387

    Gosub 天鼠

    LeftClick 1

    Delay 200

Return 卖体

Sub 开始

    KeyPress 120,1

    Delay 500

    KeyDown 18,1

    KeyPress 72,1

    KeyUp 18,1

    Delay 500

    xzzy=0

    Gosub 查找

    Gosub 交易

    Gosub 善后

Return 开始

Sub 查找

    If kja=0

        hyzb=0

        Rem 春天

        xff=0

        While xff<1000

            VBSCall FindPic(0,0,640,480,"c:\gujias\fangyan.bmp",0.8,x,y)

            If x>0 and y>0

                xff=1000

                zx=x-216

                zy=y-141+hyzb

                Gosub 天鼠

                LeftClick 1

                Delay 200

                MoveTo 50,430

                Delay 100

                hyzb=0

            Else 

                Delay 100

                IfColor 105,315,f8,0