Como detectar si responde un proceso

[demoniox12]

Buenas,

Estuve buscando bastante en google de como detectar si un proceso esta respondiendo pero no encontre para vb6 sino que para vb net.. dejo el codigo para ver si ayuda de algo

Código (vbnet) [Seleccionar] Expandir

procs = Process.GetProcessesByName("IEXPLORE")

    Try
        If procs(0).Responding = True Then
            MessageBox.Show("IEXPLORE está respondiendo")
        Else
            MessageBox.Show("IEXPLORE no está respondiendo")
        End If
    Catch
         MessageBox.Show("IEXPLORE no está ejecutándose")
    End Try

Ahora el tema es que necesito hacerlo en VB6.. alguien me podria dar una idea de como poder hacerlo?

Muchas gracias.
Saludos

[cobein]

Hay un API para verificar eso, en este momento no recuerdo el nombre pero se que existe.

[demoniox12]

Acabo de encontrar un ejemplo que funciona a la perfeccion!

http://www.thescarms.com/vbasic/AppResponse.aspx

Ahi se los dejo por si alguien mas necesita...

Saludos!

[cobein]

Aca esta la API de la que hablaba

Private Declare Function IsHungAppWindow Lib "user32.dll" (ByVal hWnd As Long) As Long