网站登录后如何得到当前网页的源代码? - DOS批处理 & 脚本技术（批处理室） - 中国DOS联盟论坛

中国DOS联盟

-- 联合DOS 推动DOS 发展DOS --

联盟域名：www.cn-dos.net 论坛域名：www.cn-dos.net/forum
DOS，代表着自由开放与发展，我们努力起来，学习FreeDOS和Linux的自由开放与GNU精神，共同创造和发展美好的自由与GNU GPL世界吧！

LZ，现在的网站都是支持自动登录的，你要访问登录后的URL，就在手动登录时选上以后自动登录，然后使用脚本就可以得到那个源文件了

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