网站登录后如何得到当前网页的源代码? - 中国DOS联盟论坛

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

第16楼　everest79	发表于 2009-08-27 12:40
金牌会员　发帖 1,127　积分 2,564
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