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