get方式的发送比较简单,直接构建如 http://网址?变量1=值1&变量2=值2的uri地址
剩余的和《vb.net 教程 12-8 WebRequest 和 Webresponse 2 获得网页资源》操作类似:将uri地址发送过去,获得返回的流,读取流,根据编码(这里是utf-8),获得返回的内容。
设计时窗体:
按下“get方式"按钮的代码:
Private Sub Button9_Click(sender As Object, e As EventArgs) Handles Button9.Click
Dim poststring As String = "txtname1=test1&txtname2=test2"
Dim addr As String = txtform.Text
addr &= "?" & poststring
Try
Dim myWebRequest As WebRequest = WebRequest.Create(addr)
myWebRequest.ContentType = "application/x-www-form-urlencoded"
myWebRequest.Method = "GET"
Dim myWebresponse As WebResponse = myWebRequest.GetResponse
Dim mystream As Stream = myWebresponse.GetResponseStream
Dim singleReadCount As Integer = 10240
Dim mybyte(singleReadCount - 1) As Byte
Dim strpagecontent As String = ""
Dim intreadl As Integer = 0
Do
intreadl = mystream.Read(mybyte, 0, singleReadCount)
strpagecontent &= Encoding.UTF8.GetString(mybyte, 0, intreadl) 'Encoding.GetEncoding("gb2312").GetString(mybyte, 0, intreadl)
Loop While intreadl > 0
Console.WriteLine(strpagecontent)
mystream.Close()
myWebresponse.Close()
Catch ex As Exception
MessageBox.Show(ex.Message)
End Try
End Sub
返回的结果:
可以看到返回结果得到了传递过去的值。
由于.net平台下C#和vb.NET很相似,本文也可以为C#爱好者提供参考。
学习更多vb.net知识,请参看vb.net 教程 目录