Database Search

TechHome

User Samples

• !! Getting started with MSIE !!!
• !! Webpage Element Explorer !!
• Accessing Download File Dialog Box
• Accessing New IE Window
• Analyze HTML Sample Code
• Automate Input into Form
• Automate name change in Yahoo Mail Account
• BeforeNavigate2 Example
• Calander in MSIE
• Cannot Find Form Name
• Check a Radio Button on Web Page
• Check Checkbox in Web Page
• Check if URL is Open in IE
• Click Form Buttons
• Click on Button with No Name and No ID
• Click on Input Type Image
• Convert HTML Hex to Unicode String
• Dealing with iFrames
• Delete Temporary Internet Files Cache
• Determine if Check box is checked on Webpage
• DHMTL Type Ahead Search
• DHTML Download Webpage Complete
• DHTML Reference Link
• Display a Browser Print Preview Page
• Display data in a Columnar or Grid format
• Distinguish between IE window and a Windows Explorer window
• Download Complete Webpage
• Embed an Active X Object into MSIE
• Example of Using the IE Object Interface.
• Example of using the IE Object Interface
• ExecCommand Saveas dialog problem
• Execute a Java Script from a Webpage
• Execute JScript function via OLE
• Extract Column from HTML Table
• Fiind Unnamed Form
• Find a Link in a Webpage then Click on it
• Find Current MSIE Window Object Handle
• Fire a ONMOUSEOVER MSIE Event via Ole
• Geocoder Return Latitude and Longitude for an Address
• Get Current Open MSIE Screen
• Get Data From a Webpage
• Get Objects in MSIE Form
• Get page contents in IE
• Get text from HTML pages
• Get Webpage Links
• Getting an OLE document handle for an open MSIE window
• Gmail Login
• Go Back to Previous Web Page
• Grab Url of Active Window
• How to Access Frame Object in InternetExplorer
• How to Check a Checkbox When They All Have the Same Name
• How to Click on a URL link on a Web Page
• How to Launch IE with Several Tabs
• How to Test if Page is Loaded under IE4
• HTML Analysis
• HTML Extender Replacement code
• HTML to Text conversion with Internet Explorer 5
• IE Analyzer
• IE9 Click or Focus Methods Fail
• Ignore Java script code in webbpage
• Insert Data into IE Web Form INPUT Controls
• Internet Explorer No Title Bar Or Options
• Internet Explorer OLE Developer Scripts
• Inventory Frames
• Launch Application from HTML Page
• List Links on a Webpage
• Locate a String on a Webpage
• Log onto the WebBoard via OLE
• MSIE Context menu Example
• MSIE Download URL Example
• MSIE OLE Popup Killer
• Navigate Url Error
• OLE - Reading a web page
• OLE Event Examples
• OLE Get User Input from HTML Form
• OLE HTTPS Download with Client Certificate
• OLE MSIE Enter Userid and Password
• OLE MSIE Hints
• OLE to Return Links and Anchors on Webpage
• Open MSIE with OLE
• Quick Explanation of the Internet Application Object Model
• Read Java Script From a Web Page
• Reading Text in Multiple MSIE Frames
• Remove Title Bar from IE
• Save As Complete Web Page
• Saving data with MSIE and OLE
• See What Buttons Pushed in MSIE
• Select Option and Button Example
• Set Focus on HTML Form Control
• Setting Focus on an HTML Control
• SHDOCVW dll
• Spanish OLE-MSIE UDFs
• UAC Manifest Setting Triggers 1129 Error
• URL monitor
• Use DHTML to Create a Dialog to View a Report
• Users Collection of OLE MSIE Scripts
• Using MSIE from a WinBatch front end
• Using WB OLE to Automate MSIE and Dynamic HTML
• WebPage Inventory
• WebPage Link Lister
• WindowOnTop Problem With IE9
• Working with Multiple Tabs in Internet Explorer
• Zoom IE Window

Can't find the information you are looking for here? Then leave a message over on our WinBatch Tech Support Forum.

Save As Complete Web Page

;   here's the basic download using OLE.
;
;   I'll leave you to write the WinInet Code to do the actual image downloads,
;   and make any changes...it's interactive to start, then you can modify it
;   to make it "auto-magic" ;)

;   Winbatch 2004F, MSIE 6

