備忘録てきななにか

遊んでいるゲームや面白かった漫画を語ります

【備忘録】指定したURLのウェブサイトをHTML形式でダウンロードするスクリプト

こんにちは、ソウセイ「 ex_sousei 」です。

 

指定したURLのウェブサイト(html)を保存するスクリプトを作成しました。

備忘録としてブログにもupします。

 

VBS

 

⚠️注意事項⚠️

※VBSファイルの文字コードを"SHIFT-JIS"にすること。

※保存するHTMLファイルの文字コードは"Unicode"にすること。

("Unicode"を指定しないと環境依存文字を書き込もうとするとエラーがでる)

 

========================================================

strURL = "http://xxx.xxx.xxx.xxx/"

strTimeStamp = CStr(Now())

strTimeStamp = Replace(strTimeStamp, "/", "")

strTimeStamp = Replace(strTimeStamp, ":", "")

strTimeStamp = Replace(strTimeStamp, " ", "_")

strFileName = "xxx_" & strTimeStamp & ".html"

 

Set objIE = WScript.CreateObject("InternetExplorer.Application")

 

objIE.Visible = True

objIE.Navigate(strURL)

Do While objIE.Busy = True or objIE.readyState <> 4

    WScript.Sleep 100

Loop

 

strTITLE = objIE.LocationName

strHTML = objIE.Document.all.tags("HTML")(0).InnerHTML

 

Set objIE = Nothing

 

Set objFSO = CreateObject("Scripting.FileSystemObject")

Set objFileStream = objFSO.OpenTextFile(strFileName, 2, True, -1)

 

objFileStream.WriteLine "<html>"

objFileStream.WriteLine strHTML

objFileStream.WriteLine "</html>"

 

objFileStream.Close

 

Set objFileStream = Nothing

Set objFSO = Nothing

 

msgbox("終了")

WScript.Quit

========================================================

 

ではでは。