Delay 1000

            KeyPress 57 1

            Delay 1000

        Else 

            IfColor 132,327,262623,0

                KeyPress 55 1

                Delay 1000

                KeyPress 56 1

            EndIf 

        EndIf 

    ElseIf caijifangshi=1

        VBSCall Call FindPic(300,484,400,537,"Attachment:\工作.bmp",0.85,x,y)

        If x<0 and y<0

            IfColor 56,455,fefefe,0

                KeyPress 55 1

                Delay 1000

                KeyPress 57 1

                Delay 1000

            Else 

                IfColor 132,327,262623,0

                    KeyPress 56 1

                    Delay 1000

                    KeyPress 57 1

                EndIf 

            EndIf 

        EndIf 

    EndIf 

    Delay 111

    If caijileibie=1

        For 10

            VBSCall FindPic(580,223,800,480,"Attachment:\铁矿石.bmp",0.9,x,y)

            If x>=0 and y>=0

                MoveTo x+15 y+15

                Delay 20

                LeftClick 1

                Delay 111

                MoveTo 400,339

                Delay 20

                LeftClick 1

                Delay 111

            EndIf 

            Delay 111

            VBSCall FindPic(580,223,800,480,"Attachment:\纯铁矿石.bmp",0.9,x,y)

            If x>=0 and y>=0

                MoveTo x+15 y+15

                Delay 20

                LeftClick 1

                Delay 111

                MoveTo 400,339

                Delay 20