|
|
|
|
|
|
|
|
Dicas
|
|
|
Visual Basic (ActiveX/Controles/DLL)
|
|
 |
Título da Dica: obter o conteúdo da barra de título e do combo de url do internet explorer via código
|
 |
|
|
|
Postada em 5/4/2006 por Geronimo
Basta voce colocar um list e um botão no seu form e rodar o código.
' Faça referência ao MS Internet Controls
Sub InfoIEWindows(LST As Control)
Dim SWS As New SHDocVw.ShellWindows
Dim IE As New SHDocVw.InternetExplorer
LST.Clear
For Each IE In SWS
' O ShellWindows pega também as janelas do Windows Explorer,
' portanto separe-as das do IE
If LCase(Right(IE.FullName, 12)) = "iexplore.exe" Then
LST.AddItem IE.hWnd ' Handle
LST.AddItem IE.LocationURL ' URL
LST.AddItem IE.Document.Title ' Titulo
LST.AddItem "-------------------------------"
End If
Next IE
End Sub
Private Sub Command1_Click()
InfoIEWindows List1
End Sub
Obs.:
fazer a referência ao MS Internet control
|
|
|
|
|
