点击这里给我发消息
帮助中心

工作时间:8:30 - 17:30

VB

Imports System.Net
Imports System.io

Public Class HttpSend
    ''' <summary>
    ''' post方法
    ''' </summary>
    ''' <param name="url">服务器地址</param>
    ''' <param name="param">参数</param>
    ''' <returns></returns>
    ''' <remarks></remarks>
    Public Shared Function postSend(ByVal url As String, ByVal param As String) As String

        Dim myEncode As System.Text.Encoding = System.Text.Encoding.GetEncoding("UTF-8")

        Dim postBytes() As Byte = System.Text.Encoding.ASCII.GetBytes(param)

        Dim req As HttpWebRequest = HttpWebRequest.Create(url)
        req.Method = "POST"
        req.ContentType = "application/x-www-form-urlencoded;charset=UTF-8"
        req.ContentLength = postBytes.Length

        Try
            Using reqStream As Stream = req.GetRequestStream()
                reqStream.Write(postBytes, 0, postBytes.Length)
            End Using

            Using res As WebResponse = req.GetResponse()
                Using sr As StreamReader = New StreamReader(res.GetResponseStream(), myEncode)
                    Dim strResult As String = sr.ReadToEnd()
                    Return strResult
                End Using
            End Using

        Catch ex As WebException
            Return "无法连接到服务器" & Chr(13) & Chr(10) & "错误信息:" & ex.Message
        End Try


    End Function
    ''' <summary>
    ''' get方法
    ''' </summary>
    ''' <param name="url">地址</param>
    ''' <param name="param">参数</param>
    ''' <returns></returns>
    ''' <remarks></remarks>
    Public Shared Function getSend(ByVal url As String, ByVal param As String) As String
        Dim address As String = url & "?" & param
        Dim uri As Uri = New Uri(address)
        Dim webReq As WebRequest = WebRequest.Create(uri)

        Try
            Using webResp As HttpWebResponse = DirectCast(webReq.GetResponse(), HttpWebResponse)
                Using respStream As Stream = webResp.GetResponseStream()
                    Using objReader As StreamReader = New StreamReader(respStream, System.Text.Encoding.GetEncoding("UTF-8"))
                        Dim strRes As String = objReader.ReadToEnd()
                        Return strRes
                    End Using
                End Using
            End Using

        Catch ex As WebException
            Return "无法连接到服务器" & Chr(13) & Chr(10) & "错误信息:" & ex.Message
        End Try


    End Function

End Class