VB 调用Inet控件下载出错

Question

    各位高手，小弟最近碰到一个问题：原先写的程序大概的思路是：首先webbrowser打开网址，网址显示后，点击网址上的某一个连接，当webbrowser检测到网址已经连接到想要的地址时候就开始下载文件，当用IE6的时候下载是正常的，Content-Type是正确的,是Image/jpeg;但是一旦系统的IE版本是7或者8的时候，下载就会出错，Content-Type就会出错，会全部变成Html,全部是网页格式的，下载出错！
    真不知道这是什么问题，高手给指导一下！谢谢！！！

Answer 1

'State = 12 时，用 GetChunk 方法检索服务器的响应。
    Dim RetCode As Long
   
    Dim vtData() As Byte
    Select Case State
   '...没有列举其它情况。
    Case icError '11
      '出现错误时，返回 ResponseCode 和 ResponseInfo。
        vtData = inet1.ResponseCode & ":" & inet1.ResponseInfo
    Case icResponseCompleted ' 12
        Dim bDone As Boolean: bDone = False
        '取得第一个块。
        vtData() = inet1.GetChunk(1024, 1)
        DoEvents
        Open SavePathTemp For Binary Access Write As #1     '设置保存路径文件后开始保存        If Len(inet1.GetHeader("Content-Length")) > 0 Then ProDown.Max = CLng(inet1.GetHeader("Content-Length"))
        '循环分块下载
        Do While Not bDone
           Put #1, Loc(1) + 1, vtData()
           vtData() = inet1.GetChunk(1024, 1)
           DoEvents
           ProDown.Value = Loc(1)   '设置进度条长度
           If Loc(1) >= ProDown.Max Then bDone = True
        Loop
       
        Close #1

Answer 2

inet1.GetHeader("Content-Type")全部是网页形式而不是Image/jpeg。
inet1.GetHeader("Content-Length")全部是83字节，而不是实际的文件大小。
原来的IE6没有出现过此问题！