加了个文件上传

King

[code=vb]        Private Sub SetUpData(objhttpItem As HttpItem)

            'httpWebRequest__1.ContentType = "multipart/form-data; boundary=" & boundary
            'UpDate_boundary
            'UpDate_Type
            'UpDate_FileName

            Dim boundary As String = objhttpItem.UpDate_boundary
            Dim boundarybytes As Byte() = System.Text.Encoding.ASCII.GetBytes(vbCr & vbLf & "--" & boundary & vbCr & vbLf)



            request.GetRequestStream().Write(boundarybytes, 0, boundarybytes.Length)
            Dim headerTemplate As String = "Content-Disposition: form-data; name=""{0}""; filename=""{1}""" & vbCr & vbLf & "Content-Type: {2}" & vbCr & vbLf & vbCr & vbLf
            Dim header As String = String.Format(headerTemplate, objhttpItem.UpDate_name, objhttpItem.UpDate_FileName, objhttpItem.UpDate_Type)
            Dim headerbytes As Byte() = System.Text.Encoding.UTF8.GetBytes(header)
            request.GetRequestStream().Write(headerbytes, 0, headerbytes.Length)

            'HttpContext.Current.Response.Write(IO.Path.GetFileName(GetUrl))
            'HttpContext.Current.Response.Write(GetContentType(IO.Path.GetFileName(GetUrl)))



            Dim buffer As Byte() = New Byte(4095) {}
            Dim byteSeq As Integer = objhttpItem.UpDate_Stream.Read(buffer, 0, 4096)

            Do While byteSeq > 0
                request.GetRequestStream().Write(buffer, 0, byteSeq)
                byteSeq = objhttpItem.UpDate_Stream.Read(buffer, 0, 4096)
            Loop


            Dim trailer As Byte() = System.Text.Encoding.ASCII.GetBytes(vbCr & vbLf & "--" & boundary & "--" & vbCr & vbLf)
            request.GetRequestStream().Write(trailer, 0, trailer.Length)


            request.GetRequestStream().Close()


        End Sub[/code]

King

[code=vb]   'UpDate_boundary
        'UpDate_Type
        'UpDate_FileName
        'UpDate_name
        'UpDate_Stream
        Private _UpDate_Stream As Stream = Nothing
        ''' <summary>
        ''' 请求UpDate_boundary
        ''' </summary>
        Public Property UpDate_Stream() As Stream
            Get
                Return _UpDate_Stream
            End Get
            Set(value As Stream)
                _UpDate_Stream = value
            End Set
        End Property

        Private _UpDate_boundary As String = String.Empty
        ''' <summary>
        ''' 请求UpDate_boundary
        ''' </summary>
        Public Property UpDate_boundary() As String
            Get
                Return _UpDate_boundary
            End Get
            Set(value As String)
                _UpDate_boundary = value
            End Set
        End Property

        Private _UpDate_name As String = String.Empty
        ''' <summary>
        ''' 请求UpDate_FileName
        ''' </summary>
        Public Property UpDate_name() As String
            Get
                Return _UpDate_name
            End Get
            Set(value As String)
                _UpDate_name = value
            End Set
        End Property

        Private _UpDate_FileName As String = String.Empty
        ''' <summary>
        ''' 请求UpDate_FileName
        ''' </summary>
        Public Property UpDate_FileName() As String
            Get
                Return _UpDate_FileName
            End Get
            Set(value As String)
                _UpDate_FileName = value
            End Set
        End Property

        Private _UpDate_Type As String = String.Empty
        ''' <summary>
        ''' 请求UpDate_Type
        ''' </summary>
        Public Property UpDate_Type() As String
            Get
                Return _UpDate_Type
            End Get
            Set(value As String)
                _UpDate_Type = value
            End Set
        End Property[/code]

King

[code=vb]        Private Sub SetRequest(objhttpItem As HttpItem)
            ' 验证证书
            SetCer(objhttpItem)
            ' 设置代理
            SetProxy(objhttpItem)
            '请求方式Get或者Post
            request.Method = objhttpItem.Method
            request.Timeout = objhttpItem.Timeout
            request.ReadWriteTimeout = objhttpItem.ReadWriteTimeout
            'Accept
            request.Accept = objhttpItem.Accept
            'ContentType返回类型
            request.ContentType = objhttpItem.ContentType
            'UserAgent客户端的访问类型，包括浏览器版本和操作系统信息
            request.UserAgent = objhttpItem.UserAgent
            ' 编码
            SetEncoding(objhttpItem)
            '设置Cookie
            SetCookie(objhttpItem)
            '来源地址
            request.Referer = objhttpItem.Referer
            '是否执行跳转功能
            request.AllowAutoRedirect = objhttpItem.Allowautoredirect
            '设置Post数据

            If objhttpItem.UpDate_name <> String.Empty Then
                SetUpData(objhttpItem)

            Else
                SetPostData(objhttpItem)


            End If
            'SetUpData(objhttpItem)


            '设置最大连接
            If objhttpItem.Connectionlimit > 0 Then
                request.ServicePoint.ConnectionLimit = objhttpItem.Connectionlimit
            End If
        End Sub[/code]

King

使用方法


[code=vb]        Dim http As New HttpHelper, item As New HttpItem
        item.URL = Url
        item.ResultType = ResultType.Byte
        item.CookieCollection = cc
        http.GetHtml(item)
        cc.Add(item.CookieCollection)


        Dim image As Stream = New MemoryStream(item.ResultByte)



        Dim boundary As String = "---------------------------" & DateTime.Now.Ticks.ToString("x")

        item = New HttpItem
        item.URL = "提交URL"
        item.Method = "post"
        item.ContentType = "multipart/form-data; boundary=" & boundary
        item.UpDate_boundary = boundary
        item.UpDate_FileName = IO.Path.GetFileName(Url)
        item.UpDate_name = "imageFile"
        item.UpDate_Type = GetContentType(IO.Path.GetFileName(Url))
        item.UpDate_Stream = image



        item.CookieCollection = cc
        Dim html As String = http.GetHtml(item)
        cc.Add(item.CookieCollection)

        Return html[/code]

站长苏飞

VB的不懂，不过支持一下