Se puede utilizando la función GetWindowText. Primero se busca en hWnd de la ventana (la lista desplegable) utilizando FindWindow y especificando el nombre de clase (no recuerdo bien cual era el nombre de la clase de la ventana).

Utiliza un visor de recursos para ver cual es el nombre de la clase de la ventana y asi poder utilizar este nombre en la llamada a FindWindow.

Saludos.

Hola a todo el foro...

Ya investigue y con un poco de ayuda consegui obtener la direccion url del internet explorer.

pero por su ayuda muchas gracias

hasta pronto

Te molestas en pedir ayuda pero no en escribir la solución.

Buen dia...bueno pues una disculpa por no colocar la respuesta...pero en fin...no es tan dificil...claro siempre y cuendo utilices internet explorer.....


Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
Private Declare Function FindWindowEx Lib "user32" Alias "FindWindowExA" (ByVal hWnd1 As Long, ByVal hWnd2 As Long, ByVal lpsz1 As String, ByVal lpsz2 As String) As Long
Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long
Const WM_GETTEXTLENGTH = &HE
Const WM_GETTEXT = &HD
Const WM_SETTEXT = &HC

Private Sub Form_Load()
Dim LongitudDireccion As Long    ' Longitud del texto
Dim TextoDireccion As String     ' Texto
   
            win = FindWindow("IEFrame", vbNullString)
                    If win <> 0 Then
                     
                     win = FindWindowEx(win, 0, "WorkerW", vbNullString)
                     win = FindWindowEx(win, 0, "ReBarWindow32", vbNullString)
                     win = FindWindowEx(win, 0, "ComboBoxEx32", vbNullString)
                     win = FindWindowEx(win, 0, "ComboBox", vbNullString)
                     win = FindWindowEx(win, 0, "Edit", vbNullString)
                     LongitudDireccion = SendMessage(win, WM_GETTEXTLENGTH, ByVal CLng(0), ByVal CLng(0)) + 1
                     TextoDireccion = Space$(LongitudDireccion)
                     a = SendMessage(win, WM_GETTEXT, ByVal LongitudDireccion, ByVal TextoDireccion)
                     MsgBox (TextoDireccion)
                     
                     End If
               
End Sub


bueno este es lo basico...me apoye de foros del web.....bueno creo que con esto pueden echar a volar su imaginacion....yo realize un programita para mi red (cliente servidor) con el que monitoreo que usuarios entran a internet y que paginas visitan y que titulo tienen...y llevo un registro, cime percato de paginas no autorizadas las cierreo desde mi pc...etc...son muchas cosas....claro que es mejor el control remoto......


bueno espero les sirva de algo.....haaaaaa y quiero agradecer a los del foro, que gracias a ellos nos sacan de algunas dudas.......viva la informatica y abajo la ortografia...jajaja soy pesimo....