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：运行界面