Question

vb 检测进程是否存在

之前找的代码会导致内存占用大 有没有占内存小的代码
显示占用内存不大 但是都会不断吃缓存

Answer 1

调用方法:
if checkexeisrun("VB6.EXE") then msgbox "存在"

'检查进程是否运行，exeName 参数是要检查的进程 exe 名字，比如 VB6.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
占用内存约7M，不知道算不算大