Saber la direccion URL del Internet Explorer

[stock]

SSSSSssiiiiiiiii C es chidisimo, hace 2 anios que no toco C pero fue mi primer lenguje que aprendi, de ahi ASM, PHP, JAVA, VB, JavaScript, ActionScript.......

el caso es aprender a programar, que luego que sepas podras agarrar cualquier lenguaje y aprenderlo sin tanto esfuerzo :)

[franklyn3001]

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