XMLHTTP组件用于文件下载的应用

1、导入引用，选择 MSXML2 即可

2、简单例子应用，取文本的：

Dim myxmlhttp As MSXML2.XMLHTTP = New MSXML2.XMLHTTPClass
        url = http://www.163.com
        myxmlhttp.open("GET", url, False, "", "")
        myxmlhttp.send("")

        TextBox1.Text = myxmlhttp.responseText

3、下载文件：

dim imgURL="http://cn.yimg.com/sp/hsxt/zxy05102101.jpg"

Dim _xmlhttp As New MSXML2.XMLHTTP
        Try
            _xmlhttp.open("GET", imgURL, False, Nothing, Nothing)
            _xmlhttp.send("")
        Catch ex As Exception
            Label2.Text = "Can't download the picture!"
            Return StrImage
            Exit Function
        End Try
        Dim status = _xmlhttp.status
        If _xmlhttp.readyState = 4 And status = 200 Then
            If System.IO.File.Exists(StringFilePath) Then
                System.IO.File.Delete(StringFilePath)
            End If
            Dim fs = New System.IO.FileStream(StringFilePath, System.IO.FileMode.CreateNew)
            Dim w = New System.IO.BinaryWriter(fs)
            w.Write(_xmlhttp.responseBody)
            w.Close()
            fs.Close()
        Else
            Label2.Text = _xmlhttp.statusText
        End If

4. 在ASPX页面的开始行需要加上 aspcompat=true，否则会出错，原因不明，如下：

“/TestDL”应用程序中的服务器错误。

---

接口 MSXML2.IXMLHTTPRequest 的 QueryInterface 失败。

“/TestDL”应用程序中的服务器错误。

---

接口 MSXML2.IXMLHTTPRequest 的 QueryInterface 失败。