CreateObject("SAPI.SpVoice").Speak str

    VBSEnd 

Return 

Sub 自动采集

    Gosub 坐标转换

    LeftDoubleClick 1

    While 1

        GetLastKey key

        If key=112

            key=-1

            Gosub 自动采集

        EndIf 

        If key=113

            key=-1

            SpkStr= "I collecting"

            BeginThread "发出语音"

        EndIf 

        If key=115

            key=-1

            SpkStr= "Wait for instructions"

            BeginThread "发出语音"

            Goto 主程序

        EndIf 

        Gosub 打开网站

        x1=cint(MyArray(0))

        y1=cint(MyArray(1))

        x2=cint(MyArray(0))+cint(MyArray(2))

        y2=cint(MyArray(1))+cint(MyArray(3))

        Delay 250

        VBSCall FindPic(x1,y1,x2,y2,"shiqu.bmp",0.9,intX,intY)

        If intX>0

            SaveMousePos 

            MoveTo intX,intY

            LeftClick 1

            RestoreMousePos 

            intX=-1

            Delay 100

            Gosub 自动采集

        EndIf 

    EndWhile 

Return 

Sub 自动开五行

    For 5

        RightClick 1

        VBSCall GetCursorPos(x5,y5)

        Delay 100

        Delay 500

        MoveTo x5+40,y5

        Delay 100

    EndFor