こんにちは、ソウセイ「 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
========================================================
ではでは。