用VB实现网页下载跟踪程序
陶国强
互联网传输控件（ITC）是一个很不错的控件，我们可以利用它非常方便地检索Web资源，但不幸的是，该控件并没有提供跟踪数据传输过程的方法。如果ITC控件具有诸如DownloadProgress或者DataArrival这样的事件，而且该事件还具有相应的参数就好了，但可惜也没有。那么有没有方法来获取网页下载过程的信息呢？答案是肯定的，下面就来讨论一下如何获取HTTP数据传输的过程信息。
通常，我们使用ITC控件提供的两种方法来下载Web页面，即OpenURL和Execute，其中，OpenURL方法最简单，但其功能有限，用这种方法并不能得到任何过程信息。为了用OpenURL方法获取Web页面内容，我们可以使用下面的代码：
strPageContent = Inet1.OpenURL(strURL, icString)
可见，用OpenURL方法下载页面确实很简单，但我们不能对到达的数据进行控制，所以，我们需要访问Winsock缓冲区，该缓冲区的功能是存储到达的数据。如果我们能够访问缓冲区内的数据，那么我们就能在传输过程中的任何时刻计算出已到达数据的大小。而利用ITC控件的Execute方法，情况就完全不同了，下面我们来看一下该方法是如何工作的：
''Execute方法只是向Web服务器发送HTTP请求，而本身并不接收任何数据
Inet1.Execute strURL, "GET"
为了检索已达到数据，我们需要使用GetChunk方法将缓冲区数据读到VB变量中。
strBuffer = Inet1.GetChunk(512)
strArrivedData = strArrivedData & strBuffer
可见，GetChnuk方法具有Size参数，允许我们自定义从缓冲区内读出数据块的大小。因此，我们找到了控制到达数据的方法，而且我们可以在下载过程中实现对已到达数据的控制。在StateChanged事件中加入如下代码：
Private Sub Inet1_StateChanged(ByVal State As Integer)
Select Case State
Case icResponseCompleted
Do
DoEvents
strBuffer = Inet1.GetChunk(512)
strArrivedData = strArrivedData & strBuffer
lngArrivedDataSize = Len(strArrivedData)
Loop Until Len(strBuffer) = 0
End Select
End Sub
OK！现在我们就能够显示已到达数据的大小了。但是如何获得下载数量的百分比值，然后通过进度条来显示下载过程呢？首先，我们需要在任何数据到达之前知道页面文件的大小。根据HTTP规范，Web服务器需要发送内容长度报头（Content-Length header field）作为HTTP请求的响应，通过这个值我们就可以知道页面文件的大小。我们可以在StateChanged事件中调用ITC控件的GetHeader方法来获取这个值，如下所示：
''This module level variable stores size of the file we are downloading from the web
Private m_lngDocSize As Long
Private Sub Inet1_StateChanged(ByVal State As Integer)
Select Case State
Case icResponseReceived
If m_lDocSize = 0 Then
If Len(Inet1.GetHeader("Content-Length")) > 0 Then
m_lDocSize = CLng(Inet1.GetHeader("Content-Length"))
End If
End If
End Select
End Sub
然而，在某些情况下，Web服务器并不发送内容长度报头，我们也就不能知道页面文件大小，也就不能显示进度信息了。
现在，我们来创建一个简单的应用程序来实现我们的目标。
创建工程
启动VB集成开发环境，创建一个标准Windows应用工程，将该工程命名为DownloadProgress，在Project菜单中打开Componets对话框（或按快捷键Ctrl+T激活），然后选中下列控件：
• Microsoft Internet Transfer Control
• Microsoft Rich Textbox Control
• Microsoft Windows Common Controls
选择保存目录，然后保存该工程。
创建图形用户界面
在窗体上放置下