[VB.NET] Verificare se uno o più processi sono bloccati e terminarli

[meronet]

ciao a tutti
come faccio a verificare se un applicazione si e bloccata
ed a questo punto chiuderla !!!


ad.esempio
quando si blocca il word poi si va su task manager
con control alt canc e la si chiude

[oregon]

Ma cosa c'entra questo con la programmazione?

In ogni caso, devi usare sempre il task manager ...

[MItaly]

Imports System.Diagnostics
'...
Dim p As Process = p.GetProcessesByName("nomeprocesso.exe")(0) 'nomeprocesso.exe è il nome del processo che vuoi controllare
If Not p.Responding Then p.Kill()

Se invece non vuoi controllare un processo in particolare ma tutti i processi:

Imports System.Diagnostics
'...
For Each p As Process In Process.GetProcesses()
    If Not p.Responding Then p.Kill()
Next

.

[meronet]

mi da errore

Imports System.Diagnostics
'...
Dim p As Process = p.GetProcessesByName("nomeprocesso.exe")(0) 'nomeprocesso.exe è il nome del processo che vuoi controllare
If Not p.Responding Then p.Kill()




mentre se sostituico p con process va.....

Dim p As Process = process.GetProcessesByName("nomeprocesso.exe")(0) 'nomeprocesso.exe è il nome del processo che vuoi controllare
If Not p.Responding Then p.Kill()


è giusto !!!!

[MItaly]

Hai ragione, mi ero confuso.

[meronet]

ti ringrazio....

[meronet]

scusa un altra cosa

se il programma e chiuso

ed io eseguo il codice
che controlla se il programma e bloccato
cosa succede !!!!

[MItaly]

Credo che venga sollevata una NullReferenceException. Comunque basta fare una piccola modifica...

Dim p As Process = process.GetProcessesByName("nomeprocesso.exe")(0) 'nomeprocesso.exe è il nome del processo che vuoi controllare
If p Is Nothing Then
    'Il processo non è in esecuzione. Inserisci qui il codice per gestire questa situazione
Else
    If Not p.Responding Then p.Kill()
End If

[meronet]

provato e mi si impalla nel primo rigo
mi dice:
Indice oltre i limiti della matrice.

mi da valore di p ... nothing

[MItaly]

Dim p() As Process = process.GetProcessesByName("nomeprocesso.exe") 'nomeprocesso.exe è il nome del processo che vuoi controllare
If p Is Nothing Then
    'Il processo non è in esecuzione. Inserisci qui il codice per gestire questa situazione
Else
    If Not p(0).Responding Then p(0).Kill()
End If