PEGAR A URL ATUAL NO GOOGLE CHROME VIA VB6

MARQUINHOS 17/03/2011 16:36:05
#368305

Boa tarde pessoal,

Desenvolvi uma aplicação em VB6 que captura a Url do browser. Ela está funcionando perfeitamente no Internet Explorer e no Firefox. Gostaria de saber como faço para capturar a Url no Google Chrome. Alguém poderia me ajudar???

Código para captura no IE e no Firefox:

Function CapturarURL(Navegador As String) As Control
On Error Resume Next

Inicial.Text1 = [Ô][Ô]
Set CapturarURL = Inicial.Text1

Select Case Navegador

Case Is = [Ô]Mozilla Firefox[Ô]

CapturarURL.LinkTopic = [Ô]Firefox|WWW_GetWindowInfo[Ô]
CapturarURL.LinkItem = &HFFFF
CapturarURL.LinkMode = 2
CapturarURL.LinkRequest
CapturarURL = Mid(CapturarURL, 1, InStr(1, CapturarURL, [Ô],[Ô], vbTextCompare) - 1)

Case Is = [Ô]Windows Internet Explorer[Ô]
CapturarURL.LinkTopic = [Ô]IExplore|WWW_GetWindowInfo[Ô]
CapturarURL.LinkItem = &HFFFF
CapturarURL.LinkMode = 2
CapturarURL.LinkRequest
CapturarURL = Mid(CapturarURL, 1, InStr(1, CapturarURL, [Ô],[Ô], vbTextCompare) - 1)

End Select

End Function:

Atenciosamente,

Marquinhos