"InternetExplorer.Application" object example 1

Forums

My Profile

Inbox

Address Book

My Subscription

My Forums

"InternetExplorer.Application" object example 1

Logged in as: Guest

arrSession:exec spGetSession 2,16,61686

	Active Users: There are 0 members and 0 guests.
	Users viewing this topic: none

Printable Version

All Forums >> [Scripting] >> Post a VBScript >> "InternetExplorer.Application" object example 1
Do you like VisualBasicScript.com? Link to us and help spread the word about our forum. Thanks!

Page: [1]

Message

<< Older Topic Newer Topic >>

"InternetExplorer.Application" object example 1 - 6/21/2008 3:34:47 PM

X BiLe

Posts: 7
Score: 0
Joined: 6/18/2008
Status: offline

- i have a few friends that are unable to locate "InternetExplorer.Application" object examples
- this is a simple example of using the IE object to open a page while controlling the window properties.

'._.���`�._.���`�._.���`�._.���`�._.���`�._.���`�._.���`�._.���`�._.���`�._.���`�._.���`�._.���`�._.���`�._.���`�._.���`�._.���`�._.�'
'._.-[Auth:
'._.-[  X BiLe   
'._.-[Info:
'._.-[  this is an example of how to generate a IE window and navigate it from a single call
'._.-[Usage:
'._.-[  set ObjName = IEGenerate ("PageURL", Visible(True/False), windowX, WindowY, WinHeight, WinWidth, Toolbar(True/False), Statusbar(True/False))
'._.-[Example:  (IE will not appear until the page is fully loaded)
'  
'  set oIE = IEGenerate ("www.yahoo.com", False, "300", "400", "300", "300", false, false)
'    Do
'    Loop Until Not oIE.busy
'    oIE.Visible = True
'
'._.���`�._.���`�._.���`�._.���`�._.���`�._.���`�._.���`�._.���`�._.���`�._.���`�._.���`�._.���`�._.���`�._.���`�._.���`�._.���`�._.�'

Function IEGenerate(byval Location, byval Visible, byval x, byval y, byval height, byval width, byval toolbar, byval statusbar)
   on error resume next 'to handle errors generated by not inputing values, simply moves on to the next value
   Set oIE = CreateObject("InternetExplorer.Application")
       with oIE
           if location = "" then location = "about:blank" else
           .Navigate Location
           .Visible = Visible
           .Left = x
           .Top = y
           .Height = Height
           .Width = Width
           .ToolBar = ToolBar
           .StatusBar = StatusBar
       end with
   Set IEGenerate = oIE
end function

- if there are any questions let me know.
- i will start posting other examples of mine for anyone who is curious about the IE object usage
Cheers!

Post #: 1

RE: "InternetExplorer.Application" object exa... - 6/22/2008 1:34:47 PM

X BiLe

Posts: 7
Score: 0
Joined: 6/18/2008
Status: offline

so initally i thought i would take it step by step on the IE object stuff...
started to think, i just showed how to create a window and have it navigate. (not too useful by itself)

that being said, lets take a few jumps forward and attempt to automate a google search for starters.

in order to do this we will need to have a basic understanding of objects on a web page. (googles main page)
- hopefully everyone here is somewhat familure with HTML source to know what we are looking for/at.

assuming you are using the previous script (IEGenerate) all we need to do is add a few more functions to the vbs and then call them.

'._.-[ so this is the actual automated search call to search for spongebob
IEGoogleSearch("SpongeBob")

Sub IEGoogleSearch(byval Whut)

'._.-[ Generate the window
 set oIE = IEGenerate ("http://www.google.com/", false, "", "", "", "", true, false)

'._.-[ Input the search contents to the input object named 'q' with IEValueChange
   A = IEValueChange (oIE, "input", "q", whut)

'._.-[ Click on the input object named 'btnG' with IEElementClick
   A = IEElementClick (oIE, "input", "btnG")

