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