中国DOS联盟

Const URI = "http://www.sohu.com"
Call SaveFile(URI,"temp.txt")

Function GetHtml(url)
    Set xml = CreateObject("MsXml2.XMLHTTP")
    xml.open "GET",url,False '优先读IE缓存使用GET，否则使用POST
    xml.send
    GetHtml =xml.ResponseBody
    Set xml = Nothing
End Function

Sub SaveFile(url,file)
    Set oStream = CreateObject("ADODB.Stream")
    With oStream
        .Type = 1
        .Open
        .Write GetHtml(url)
        .SaveToFile file
        .Flush
        .Close
    End With
    Set oStream = Nothing
End Sub