Given a specific URL, I'm trying to download the contents of that URL as an MHT file. I considered writing a parser/crawler, but think there must be a quicker way.
I fired up Powershell:
$ie = new-object -com "InternetExplorer.Application"
$ie.navigate("http://www.example.com")
$ie.document.title # Just to verify the navigate worked
AT this point I couldn't find a way to call the menu commands, particularly SaveAs.
Any help would be appreciated.
From stackoverflow
-
With VBScript
For local files
cscript yourscriptname.vbs file:/test.html test.mhtFor remote files
cscript yourscriptname.vbs http://www.test.com/test.html test.mht-
Const adSaveCreateNotExist = 1 Const adSaveCreateOverWrite = 2 Const adTypeBinary = 1 Const adTypeText = 2 Set args = WScript.Arguments if args.Count = 0 then WScript.Echo "Usage: [CScript | WScript] mht_converter.vbs <html file> <mht filename>" WScript.Quit 1 end if Set objMessage = CreateObject("CDO.Message") objMessage.CreateMHTMLBody args.Item(0) SaveToFile objMessage, args.Item(1) Sub SaveToFile(Msg, Fn) Dim Strm, Dsk Set Strm = CreateObject("ADODB.Stream") Strm.Type = adTypeText Strm.Charset = "US-ASCII" Strm.Open Set Dsk = Msg.DataSource Dsk.SaveToObject Strm, "_Stream" Strm.SaveToFile Fn, adSaveCreateOverWrite End Sub
0 comments:
Post a Comment