VB.NET通过URL POST请求和GET请求

VB.NET

1. Public Shared Function GetData(ByVal url As String, ByVal data As String) As String  
2.    
3.         Dim request As HttpWebRequest = WebRequest.Create(url + "?" + data)  
4.         request.Method = "GET"  
5.         Dim sr As StreamReader = New StreamReader(request.GetResponse().GetResponseStream)  
6.         Return sr.ReadToEnd  
7.     End Function  
8.    
9.     Public Shared Function PostData(ByVal url As String, ByVal data As String) As String  
10.    
11.         ServicePointManager.Expect100Continue = False  
12.         Dim request As HttpWebRequest = WebRequest.Create(url)  
13.         '//Post请求方式  
14.         request.Method = "POST"  
15.    
16.         '内容类型  
17.         request.ContentType = "application/x-www-form-urlencoded"  
18.         '将URL编码后的字符串转化为字节  
19.         Dim encoding As New UTF8Encoding()  
20.         Dim bys As Byte() = encoding.GetBytes(data)  
21.         '设置请求的 ContentLength   
22.         request.ContentLength = bys.Length  
23.         '获得请 求流  
24.         Dim newStream As Stream = request.GetRequestStream()  
25.         newStream.Write(bys, 0, bys.Length)  
26.         newStream.Close()  
27.         '获得响应流  
28.         Dim sr As StreamReader = New StreamReader(request.GetResponse().GetResponseStream)  
29.         Return sr.ReadToEnd  
30.     End Function