This is written in VB not VB.NET, but may help point you in the right direction:
Dim oShellWindows As SHDocVw.ShellWindows 'shdocvw.dll
Dim oWebBrowser As SHDocVw.WebBrowser
Dim lShellWindowIndex As Long
Set oShellWindows = New SHDocVw.ShellWindows
For lShellWindowIndex = oShellWindows.Count To 1 Step -1
Set oWebBrowser = oShellWindows(lShellWindowIndex - 1)
Debug.Print oWebBrowser.LocationURL
Next iShellWindowIndex
Good luck.
ewb
Précédent
Suivant
Répondre
Voir le fil de ce thread
Voir le fil de ce thread à partir de ce message seulement
Voir tous les messages de ce thread
Voir tous les messages de ce thread à partir de ce message seulement