explorer error

[Pouncer]

Shell "explorer http://www.vbforums.com/showthread.php?t=365091"

says the path 365091 doesnt exist..

and also is it possible to autonavigate explorers like this (like you can do using the webbrowser component)

i can remember someone said to me

'to communicate witht yhose windows, you'll need to send window messages with API'

is this true and has anyone got any more information like this?

[eranfox]

Hello Pouncer,
try this:
Shell "D:\Program Files\Internet Explorer\IEXPLORE.EXE http://www.vbforums.com/showthread.php?t=365091"

the path of my Internet explorer is D:\Program Files\Internet Explorer
so yo can should change it to your path.
it will work!!!

Best Regards,
ERAN

[Pouncer]

thanks and also can someone give me any more information on

to communicate witht yhose windows, you'll need to send window messages with API'

[Static]

add reference to MS internet control

in the general declarations section (All the way at the top)
put:

Dim WithEvents IE as InternetExplorer

then in your click event (or wherever you want to fire it)

Set IE = New InternetExplorer
IE.Visible = true
IE.Navigate "http://www.vbforums.com/showthread.php?t=365091"

now.. also.. in the left dropdownbox in the code window (Objects)
select IE.. you can now tap all the events for IE like BeforeNavigate, DocumentComplete, etc...

[Pouncer]

hey static, thanks for the post dude, very nice.

so you can do all the events which could be done wioth the webbrowser?

this is brilliant!!!!

i will start this!!

[Pouncer]

hey but like before where i had a loop and set the wb to index 0, can i open up 3 IE's like that tot he same page?

[Static]

here is an example I toyed with to control multiple IE's

Dim WithEvents IE As InternetExplorer
Dim IES() As InternetExplorer
Private Sub Form_Load()
    ReDim IES(0)
    Set IE = New InternetExplorer
    Set IES(0) = IE
    IES(0).Navigate "www.google.com"
    IES(0).Visible = True
    
End Sub
 
Private Sub IE_DocumentComplete(ByVal pDisp As Object, URL As Variant)
    For x = 0 To UBound(IES)
        If (pDisp Is IES(x).Application) Then
            Debug.Print "IE #" & x
            If UBound(IES) = 4 Then Exit Sub 'added this so it stops at 5 instances
            Add_New_IE
        End If
    Next
    
    
End Sub
 
Private Sub Add_New_IE()
    ReDim Preserve IES(UBound(IES) + 1)
    Set IE = New InternetExplorer
    Set IES(UBound(IES)) = IE
    IES(UBound(IES)).Navigate "www.google.com"
    IES(UBound(IES)).Visible = True
End Sub

[Pouncer]

wow this is very nice thanks man!!! but i got a problem, this doesnt work like it works with webbrowsers.

IE.Document.Forms(0).Item(2).Value = "hello!!"

for e.g., thats the edit box on the webpage, like in google , it would work with the webbrowser like

wb.Document.Forms(0).Item(2).Value = "hello!!"

but not working with IE, any ideas why?

[dglienna]

You need to use this component Microsoft HTML Object Library

[Static]

actually you dont dave..

but you need to hit the right "IE".. remember you have multiple IE's and each one is set to an IES() ...
IES(0), IES(1)

IES(0).Document.Forms(0).Item(2).Value = "hello!!"
or
IES(1).Document.Forms(0).Item(2).Value = "hello!!"


the Object library is only needed if you want to set variables to parts of the page..

Like: Dim HTML as HTMLDocument

[Pouncer]

i tried it but soemthing like this doesnt work

Set hInp = IE.getElementById("i0116")
hInp.Value = "hello!!"

[Pouncer]

actually you dont dave..

but you need to hit the right "IE".. remember you have multiple IE's and each one is set to an IES() ...
IES(0), IES(1)

IES(0).Document.Forms(0).Item(2).Value = "hello!!"
or
IES(1).Document.Forms(0).Item(2).Value = "hello!!"


the Object library is only needed if you want to set variables to parts of the page..

Like: Dim HTML as HTMLDocument

thanks for the reply, at the moment, i only testing with 1 IE, and it doesnt work

* i did a test:

wb.Document.Forms(0).Item(2).Value = "hi" - works
IE.Document.Forms(0).Item(2).Value = "hi" - doesnt work

[Static]

so u just have the single IE declare....

the webbrowser control is IE so it should work the same
tested and works:

Dim WithEvents IE As InternetExplorer
 
Private Sub Form_Load()
Set IE = New InternetExplorer
IE.Navigate "www.google.com"
End Sub
 
Private Sub IE_DocumentComplete(ByVal pDisp As Object, URL As Variant)
If (pDisp Is IE.Application) Then
    IE.Document.Forms(0).q.Value = "hello" 'q is the real NAME from the source
    'tested..works fine
End If
End Sub

[Pouncer]

thank you very much that works, but like you checked the source for the 'q' part, so stuff like Item(1) Item(2) wont work with IE's? So will i have to check the source for every textbox/button i want to click?

and also something VERY weird is happening, you must see this for yourself!!

Private Sub IE_DocumentComplete(ByVal pDisp As Object, URL As Variant)
If (pDisp Is IE.Application) Then
    IE.Document.Forms(0).q.Value = "hello" 'q is the real NAME from the source
    'tested..works fine
    
    IE.Document.Forms(0).btnG.Click
End If
End Sub

when i add the googlesearch button click the browser keeps flickering likes its auto refreshing or something

[Pouncer]

actually never mind, it does work, even the Item(1) etc, im gona try your loop thing also too. thanks for all help!!

[Pouncer]

anyone know wy this give me run time error:

Dim WithEvents IE As InternetExplorer
Dim IES() As InternetExplorer
Private Sub Form_Load()
    ReDim IES(0)
    Set IE = New InternetExplorer
    Set IES(0) = IE
    IES(0).Navigate "www.google.com"
    IES(0).Visible = True
    
End Sub
 
Private Sub IE_DocumentComplete(ByVal pDisp As Object, URL As Variant)
    For x = 0 To UBound(IES)
        If (pDisp Is IES(x).Application) Then
            Debug.Print "IE #" & x
            If UBound(IES) = 2 Then Exit Sub 'added this so it stops at 5 instances
            Add_New_IE
        End If
    Next
    
    If (URL = "http://www.google.co.uk/") Then
        IES(x).Document.Forms(0).q.Value = x
    End If
    
End Sub
 
Private Sub Add_New_IE()
    ReDim Preserve IES(UBound(IES) + 1)
    Set IE = New InternetExplorer
    Set IES(UBound(IES)) = IE
    IES(UBound(IES)).Navigate "www.google.com"
    IES(UBound(IES)).Visible = True
End Sub

im trying to put the numbers in the google edit box so i can tell it works!!
its giving a urn time error on:
IES(x).Document.Forms(0).q.Value = x

[eranfox]

Hello Pouncer,
I didnt get any run time error but if you want the numbers in the edit boxes
change the code like this:

Private Sub Add_New_IE()
    ReDim Preserve IES(UBound(IES) + 1)
    Set IE = New InternetExplorer
    Set IES(UBound(IES)) = IE
    IES(UBound(IES)).Navigate "[B][COLOR=Blue]www.google.co.uk[/COLOR][/B]"
    IES(UBound(IES)).Visible = True
End Sub

Best Regards,
ERAN

[Static]

Pouncer.. IM'd you with the solution