'._.-[ Make the window visible once search is completed
   IEVisible oIE, True
end sub

'._.-[ this is how you Click on a IE element by name (very handy when automating sites)
function IEElementClick(byval oIE, byval EleType, byval EleName)

'._.-[ Wait For oIE to NOT be busy
   Do
   Loop Until Not oIE.busy

'._.-[ list all elements in the oIE object
   For Each HTMLEle In oIE.Document.getElementsByTagName(EleType)
           str = lcase(HTMLEle.getAttribute("name"))

'._.-[ if the name matches then click it!
           If str = lcase(EleName) Then
               HTMLEle.click
               IEElementClick = "True"
               exit function
           end if
   Next
   IEElementClick = "False"
end function

'._.-[ This function sends input to the value of element described
Function IEValueChange(byval oIE, byval EleType, byval EleName, byval Whut)

'._.-[ Wait For oIE to NOT be busy
   Do
   Loop Until Not oIE.busy

'._.-[ list all elements in the oIE object with the correct type
   For Each HTMLEle In oIE.Document.getElementsByTagName(EleType)
           str = lcase(HTMLEle.getAttribute("name"))

'._.-[ if the name matches then change the value!
           If str = lcase(EleName) Then
               HTMLEle.setAttribute "value", Whut
               IEValueChange = "True"
               exit function
           end if
   Next
   IEValueChange = "False"
end function

'._.-[ very simplistic call to change the oIE visible property after already set.
sub IEVisible(byval oIE, byval visible)

'._.-[ Wait For oIE to NOT be busy
   Do
   Loop Until Not oIE.busy

'._.-[ Change oIE visible property
   oIE.Visible = visible
end sub

ok so that all is kind of extensive, hope i noted well enough.
**also may want to know that the google object names were pulled directly from the page source(q and btnG)**

on a side note if you actually take the time to read the code you will note some small but important calls
- i have made sure that these functions are NOT case sensitive like javascript using LCASE calls
- i have also noted in the ability for error checking (returning a true or false value on functions)
- also if you wanted you could cut these up easily and add them together instead of making multiple functions and subs!

now using these you should have all you really need to automate web page logons as well, but incase not i will add some more handy functions/Subs soon...

next example (one of my favorites) i will post is more common for use with HTA's but i use in both VBS and HTA's and that is to generate a web page on the fly.

-X BiLE

(in reply to X BiLe)

Post #: 2

RE: "InternetExplorer.Application" object exa... - 6/24/2008 4:59:19 PM

X BiLe

Posts: 7
Score: 0
Joined: 6/18/2008
Status: offline

ok, so just as I did say here is how to create a HTML Page on the fly...

this is one of the most simplistic ideas ever made for gui format WITHOUT actually making a gui format, more common with HTA but it works with vbs great.

i am not sure if those of you who have attempted the previous code have noticed yet but the functions i have dropped here on the forum so far are basic web page design stuff,
most of which are commonly used in Javascript. if you have not attemped to learn or read any, you may want to consider it once you are comfortable with VBS at a reading understanding level at least.

PS:
- the functions shown previously have multiple uses, for instance the IEValueChange is able to modify the value property of almost any object you choose. try to read through the previous code and see what you can make sections do, you may find some uses you may not have thought of before and end up making some serious custom scripts.

(in reply to X BiLe)

Post #: 3

If you found our site useful please link to us <a href="http://www.visualbasicscript.com">VisualBasicScript.com</a>.

All Forums >> [Scripting] >> Post a VBScript >> "InternetExplorer.Application" object example 1

Page: [1]

Jump to:

New Messages	No New Messages
Hot Topic w/ New Messages	Hot Topic w/o New Messages
Locked w/ New Messages	Locked w/o New Messages

Post New Thread

Reply to Message

Post New Poll

Submit Vote

Delete My Own Post

Delete My Own Thread

Rate Posts