czjt1234

Dim BinTemp, strUrl
strUrl = "http://www.19lou.com/forum-26-thread-2601339311269947-1-1.html"
With CreateObject("Msxml2.Xmlhttp")
    .Open "get", strUrl, False
    .Send
    BinTemp = .ResponseBody
End With
With CreateObject("Adodb.Stream")
    .Type = 1
    .Mode = 3
    .Open
    .Write BinTemp
    .SaveToFile "1-1.html"
    .Close
End With
复制代码