XML+ADODB+FSO下载远程文件

【分享】XML+ADODB+FSO下载远程文件
在网上找了一下XMLHttp对象的资料，也算学习了一下，下面就我在网上的资料，自己写了个vbs脚本玩玩，是下载网上文件用的，我就以下载百度的LOGO为例了，希望可以给大家一些启发！呵呵~

VBScript code

Dim oXMLSet oXML = CreateObject("Microsoft.XMLHTTP")oXML.open "get", "http://www.baidu.com/img/baidu_logo.gif", TrueSet dl = New DownLoadoXML.onreadystatechange = dloXML.senddl.StartDL(oXML)Class DownLoad    Function StartDL(oXML)        If oXML.readyState = 4 Then DL(oXML)    End Function        Function DL(oXML)        Dim fPath        fPath="c:\baidu_logo.gif"        Set oStm = CreateObject("ADODB.Stream")        oStm.Type = 1        oStm.open        Set fso = CreateObject("Scripting.FileSystemObject")        If oXML.readyState = 4 Then            oStm.Write (oXML.responseBody)            If fso.FileExists(fPath) Then fso.DeleteFile(fPath)            oStm.SaveToFile fPath        End If        oStm.Close        Set oStm = Nothing        Set fso = Nothing    End FunctionEnd Class

请大家着重体会
1.关联
Set dl = New DownLoad
oXML.onreadystatechange = dl
2.加载完全再操作
If oXML.readyState = 4 Then 

睡觉去~

[解决办法]
还挺好用的哦
[解决办法]

[解决办法]
ajax?
[解决办法]
不懂…………

但要顶一下！

[解决办法]
简单实用的下载