#DefineSubRoutine startMSIE(url)
   browser = ObjectOpen("InternetExplorer.Application")
   browser.addressbar = @FALSE
   browser.statusbar = @FALSE
   browser.menubar = @FALSE
   browser.toolbar = @FALSE
   browser.visible = @FALSE
   browser.navigate(url)
   ;   wait until page loads...
   WaitForPageLoad()
   ;   setup the document object...
   browserDoc = browser.Document
   all = browserdoc.all
   Return(browser)
#EndSubRoutine

#DefineSubroutine WaitForPageLoad()  ; assume Browser
   While browser.busy || browser.readystate == 1
      TimeDelay(0.5)
   EndWhile
   While browser.Document.ReadyState != "complete"
      TimeDelay(0.5)
   EndWhile
   return
#EndSubroutine



;   load WinInet extender
AddExtender("wwint34i.dll")

;   URL of page you wish to Download...
;url = "C:\Test\Winbatch Main Page.htm"      
url = "http://www.winbatch.com"               ;<--- modify to the page you need...
;
;   specify the folder you wish to store the pages in...
DownloadFolder = "c:\temp\webpage"            ;<--- modify to your own location...
;
;   check for trailing backslash
if StrSub(DownloadFolder,StrLen(DownloadFolder),1) != "\" then DownloadFolder = StrCat(DownloadFolder,"\")
;
;   start the browser...
br = startMSIE(url)
;
;   build a current filename from the .title of the current page...
cfname = StrTrim(browserdoc.title)
If StrSub(cfname, StrLen(cfname), 1) == "."
   cfname = StrCat(DownloadFolder, cfname, "htm")
Else
   cfname = StrCat(DownloadFolder, cfname, ".htm")
EndIf
;   double check with the user...
filename = AskLine("Debug", "SAVE AS FILENAME", cfname)
;
;   build an image folder inside the download folder...
imageFolder = StrCat(DownloadFolder, FileRoot(filename),"_Files\")
;   make the new folder...
DirMake(imageFolder)
;
;   open WinInet session
tophandle=iBegin(0,"","")

;
;   loop thru the images on the page and grab...
ImageList = browserdoc.GetElementsBytagName("IMG")
For x = 0 To ImageList.length-1
   thisImage = ImageList.item(x)
   ;   the source image...
   thisSRC   = thisImage.SRC
   ;   only the filename for the destination filename...
   thisIMG = ItemExtract(ItemCount(thisSRC, "/"), thisSRC, "/")
	;   download image file
	datahandle=iUrlOpen(tophandle,thisSRC)
	xx=iReadData(datahandle,StrCat(imageFolder,thisIMG))
	;   specify relative image path
	thisImage.SRC = StrCat(FileRoot(filename),"_Files\", thisIMG)
   ;   close object
   ObjectClose(thisImage)
Next

;   loop thru the background images on the page and grab...
BackImageList = browserdoc.GetElementsBytagName("table")
For y = 0 To BackImageList.length-1
   thisBackImage = BackImageList.item(y)
   ;   the source image...
   thisBackSRC   = thisBackImage.background
	if thisBackSRC=="" then continue
   ;   only the filename for the destination filename...
   thisBackIMG = ItemExtract(ItemCount(thisBackSRC, "/"), thisBackSRC, "/")
	;   download image file
	datahandle=iUrlOpen(tophandle,thisBackSRC)
	xx=iReadData(datahandle,StrCat(imageFolder,thisBackIMG))
	bck = StrCat(FileRoot(filename),"_Files\", thisBackIMG)
	;   specify relative image path
	thisBackImage.background = bck
   ;   close object
   ObjectClose(thisBackImage)
Next

;   close WinInet session
iClose(datahandle)
iClose(tophandle)


;   now grab the HTML from the page...
body = browserdoc.body
bodytxt = body.outerHTML

;   strcat a comment to the top of it, with the URL of the page just in case
;   you need it later...
bodytxt = StrCat("", @CRLF, bodytxt, "")
;
;   write the new HTML to the file...
FilePut(filename, bodytxt)
;
Message("Debug", "All Done")

Return
Exit

Article ID:   W16133

File Created: 2004:08:02:11:24:20

Last Updated: 2004:08:02:11:24:20