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.

Spanish OLE-MSIE UDFs

;---------------------------------------------------------------------------
;Eusebio Pérez 2003
;---------------------------------------------------------------------------
;START_MSIE()   
;      => Abre el Internet Explorer.
;GOTO_URL(cURL,oBrowser)
;      => Navega hacia una URL y espera hasta que la página se cargue
;GET_ALL(oBrowser)                                              
;      => Obtiene todo lo que contiene el objeto oBrowser (oIE)
;QUIT_IE(oBrowser)
;      => Cierra el navegador
;ENVIA_FORM(letras,oBrowser,nameform,nameelement)
;      => Envía un formulario. Letras: lo que queremos escribir en el form
;                              nameform: El nombre del formulario
;                              nameelement: nombre del elemento del formulario
;GET_HTM(oBrowser) 
;      => Retorna la página HTM con los TAGS incluidos
;GET_TEXT(oBrowser)
;      => Retorna el texto del HTM sin los TAGS
;GET_LINKS(oBrowser)
;      => Retorna un ITEM con los links que contiene la página
;GET_NUM_OF_LINKS(oBrowser)
;      => Retorna el número de links que tiene una página
;GET_ANCHORS(oBrowser)
;      => Retorna un ITEM con los anchors de la página
;GET_IMAGES(oBrowser)
;      => Retorna un ITEM con las imágenes de la página
;GET_USER_AGENT(oBrowser)
;      => Obtiene el User_Agent
;PRINT_PREV(oBrowser)
;      => Nos coloca el navegador en vista preliminar
;===========================================================================
; OLE y MSIE
;===========================================================================
#DefineFunction START_MSIE()
   oBrowser=ObjectOpen("InternetExplorer.Application")
   oBrowser.addressbar=@TRUE
   oBrowser.statusbar=@TRUE
   oBrowser.menubar=@TRUE
   oBrowser.toolbar=@TRUE
   oBrowser.visible=@TRUE
   Return oBrowser
#EndFunction


#DefineFunction GOTO_URL(cURL,oBrowser)
   oBrowser.navigate(cURL)
   While oBrowser.readystate<>4
      TimeDelay(0.5)
   EndWhile
#EndFunction

#DefineFunction GET_ALL(oBrowser)
   BrowserDoc=oBrowser.Document
   all = BrowserDoc.all
   ;obj = all.length
   Return all
#EndFunction

#DefineFunction QUIT_IE(oBrowser)
   oBrowser.quit
   ObjectClose(oBrowser)
#EndFunction


#DefineFunction ENVIA_FORM(letras,oBrowser,nameform,nameelement)
   BrowserDoc=oBrowser.Document
   form=BrowserDoc.forms(nameform)          ;<--Nombre del formulario
   ;x=form.elements
   ;y=x.length
   ;for i=0 to y-1
      ;z=form.elements(i)
      ;message("field",z.name)
   ;next
   form_letras=form.elements(nameelement)  ;<--Nombre del objeto del formulario
   form_letras.value=letras
   form.submit
   TimeDelay(3)
   While oBrowser.readystate<>4
      TimeDelay(0.5)
   EndWhile
   TimeDelay(1)
   ObjectClose(BrowserDoc)
   ObjectClose(form)
   ObjectClose(form_letras)
   Return oBrowser
#EndFunction

#DefineFunction GET_HTM(oBrowser)
;obtiene la página con los TAGS
   BrowserDoc=oBrowser.Document
   BrowserBody=BrowserDoc.Body
   BrowserPage=BrowserBody.CreateTextRange
   BrowserPageHTML=BrowserPage.HTMLText
   ObjectClose(BrowserDoc)
   ObjectClose(BrowserBody)
   ObjectClose(BrowserPage)
   Return BrowserPageHTML
#EndFunction

#DefineFunction GET_TEXT(oBrowser)
;obtiene solo el texto de la página (SIN LOS TAGS)
   BrowserDoc=oBrowser.Document
   BrowserBody=BrowserDoc.Body
   BrowserPage=BrowserBody.CreateTextRange
   BrowserText=BrowserPage.Text
   ObjectClose(BrowserDoc)
   ObjectClose(BrowserBody)
   ObjectClose(BrowserPage)
   Return BrowserPageHTML
#EndFunction


