Tentei usar uma rotina aqui do site para que o VB aguardasse o término de execução de um programa externo (tipo calculadora) para depois continuar...

 

Mas funciona com todos os programas que tentei, menos com o que eu mais preciso.... Ele não funciona com o Kazaa. Eu queria saber quando uma pessoa fechasse o Kazaa (saisse mesmo) mas com essa rotina não deu certo. Os códigos logo após a chamada são executados sem antes o Kazaa ser encerrado.

 

Se alguem souber de alguma outra função eu agradeço

Bom, eu acho que posso te ajudar,

Tente o API FindWindow

Adicione em um modulo este código

 

Declare Function FindWindow Lib "user32" Alias _
"FindWindowA" (ByVal lpClassName As String, _
ByVal lpWindowName As String) As Long
Declare Function PostMessage Lib "user32" Alias _
"PostMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, _
ByVal wParam As Long, lParam As Any) As Long
Public Const WM_CLOSE = &H10

Crie um 'TIMER' e um 'LABEL' em seu projeto e adicione este código!

Private Sub Timer1_Timer()
Dim winHwnd As Long
Dim RetVal As Long
winHwnd = FindWindow(vbNullString, "Painel de Controle")
Debug.Print winHwnd
If winHwnd <> 0 Then
Label1.Caption = "Encontrado"
    If RetVal = 0 Then
    End If
    Else
    Label1.Caption = "Não encontrado"
End If
End Sub

O que este código faz ...
Ele verifica quando o PAINEL DE CONTROLE esta aberto ele avisa no LABEL

Tipo, você pode usar este código quando ele for encerrado para executar uma Ação.

Espero que este código possa te ajudar ao bastante.

Até mais,

Atenciosamente,
Marcus Vinícius

Se quiser entrar em contato comigo me envie um e-mail para Msmarcus@hotmail.com
Que em breve estarei entrando em contato contigo.