Automate IE via VB - Change focus of object.

[cbanks]

Hi, im using VB to automate IE and its only my 3rd time. The website im trying to automate populates another IE window and I cant figure out how to change the focus of the automation to the new window? Any ideas?

[debasisdas]

can you please pass few more details what exactly you are trying to do .

[cbanks]

can you please pass few more details what exactly you are trying to do .

im using the code below to advance to a certain webpage. and once i get to that webpage i select an option. When i select that option a new window appears. I need to work with that new window, but be able to go toggle back to the other window when neccessary. When i try my code it never performs the actions i am asking on the new object. My code is right if i could just get it to recognize the new window and work on it.

[PHP
Set ie = CreateObject("InternetExplorer.application")
ie.Visible = True
ie.navigate ("Secure Info")
Set doc = ie.document
Set ctl = doc.getElementById("property(txtFormattedPolicy)")

ctl.Value = ""
ie.document.all.Item("btnRunSearch").Click **New window pops up here.

[/PHP]

[WinblowsME]

What is the URL to the popup window? Navigate to the URL using the browser object.

[cbanks]

The url changes constantly. It depends on what option i click. Is there another way besides navigating the original object to the new windows url?

[WinblowsME]

What if you create a new object that navigates to the popup URL? What exactly are you trying to automate?

[cbanks]

Im trying to automate my companies internet based system. The new url depends on alot of different information. Policy, username, client name.. etc...

[WinblowsME]

Check out Ken's last post at the following link.

http://www.vbaexpress.com/forum/printthread.php?t=1058

' Tools -> References -> Microsoft Internet Controls
 
Sub Test()
   ' Dim IE As Object
   Dim sws As SHDocVw.ShellWindows
   Dim i As Integer
 
   Set sws = New SHDocVw.ShellWindows
 
   For i = 0 To sws.count - 1
      Debug.Print (sws.item(i).LocationURL)
      ' Find the URL you want and set the IE object
      ' Set IE = sws.Item(i).Document
   Next i
End Sub

[WinblowsME]

Open up a few IE windows, make sure one of the URL's is set to http://www.google.com and run the code.

' Tools -> References -> Microsoft Internet Controls
 
Sub Test()
   Dim IE As Object
   Dim sws As SHDocVw.ShellWindows
   Dim i As Integer
 
   Set sws = New SHDocVw.ShellWindows
 
   For i = 0 To sws.count - 1
      If sws.item(i).LocationURL = "http://www.google.com/" Then
         Set IE = sws.item(i).Document
         Exit For
      End If
   Next i
 
   IE.All("q").Value = "Diablo II"
   IE.All("btnG").Click
 
   Call Wait(IE)
End Sub
 
Private Sub Wait(IE As Object)
   While IE.ReadyState <> "complete"
      DoEvents
   Wend
End Sub

[cbanks]

thank you. i believe i can make this work. how do i select a hyperlink once im on the page?

javascript:CSWCVC_linkChangePolicy