Set oIE = CreateObject("InternetExplorer.Application") oIE.Navigate "http://www.changjiangtimes.com/pdf.aspx" Do WScript.Sleep 200 Loop Until Not oIE.Busy And oIE.ReadyState = 4 '下面你可以把它写到文件里面去,Adodb.Stream和Scripting.FileSystemObject都可以 WScript.echo "<HTML>" & oIE.Document.body.OuterHTML & _ "</HTML>" oIE.Quit Set oIE = Nothing