VB 如何检测一个程序是否在运行中？

Private

Declare

Function

FindWindow

Lib

"user32"

Alias

"FindWindowA"

(ByVal

lpClassName

As

String,

ByVal

lpWindowName

As

String)

As

Long

Private

Sub

Command5_Click()

Dim

lHwnd

As

Long

lHwnd

=

FindWindow(vbNullString,

"程序的Title或Caption")

If

lHwnd

<>

0

Then

MsgBox

"程序正在运行！"

End

If

End

Sub

向它发送指令：

AppActivate

"程序的Title或Caption"

SendKeys

"指令"

要启动程序：

Call

Shell("完整路径和程序名称.exe")

Private Function CheckExeIsRun(exeName As String) As Boolean

On Error GoTo Err

Dim WMI

Dim Obj

Dim Objs

CheckExeIsRun = False

Set WMI = GetObject("WinMgmts:")

Set Objs = WMI.InstancesOf("Win32_Process")

For Each Obj In Objs

If (InStr(UCase(exeName), UCase(Obj.Description)) <>0) Then

CheckExeIsRun = True

If Not Objs Is Nothing Then Set Objs = Nothing

If Not WMI Is Nothing Then Set WMI = Nothing

Exit Function

End If

Next

If Not Objs Is Nothing Then Set Objs = Nothing

If Not WMI Is Nothing Then Set WMI = Nothing

Exit Function

Err:

If Not Objs Is Nothing Then Set Objs = Nothing

If Not WMI Is Nothing Then Set WMI = Nothing

End Function

'测试代码

Private Sub Command1_Click()

If CheckExeIsRun("A.exe") Then

MsgBox "运行了啊"

Else

MsgBox "没有运行"

End If

End Sub