Find a specific window and open a URL.

[Thief_]

I need to use an existing IE window which already has a specific url and
re-use that window for a new URL.

Example:

One open IE window has the following in its Address Bar:

http://www.vbcity.com/forums/search.asp?mode=doit

The window title is:

vbCity/DevCity.Net Forums :: Search for - search find window- Microsoft
Internet Explorer

I want to re-use this window to display a new URL. My code to find this
window is:

Friend Sub FindWindowHwnd( ByVal strTitle As String)
' Get the target's window handle.
Dim target_hwnd As Double = FindWindow(vbNu llString, strTitle & "*")
If (target_hwnd = 0) Then
MessageBox.Show ("Error finding target window handle")
Exit Sub
End If
MessageBox.Show (target_hwnd)
End Sub

I will call the window like this:

Call FindWindowHandl e.FindWindowHwn d("VBCity")

So how do I use the window's Hwnd to send it a new URL?

--
|
+-- Thief_
|

[Cor Ligthert [MVP]]

Thief,

Are you not busy on the client computer?

That is mostly done by JavaScript and very seldom with VBS.

I hope this helps,

Cor

[Thief_]

What are you talking about?? Who mentioned VBS- this is a VB.Net newsgroup!

--
|
+-- Thief_
|

"Cor Ligthert [MVP]" <no************ @planet.nl> wrote in message
news:uZ******** *****@TK2MSFTNG P11.phx.gbl...

Thief,

Are you not busy on the client computer?

That is mostly done by JavaScript and very seldom with VBS.

I hope this helps,

Cor

[Herfried K. Wagner [MVP]]

"Thief_" <th****@hotmail .com> schrieb:

I need to use an existing IE window which already has a specific url and
re-use that window for a new URL.

Add a reference to "Microsoft Internet Controls", then use the code below:

\\\
' Written by Herfried K. Wagner [MVP].
Public Function ReplaceInternet ExplorerUrl( _
ByVal OldUrl As String, _
ByVal NewUrl As String, _
Optional ByVal ReplaceFirstIns tanceOnly As Boolean = False _
) As Integer
Dim i As Integer
For Each IE As InternetExplore r In New ShellWindows
If IE.LocationURL = OldUrl Then
IE.Navigate(New Url)
i += 1
If ReplaceFirstIns tanceOnly Then
Exit For
End If
End If
Next IE
Return i
End Function
///

Usage:

\\\
MsgBox(ReplaceI nternetExplorer Url("http://www.google.de/",
"http://search.msn.com/"))
///

--
M S Herfried K. Wagner
M V P <URL:http://dotnet.mvps.org/>
V B <URL:http://classicvb.org/petition/>