Question

VB.net获取程序运行状态

是监控外部程序，比如 未响应状态

Answer 1

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim MyInfo As String = "系统正在运行的程序" + vbCrLf
Dim MyProcesses() As Process = Process.GetProcesses()
For Each MyProcess As Process In MyProcesses
If (MyProcess.MainWindowTitle.Length > 0) Then
MyInfo += MyProcess.MainWindowTitle + vbCrLf
End If
Next
Me.Label1.Text = MyInfo
End Sub

追问

请问针对单个程序呢，我是想监控单个程序的运行状态，（正常运行/未响应）

Answer 2

Sub GetPro()
Dim MyInfo As String
Dim MyProcesses() As Process = Process.GetProcesses()
For Each MyProcess As Process In MyProcesses
MyProcess.
If (MyProcess.MainWindowTitle.Length > 0) Then
MyInfo += MyProcess.MainWindowTitle + vbCrLf
End If
Next
End SUb
上面程序可以去取得目前正在运行的程序的标题，根据标题可判断除他的运行状态。

追问

还是不太清楚，能解释一下吗

MyProcess.

追答

myproscess 定义的 一个变量 类型是 process 是指Windows的进程一个类（class）。通过GetProcesses（）这个函数取得。该函数的功能就是取得当前正在运行的进程。