Else 

                ehy=0

            EndIf 

        EndIf 

    EndWhile 

    Delay 2000

    KeyDown 18,1

    KeyPress 87,1

    KeyUp 18,1

    Delay 500

    VBSCall FindPic(3,22,620,472,"c:\gujias\sheng.bmp",1,x,y)

    If x>0 and y>0

        zx=x+11

        zy=y+25

        Gosub 天鼠

        LeftClick 1

        Delay 500

        VBSCall FindPic(3,22,800,800,"c:\gujias\pengpeng.bmp",1,x75,y75)

        If x75>0 and y75>0

            zx=x75

            zy=y75-187

            Gosub 天鼠

            Delay 100

            LeftDown 1

            Delay 100

            zx=x75

            zy=y75-252

            Gosub 天鼠

            Delay 100

            LeftUp 1

            Delay 100

        EndIf 

        VBSCall FindPic(3,22,800,800,"c:\gujias\pengpeng.bmp",1,x7,y7)

        If x7>0 and y7>0

            zx=x7+10

            zy=y7+6

            Gosub 天鼠

            For 30

                LeftClick 1

                Delay 50

            EndFor 

            Delay 200

            zx=x7

            zy=y7-187

            Gosub 天鼠

            Delay 200

            LeftDown 1

            Delay 200

            zx=x7

            zy=y7-130