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