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:  Utilizando o " FindWindow" para verificar se o seu SW está aberto
Postada em 2/4/2007 por ¨Hennyere¨      Clique aqui para enviar email para o autor  jhennyere@yahoo.com.br
Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long

Private Sub Command1_Click()
    Dim m_hWnd As Long
    m_hWnd = FindWindow(vbNullString, "Sem título - Bloco de notas")
    If m_hWnd > 0 Then
        MsgBox "O Bloco de notas está aberto"
        Else
        MsgBox "O Bloco de notas não está aberto"
        Exit Sub
    End If
End Sub

'Josefh Hennyere
 


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