| | Visual Basic .Net中实现HTTP协议 |
| | | | | | [文章信息] | | | 作者: | 阿虎 | | 时间: | 2003-09-02 | | 出处: | yesky | | 责任编辑: | 方舟 | |
| [文章导读] | | | 本文详细介绍了.Net FrameWork SDK中提供的用以实现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：运行界面
|
|
|
|
|
|
|
|
