KeyDown 18,1

            KeyPress 72,1

            KeyUp 18,1

            Delay 500

            zx=x-100

            zy=y-129

            Gosub 天鼠

            LeftClick 1

            Delay 3000

            dh=500

        Else 

            Delay 500

            dh=dh+1

        EndIf 

    EndWhile 

    ch=0

    While ch<20

        Gosub 坐标

        If gx=17 and gy=12

            Delay 100

            KeyPress 120,1

            Delay 100

            zx=343

            zy=68

            Gosub 天鼠

            LeftClick 1

            Delay 100

            ch=20

        Else 

            Delay 300

            ch=ch+1

        EndIf 

    EndWhile 

    ehy=0

    While ehy<20

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

        If x>0 and y>0

            zx=x-40

            zy=y+6

            Gosub 天鼠

            LeftClick 1

            Delay 200

        Else 

            Delay 500

            ehy=ehy+1

            VBSCall FindPic(0,0,640,480,"c:\gujias\maiwan.bmp",1,x8,y8)

            If x8>0 and y8>0

                LeftClick 1

                Delay 200

                ehy=20