VB.NET怎样判断一个应用程序是否在运行？

[xwylpsy]

VB.NET怎样判断一个应用程序是否在运行？
比如：怎样判断是否打开了IE浏览器？

[a854468521]

For Each Pro As Process In Process.GetProcesses '获得目前运行的进程
'判断已经运行的进程。
Next

[xwylpsy]

能不能说清楚点！！谢谢你！

[xwylpsy]

先谢谢大家！！我试一下

[xwylpsy]

是感谢大家！问题解决了

[my84211]

Dim pro As Process
For Each pro In Process.GetProcesses
If pro.ProcessName = "进程名称" Then
you can Do sth here
End If
Next

[wuxing1129]

楼上正解。检索每个进程名！
之前还看到另外一种办法，等我找到帖出

[lonelymoon9527]

模块中添加以下代码：

'检测指定进程是否运行
Function CheckApplicationIsRun(ByVal szExeFileName As String) As Boolean
On Error GoTo Err
Dim WMI
Dim Obj
Dim Objs
CheckApplicationIsRun = False
WMI = GetObject("WinMgmts:")
Objs = WMI.InstancesOf("Win32_Process")
For Each Obj In Objs
If InStr(UCase(szExeFileName), UCase(Obj.Description)) <> 0 Then
CheckApplicationIsRun = True
If Not Objs Is Nothing Then Objs = Nothing
If Not WMI Is Nothing Then WMI = Nothing
Exit Function
End If
Next
If Not Objs Is Nothing Then Objs = Nothing
If Not WMI Is Nothing Then WMI = Nothing
Exit Function
Err:
If Not Objs Is Nothing Then Objs = Nothing
If Not WMI Is Nothing Then WMI = Nothing
End Function

========================================
窗体按钮点击的事件：
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
If (CheckApplicationIsRun("123.exe")) Then '123.exe为判断的程序名，修改即可
MessageBox.Show("已经运行")
Else
MessageBox.Show("没有运行")
End If
End Sub