Else 
                        Delay 1000
                        Goto rwsx2
                    End If
                Else 
                    Delay 1000
                    MoveTo 794, 735
                    Delay 500
                    LeftClick 1
                    Goto rwsx
                End If
   

            Else 
                Delay 500
                Goto qrcs
            End If
        
        Else 
            Goto chushou
        End If
    Else 
        Delay 3000
        Goto  zhaoshangren
    End If



   
    //    FindPic 553, 44,748, 183,"Attachment:\fjs.bmp",0.9,X,Y
    //    If X > 0 Then 
    //        
    //    Else 
    //        Delay 3000
    //        Goto  zhaoshangren
    //    End If
    //

    Call Plugin.Window.Hide(HWz)

End Sub



///********辅助方法

Sub read()
    computer = Plugin.File.ReadINI("setup", "computer", "D:\Desktop\a\test.ini")

    //主窗体 状态，0 空闲，1-进行交易，2-正在交易	
    status = Plugin.File.ReadINI("setup", "status", "D:\Desktop\a\test.ini")
	
End Sub




//检查是否还原了浏览器
Sub checkopen()
	
    Rem dengdaiyse
    IfColor 96,49,"1FAC70",0 Then
    Else 
        Delay 1000
        Goto dengdaiyse
    End If
	
	
End Sub


///获得包裹数字
Sub Getnum()
    Call checkopen()
    Rem openbg
    FindPic 0,0,1024,768,"Attachment:\baoguo.bmp",0.9,intX,intY       
    If intX > 0 Then  
        //检查数字
        numb =  Plugin.SimPlugOCR.OCR(intX+80,intY+20,intX+230,intY+100)           
        MyArray = Split(numb, "/")   
        numb= MyArray(0)
            
    Else 
    
        Call openbg()
        Delay 500
        Goto openbg
    End If	
End Sub






Sub dianji()

    fancuo=0
    GetCursorPos x, y
    GetColor = GetPixelColor(x - 2, y - 2)