vb.net的GET和POST请求

目录

一、GET请求

二、POST请求

---

一、GET请求

Public Shared Function Get(ByVal url As String,ByVal data As String) As String

     ‘url是请求地址 ，data是参数      

      Dim request As httpWebRequest = WebRequest.Create(url + "?" + data)

      ‘设置GET请求方式   

      request.Method = "GET"

      ‘获取响应数据流

      Dim sr As StreamReader =New StreamReader(request.GetResponse().GetResponseStream)

       Return sr.ReadToEnd

End Function

二、POST请求

Public Shared Function PostByVal url As String,ByVal data As String) As String

        ‘url是请求地址 ，data是参数      

       ServicePointManager.Expect100Continue = False

       Dim request As httpWebRequest = WebRequest.Create(url)

       '设置Post请求方式

       request.Method = "POST"

      '参数内容类型

      request.ContentType = "application/x-www-form-urlencoded"

      '将URL编码后的参数字符串转化为字节

      Dim  enCoding As New UTF8EnCoding()

      Dim bys As Byte() = enCoding .GetBytes(data)

      '设置POST请求的 ContentLength

      request.ContentLength = bys.Length

      '获得请求数据流

      Dim newStream As Stream = request.GetRequestStream()

      newStream.Write(bys,bys.Length)

      newStream.Close()

      '获得响应数据流

      Dim sr As StreamReader =New StreamReader(request.GetResponse().GetResponseStream)

      Return sr.ReadToEnd

End Function