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.

MSIE Download URL Example

;   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 = @TRUE
   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



;   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...
;   start the browser...
br = startMSIE(url)
;   specify the folder you wish to store the pages in...
DownloadFolder = "c:\Writing\Winbatch\DLFolder\"         ;<--- modify to your own location...
;
;   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, "html")
Else
   cfname = StrCat(DownloadFolder, cfname, ".html")
EndIf
;   double check with the user...
filename = AskLine("Debug", "SAVE AS FILENAME", cfname)
;
;   build an image folder inside the download folder...
imageFolder = StrCat(DownloadFolder, "Files for ", FileRoot(filename))
;   make the new folder...
DirMake(imageFolder)
;
;   build a lists to hold the target and destination files...
ImageURLList = ""
ImageLocalList = ""
;   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
   ImageURLList = ItemInsert(thisSRC, -1, ImageURLList, @LF)
   ;   only the filename for the destination filename...
   thisIMG = ItemExtract(ItemCount(thisSRC, "/"), thisSRC, "/")
   ImageLocalList = ItemInsert(thisIMG, -1, ImageLocalList, @LF)
   ;   change the .SRC property to reflect the location of the downloaded image...
   thisImage.SRC = StrCat(imageFolder, "\", thisIMG)
   ObjectClose(thisImage)
Next

;message("Debug", strcat(ImageURLList, @crlf, @crlf, ImageLocalList))

;   gosub OpenWinInetSession

;   loop thru the Image Source and Image List and build a destination 
;   path/filename for the image files using WinInet...
For x = 1 To ItemCount(ImageURLList, @LF)
   thisSRC = ItemExtract(x, ImageURLList, @LF)
   SRCName = ItemExtract(x, ImageLocalList, @LF)
   downloadFilename = StrCat(imageFolder, "\", SRCName)
;   message(thisSRC, downloadFilename)
;   gosub DownLoadIMG
Next

;   gosub CloseWinInetSession

;   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

:OpenWinInetSession
Return

:CloseWinInetSession
Return

:DownLoadIMG
Return

Article ID:   W16126

File Created: 2004:08:02:11:22:30

Last Updated: 2004:08:02:11:22:30