Como assim ?
está falando do Internet Explorer ?
se for...
aqui está o código:
'Faça referência ao MS Internet Controls
'Adicione um listbox a sua aplicação e cole este código
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 Sublick()
InfoIEWindows List1
End Sub
Créditos: LARBACK
--edited--
t++
Marcus Vinícius
