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.

WebPage Inventory

;   Try this, it gives a short "inventory" of a webpage. It'll show
;   you what's on the page, and how many of each.

;   Hint: use this to build something more detailed, like summaries
;   for each table (whether they have borders and their size, how many
;   rows/cells in each one) and so on for each. Look at the images
;   collection (figure out how many are .GIF, .JPG, etc, etc).

;   this uses Winbatch 2004F and MSIE 6...

;   when you run this let it sit while the page loads completely...

#DefineSubRoutine startMSIE()
   Browser = ObjectOpen("InternetExplorer.Application")
   Browser.addressbar = @FALSE
   Browser.statusbar = @FALSE
   Browser.menubar = @FALSE
   Browser.toolbar = @FALSE
   browser.visible = @TRUE
   url = "http://www.windowware.com"        ;  <--------- Set to URL you prefer...
   browser.navigate(url)
   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



;   set up what to do if the browser is closed before the script ends...
IntControl(73, 1, 0, 0, 0)

;   start the browser...
br = startMSIE()

Message("Objects on this Page", all.length)

objlist = ""
objcount= ""

For x = 0 To all.length-1
   dp = all.%x%
   location = ItemLocate(dp.tagname, objlist, @TAB)
   If location == 0
      objlist = ItemInsert(dp.tagname, -1, objlist, @TAB)
      objcount= ItemInsert("1", -1, objcount, @TAB)
   Else
      count   = ItemExtract(location, objcount, @TAB)
      objcount= ItemReplace(count+1, location, objcount, @TAB)
   EndIf
Next

finaltxt = ""
sortlist = ItemSort(objlist, @TAB)

For x = 1 To ItemCount(objlist, @TAB)
   thisobj = ItemExtract(x, sortlist, @TAB)
   usloc   = ItemLocate(thisobj, objlist, @TAB)
   thiscnt = ItemExtract(usloc, objcount, @TAB)
   finaltxt = StrCat(finaltxt, thisobj, @TAB, thiscnt, @CRLF)
Next

Message("Page Inventory & Count", finaltxt)

:WBERRORHANDLER

Return
Exit

Article ID:   W16137

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

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