El problema no es saber url de internet explore aqui te dejo el programa para ello, el problema es saber la url de cualquier navegador como Mozilla por ejemplo o de cualquier otro navegador.
Si tienen algun programa de esto envienmelo a mail
[email protected]
Nota ver este enlace:
http://www.recursosvisualbasic.com.ar/htm/trucos-codigofuente-visual-basic/249-listar-informacion-de-internet-explorer.htm
Agrega estos controles
El ejemplo necesita un control ListView
un control CommandButton
y la referencia a Microsoft Internet controls desde el menú Proyecto > Referencias
y este es el codigo
Option Explicit
Private Sub Command1_Click()
Dim Item As ListItem
Dim shell_windows As SHDocVw.ShellWindows
Dim o_internet_Explorer As InternetExplorer
Set shell_windows = New SHDocVw.ShellWindows
ListView1.ListItems.Clear
'Recorre las ventanas en la colección
For Each o_internet_Explorer In shell_windows
' Caption de la ventana
Set Item = ListView1.ListItems.Add(, , o_internet_Explorer.LocationName)
'Agrega la información de las ventanas del internet explorer _
y el explorer.exe
' Url
Item.SubItems(1) = o_internet_Explorer.LocationURL
' Handle
Item.SubItems(2) = o_internet_Explorer.hWnd
' Path de la aplicación (expolorer o iexplorer)
Item.SubItems(3) = o_internet_Explorer.FullName
Next
End Sub
Private Sub Form_Load()
With ListView1
' Encabezados de columna
.ColumnHeaders.Add , , " Caption de la ventana "
.ColumnHeaders.Add , , " URL "
.ColumnHeaders.Add , , " HWND "
.ColumnHeaders.Add , , " Path de la aplicación "
' Vista de reporte
.View = lvwReport
End With
Command1.Caption = "-> Obtener ventanas "
End Sub
Private Sub Form_Resize()
On Local Error Resume Next
ListView1.Move 0, 0, ScaleWidth, ScaleHeight - Command1.Height - 100
Command1.Move Me.ScaleWidth - Command1.Width - 100, _
ListView1.Top + ListView1.Height + 50
End Sub