KeyPress 9,1

    Delay 500

    VBSCall FindPic(3,22,640,480,"c:\gujias\renwu.bmp",0.9,xud,yud)

    If xud>0 and yud>0

        KeyPress 9,1

        Delay 500

    EndIf 

Return 善后

Sub 天鼠

    If zx<53 or zx>543

        If zx<53

            zzx=zx+50

        EndIf 

        If zx>543

            zzx=zx-50

        EndIf 

    Else 

        zzx=zx

    EndIf 

    If zy<72 or zy>422

        If zy<72

            zzy=zy+50

        EndIf 

        If zy>422

            zzy=zy-50

        EndIf 

    Else 

        zzy=zy

    EndIf 

    MoveTo zzx,zzy

    Delay 100

    Plugin xy=Color.FindMutiColor(3,22,640,480,"F0F428", "-1|7|F0C810,8|10|48C480,7|11|50F890",1)

    wxy=split(xy,"|")

    wx=CInt(wxy(0))-9

    wy=CInt(wxy(1))-4

    If wx<0 and wy<0

        Plugin xy=Color.FindMutiColor(3,22,640,480,"78A4B0", "-2|4|C0C8D8,-3|5|C0C8D8,-4|6|C0C8D8,-5|7|C0C4D0,-9|9|98C0C8",1)

        wxy=split(xy,"|")

        wx=CInt(wxy(0))-18

        wy=CInt(wxy(1))-9

    EndIf 

    at=zx-wx

    bt=zy-wy

    If at>35 or at<-35

        If at>35

            at=35

        EndIf 

        If at<-35

            at=-35

        EndIf