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
49206C6F766520796F752067757973 54656C3A3133383238343036373837