Visual Basic .Net中实现HTTP协议(三)
三.本文程序设计、调试和运行的环境:
(1).微软公司视窗2000服务器版。
(2).Visual Studio .Net正式版,.Net FrameWork SDK版本号3705。
四.Visual Basic .Net实现HTTP会话的请求头并获取应答头:
下面示例可以自定义HTTP会话中的请求头中各单位的数据,并获取从WWW主机返回的应答头,并从中提取重要的属性对应的数据,具体的实现方法请参阅下面的实现步骤,以下就是用Visual Basic .Net实现HTTP会话的请求头并获取应答头项目的具体实现步骤:
1. 启动Visual Studio .Net。
2. 选择菜单【文件】|【新建】|【项目】后,弹出【新建项目】对话框。
3. 将【项目类型】设置为【Visual Basic项目】。
4. 将【模板】设置为【Windows应用程序】。
5. 在【名称】文本框中输入【Visual Basic .Net中实现HTTP协议】。
6. 在【位置】的文本框中输入【E:\VS.NET项目】,然后单击【确定】按钮,这样在“E:\VS.NET项目”目录中就产生了名称为“Visual Basic .Net中实现HTTP协议”的文件夹,并在里面创建了名称为“Visual Basic .Net中实现HTTP协议”的项目文件。具体如图02所示
图02:【新建项目】对话框
7. 把Visual Studio .Net的当前窗口切换到【Form1.vb(设计)】窗口,并从【工具箱】中的【Windows窗体组件】选项卡中往Form1窗体中拖入下列组件,并如图3那样排列和修改相应属性:
图03:设计界面
一个Button组件,其功能也是向Web主机发送定制的GET命令,并获得从Web主机反馈来的应答头。并在这个Button组件拖入Form1的设计窗体后,双击它,则系统会在Form1.vb文件分别产生这个组件的Click事件对应的处理代码。
8. 在Form1.vb文件的最前面添加下列代码,下列代码在Form1.vb中导入程序中要使用的类所在的命名空间:
Imports System.Net
9. 用下列代码替换Form1.vb中的Button1的Click事件对应的处理代码,下列代码功能是定制HTTP请求头向给定的URI地址发送GET命令,并提取从WWW主机反馈的应答头数据:
Dim myHttpWebRequest As HttpWebRequest Dim myHttpWebResponse As HttpWebResponse Try Dim URL As String = textBox1.Text Dim myUri As Uri = New Uri ( textBox1.Text ) Dim myWebRequest As WebRequest = WebRequest.Create ( URL ) '使用Creat方法创建WebRequest实例 myHttpWebRequest = CType ( myWebRequest , HttpWebRequest ) '实现WebRequest类型和HttpWebRequest类型的转换 ' 以下代码是设定请求头,如果请求头 ' 没有设置则采用系统缺省的设置 myHttpWebRequest.KeepAlive = True '设定此HTTP连接是否是永久连接 myHttpWebRequest.Timeout = 300000 '设定此HTTP连接的超时时限,请注意这里的单位是毫秒 myHttpWebRequest.Method = "GET" '设定请求命令类型 ' 以下代码是发送请求信息,并从获得的响应信息中 ' 提起应答头中各属性数据 Dim myWebResponse As WebResponse = myHttpWebRequest.GetResponse ( ) '获得响应信息 myHttpWebResponse = CType ( myWebResponse , HttpWebResponse ) '实现从WebResponse类型到HttpWebResponse类型转换 ' 以下代码是从响应信息中提起应答头 textBox2.Text = myHttpWebResponse.ContentType.ToString ( ) '获得“内容类型”应答头 textBox3.Text = myHttpWebResponse.ContentLength.ToString ( ) '获得“内容长度”应答头 textBox4.Text = myHttpWebResponse.Method.ToString ( ) '获得“方法”应答头 Dim iStatCode As Integer = CInt ( myHttpWebResponse.StatusCode ) '获得“状态码”应答头 textBox5.Text = iStatCode.ToString ( ) textBox6.Text = myHttpWebResponse.ProtocolVersion.ToString ( ) '获得“协议版本”应答头 textBox7.Text = myHttpWebResponse.Server.ToString ( ) '获得“服务器”应答头 textBox8.Text = myHttpWebResponse.Headers.ToString ( ) '显示从Internet资源返回的所有应答信息 Catch WebExcp As WebException MessageBox.Show ( WebExcp.Message.ToString ( ) ) Catch ex As Exception MessageBox.Show ( ex.ToString ( ) ) End Try End Sub |
10. 至此,在上述步骤都正确执行后,【Visual Basic .Net中实现HTTP协议】项目的全部工作就完成了。单击快捷键F5就可以运行程序,此时单击【GET命令】按钮后,程序就会向指定的URI地址发送GET命令,并把从WWW主机反馈的应答头按条目显示出来,具体如图04所示:
图04:运行界面