[VB6] Leggere ID in pagina HTML

[giustavalla]

Scenario:
Un utente naviga in un sito dinamico da me realizzato ed accede ad una pagina che visualizza un record di un database; un campo di questo database è un ID.
Vorrei, tramite un programma in VB6, conoscere questo ID.

Una possibile via sarebbe quella di fare il parsing del sorgente HTML di un componente VB6 WebBrowser inserito (e opportunamente nascosto) in un form del programma VB6. Come fare però a attivare l'evento Navigate del WebBrowser, visto che il programma VB6 non "conosce" in quale URL il browser sta operando ?
Tutto quindi - in questa ipotesi - si riduce a: come sapere quale URL è attivo in FF, IE, ecc.
Desidero rimarcare che tutto deve essere automatico, non è possibile fare un copia e incolla del contenuto della barra degli indirizzi del browser (FF, IE, ecc.) nel WebBrowser del programma VB6 e schiacciare un pulsante.
Altrimenti sarebbe troppo facile ;-)
Altri approcci ?
Grazie per l'attenzione.

[giustavalla]

La seguente funzione è valida SOLO con IE

Sub ListURLS()
Dim objShellWindows As SHDocVw.ShellWindows
Dim objWindow As Object
Set objShellWindows = New SHDocVw.ShellWindows
Stop
'ignore errors when accessing the document property
On Error Resume Next
'loop over all Shell-Windows
For Each objWindow In objShellWindows
'if the document is of type HTMLDocument, it is an IE window
If TypeName(objWindow.Document) = "HTMLDocument" Then
MsgBox objWindow.Document.URL, vbInformation, "INFO"
End If
Next objWindow
Set objShellWindows = Nothing
End Sub

Sono al 20% della risoluzione del mio problema (20% corrisponde molto approssimativamente alla percentuale di uso di Internet Explorer). Ed il restante 80% come lo affronto ? Firefox, Chrome, Opera, ecc.