#DefineFunction GET_LINKS(oBrowser)
   ;Cambia el delimitador por defecto
   ;intcontrol(29,@TAB,0,0,0) 
   list=""
   BrowserDoc=oBrowser.Document
   links=BrowserDoc.links
   numberoflinks=GETNUMOFLINKS(oBrowser)
   For x = 0 To numberofLinks
           Links = BrowserDoc.Links(x)
           list=ItemInsert(links.href,-1,list,@TAB)
   Next
   ObjectClose(BrowserDoc)
   Return list
#EndFunction

#DefineFunction GET_NUM_OF_LINKS(oBrowser)
   BrowserDoc=oBrowser.Document
   links=BrowserDoc.links
   numberofLinks = Links.Length
   numberoflinks=numberoflinks-1
   ObjectClose(BrowserDoc)
   ObjectClose(links)
   Return numberoflinks
#EndFunction

#DefineFunction GET_ANCHORS(oBrowser)
   list=""
   BrowserDoc=oBrowser.Document
   anchors = browserdoc.anchors
   numberofAnchors = anchors.length
   numberofAnchors = anchors.length - 1
   For x = 0 To numberofAnchors
           thisanchor = browserdoc.anchors(x)
           list=ItemInsert(thisanchor.name,-1,list,@TAB)
   Next
   ObjectClose(BrowserDoc)
   Return list
#EndFunction

#DefineFunction GET_IMAGES(oBrowser)
   list=""
   BrowserDoc=oBrowser.Document
   Images = BrowserDoc.Images
   numberofImages = Images.Length
   numberofImages = Images.Length - 1
   For x = 0 To numberofImages
           Images = BrowserDoc.Images(x)
           list=ItemInsert(Images.src,-1,list,@TAB)
   Next
   ObjectClose(BrowserDoc)
   Return list
#EndFunction

#DefineFunction GET_USER_AGENT(oBrowser)
   oIExplorer=oBrowser.Document
   objDoc=oIExplorer.Document
   objScript = objDoc.Script
   objNavigator =  objScript.Navigator
   ver = objNavigator.appVersion
   minver = objNavigator.appMinorVersion
   useragent = objNavigator.UserAgent
   Message(Ver,useragent)
#EndFunction


#DefineFunction PRINT_PREV(oBrowser)
;visualiza la vista preliminar de la página
; constants for the ExecWB() method
OLECMDID_NEW                    = 2
OLECMDID_SAVE                   = 3
OLECMDID_SAVEAS                 = 4
OLECMDID_SAVECOPYAS             = 5
OLECMDID_PRINT                  = 6
OLECMDID_PRINTPREVIEW           = 7
OLECMDID_PAGESETUP              = 8
OLECMDID_SPELL                  = 9
OLECMDID_PROPERTIES             = 10
OLECMDID_CUT                    = 11
OLECMDID_COPY                   = 12
OLECMDID_PASTE                  = 13
OLECMDID_PASTESPECIAL           = 14
OLECMDID_UNDO                   = 15
OLECMDID_REDO                   = 16
OLECMDID_SELECTALL              = 17
OLECMDID_CLEARSELECTION         = 18
OLECMDID_ZOOM                   = 19
OLECMDID_GETZOOMRANGE           = 20
OLECMDID_UPDATECOMMANDS         = 21
OLECMDID_REFRESH                = 22
OLECMDID_STOP                   = 23
OLECMDID_HIDETOOLBARS           = 24
OLECMDID_SETPROGRESSMAX         = 25
OLECMDID_SETPROGRESSPOS         = 26
OLECMDID_SETPROGRESSTEXT        = 27
OLECMDID_SETTITLE               = 28
OLECMDID_SETDOWNLOADSTATE       = 29
OLECMDID_STOPDOWNLOAD           = 30
OLECMDID_ONTOOLBARACTIVATED     = 31
OLECMDID_FIND                   = 32
OLECMDID_DELETE                 = 33
OLECMDID_HTTPEQUIV              = 34
OLECMDID_HTTPEQUIV_DONE         = 35
OLECMDID_ENABLE_INTERACTION     = 36
OLECMDID_ONUNLOAD               = 37
OLECMDID_PROPERTYBAG2           = 38
OLECMDID_PREREFRESH             = 39

null                            = ObjectType("NULL", "")
BoxOpen("Preparing Print Preview", "Please Wait...")
oBrowser.ExecWB(OLECMDID_PRINTPREVIEW, 0, null, null )
BoxShut()
#EndFunction

Article ID:   W16136

File Created: 2004:03:30:15:42:58

Last Updated: 2004:03:30:15:42:58