如何获知某个进程未响应，并将其kill后重新启动该程序???

[zhw2ll]

如何判断某个进程状态是“未响应”，并得到其进程ID且将其kill后重新启动该程序???

请高手给个解决办法啊？

在线等....

[youlinga]

有点复杂

[myderek]

用process.Responding

[helloMac]

这是得到进程,打开和关闭进程的.
Public Function CheckAlive(ByVal proName As String) As Boolean
Dim temProc As Process
CheckAlive = True
processes = Process.GetProcessesByName(proName)
For i As Int16 = 0 To processes.Length
If processes(0).Responding Then

End If
Next
If processes.Length = 0 Then
Return False
End If

End Function
打开进程
Public Overloads Sub LaunchProc(ByVal docPath As String)
Dim myProcess As New Process
Try
myDocPath = docPath
myProcess.StartInfo.FileName = myDocPath
myProcess.StartInfo.WindowStyle = ProcessWindowStyle.Normal
myProcess.Start()
myProcess.WaitForInputIdle()
Catch ex As Exception
Throw New Exception("The file doesn't exist.")
End Try
End Sub

关闭进程
Public Overloads Sub CloseProcess(ByVal proID As Integer)
Dim tempProc As Process
Try
tempProc = Process.GetProcessById(proID)
tempProc.CloseMainWindow()
tempProc.WaitForExit()
Catch ex As System.NullReferenceException
Throw New Exception("No instances of " & proID & " running.")
End Try
End Sub

[helloMac]

添加引用:System.ServiceProcess
Imports System.Environment