【已解决】vbs检测进程

yyz219

1. 
   

复制代码

已经解决
'【有notepad2.exe进程--→运行"用Notepad3打开.vbs"】【无notepad2.exe进程--→运行"用Notepad2打开.vbs"】
ProcExist = "0"
Set objWMIProcess = GetObject("winmgmts:\\.\root\cimv2").ExecQuery("Select * From Win32_Process")
For Each objProcess In objWMIProcess
If objProcess.Name = "Notepad2.exe" Then  '【左边是需要检测的进程】
ProcExist = "1"
'【notepad2.exe进程存在】【用notepad3.exe打开文本】
CreateObject("WScript.Shell").Run "用Notepad3打开.vbs",0
WScript.Quit '【退出】
End If
Next
If ProcExist = "0" Then
'【notepad2.exe进程不存在】【用Notepad2打开打开文本】
CreateObject("WScript.Shell").Run "用Notepad2打开.vbs",0
WScript.Quit '【退出】
End If

*******************************************************************************
原来的问题：
00.vbs：

If IsProcess("qq.exe") =True Then

MessageBox"发现进程"

Else

MessageBox"没有发现进程"

End If

nmyh

网上找到了这个：



代码如下：

1. '参考：https://gist.github.com/tautomer/1644ceff1a42cb57f66faba39067c63e
   
2. 
   
3. 
   
4. Function IsProcessRunning(strProcess)
   
5.     Dim Process, strObject
   
6.     IsProcessRunning = False
   
7.     strObject = "winmgmts://."
   
8.     For Each Process in GetObject(strObject).InstancesOf("win32_process")
   
9.     If UCase(Process.name) = UCase(strProcess) Then
   
10.         IsProcessRunning = True
    
11.         Exit Function
    
12.     End If
    
13.     Next
    
14. End Function
    
15. 
    
16. 
    
17. If IsProcessRunning("qq.exe") Then
    
18.   wscript.echo "发现进程"
    
19. Else
    
20.   wscript.echo "没有发现进程"
    
21. End If
    

复制代码

另外，应该是：
msgbox "发现进程"
而不是：
MessageBox"发现进程"

yyz219

nmyh 发表于 2022-9-16 16:42
网上找到了这个：

解决了问题，非常感谢

就是代码有一点长，不知道能不能再精简

nmyh

yyz219 发表于 2022-9-16 20:10
解决了问题，非常感谢

就是代码有一点长，不知道能不能再精简

已经很精简了，一个是函数，一个是调用函数。

另外，vbs应该不自带“IsProcess()”函数，因为下面的代码运行后也是同样的报错：

1. If suibianshurude("qq.exe")=True Then
   
2.   msgbox "发现进程"
   
3. Else
   
4.   msgbox "没有发现进程"
   
5. End If
   

复制代码

IsProcess()应该是个作者自己取的函数名称，但是你的代码没有定义函数的代码内容，所以就没法运行。

yyz219

nmyh 发表于 2022-9-16 21:27
已经很精简了，一个是函数，一个是调用函数。

另外，vbs应该不自带“IsProcess()”函数，因为下面的代 ...

好的，非常感谢，辛苦了