Titulo del internet explorer

[5v5]

Buen dia ...

Mediante codigo como puedo detectar el titulo de la ventana del internet explorer completa.... por ejemplo;


Foros de Web - Crear Nuevo Tema

Gracias se los voy a agradecer...

[David]

Eso es realmente difícil ya que puede existir varias ventanas de Internet Explorer, la única ayuda que te puedo dar es para una ventana:
Usa FindWindow con el Class IEFrame y luego esta función para saber su Título:
Private Function WindowTitle(ByVal hwnd As Long) As String
'Devuelve el título de una ventana, según el hWnd indicado
'
Dim sTitulo As String
Dim lenTitulo As Long
Dim ret As Long

'Leer la longitud del título de la ventana
lenTitulo = GetWindowTextLength(hwnd)
If lenTitulo > 0 Then
lenTitulo = lenTitulo + 1
sTitulo = String$(lenTitulo, 0)
'Leer el título de la ventana
ret = GetWindowText(hwnd, sTitulo, lenTitulo)
WindowTitle = Left$(sTitulo, ret)
End If
End Function

Ojo:
GetWindowTextLenght y GetWindowText son llamadas API

[5v5]

muchas gracias

[5v5]

perdon nuevamente,

haber si me puedes ayudar, ya logre hacer lo anterior, muchas gracias,
bueno, pero ahora como detecto la direccion del internet explorer, por ejemplo

http://www.forosdelweb.com/f69/titulo-del-internet-explorer-297229/

espero no molestar con mis preguntas....gracias por su atencion

[David]

Lo siento pero no tengo el código para hacerlo:
Ya que según tengo entendido la barra de direcciones es más o menos como un TextBox (no tienen Caption, sino Text) por lo que no podrás leerlo con la función que te pasé hace rato.
Pero voy a intentarlo con otra función y si consigo te aviso.

[5v5]

ok muchas gracias David el Grande, espero y no te quite mucho el tiempo...