USUÁRIO:      SENHA:        SALVAR LOGIN ?    Adicione o VBWEB na sua lista de favoritos   Fale conosco 

 

  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
 


CyberWEB Network Ltda.    © Copyright 2000-2024   -   Todos os direitos reservados.
Powered by HostingZone - A melhor hospedagem para seu site
Topo da página