|
|
|
|
|
|
|
|
Dicas
|
|
|
Visual Basic (ActiveX/Controles/DLL)
|
|
 |
Título da Dica: restringir um site da internet com "palavras chaves"
|
 |
|
|
|
Postada em 5/4/2006 por Geronimo
1º Coloque em um form um comandButton e um list:
' 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
|
|
|
|
|
