[已解决]求助VBS每隔1分钟查找一下给定的进程名在不在。

mzzyb

求一个每隔1分钟查找一下给定的进程名在不在。（指定进程有没有运行）。如果有在运行，过1分继续查找指定进程在不在，如果指定进程不在，执行代码（这个代码我已经写好了）。退出vbs
求大佬帮忙写一个。

FenoX

1. 
   
2. [查找进程间隔时间.vbs]
   
3. Option Explicit
   
4. Dim a,b
   
5. a=inputbox ("输入要查找的进程名")
   
6. b=inputbox ("输入间隔时间:(单位:毫秒)")
   
7. Dim processName
   
8. processName = a  ' 要查找的进程名
   
9. 
   
10. Do
    
11.     If CheckProcess(processName) Then
    
12.         WScript.Echo "进程 " & processName & " 正在运行"
    
13.     Else
    
14.         WScript.Echo "进程 " & processName & " 未找到"
    
15.     End If
    
16. 
    
17.    
    
18.     WScript.Sleep b
    
19. Loop
    
20. 
    
21. Function CheckProcess(processName)
    
22.     Dim objWMIService, colProcessList, objProcess
    
23.     Dim found
    
24.     found = False
    
25.    
    
26.     Set objWMIService = GetObject("winmgmts:\\.\root\CIMV2")
    
27.     Set colProcessList = objWMIService.ExecQuery("SELECT * FROM Win32_Process WHERE Name='" & processName & "'")
    
28. 
    
29.     For Each objProcess in colProcessList
    
30.         found = True
    
31.         Exit For
    
32.     Next
    
33.    
    
34.     CheckProcess = found
    
35. End Function
    
36. 
    

复制代码

FenoX

查找指定时间,运行文件后退出:

1. 
   
2. Option Explicit
   
3. 
   
4. Dim processName
   
5. processName = "awa.exe"  ' 要查找的进程名
   
6. 
   
7. Do
   
8.     If CheckProcess(processName) Then
   
9.         WScript.Echo "进程 " & processName & " 正在运行"
   
10.     Else
    
11.         WScript.Echo "进程 " & processName & " 未找到"
    
12.         
    
13.         ' 执行你已经写好的代码
    
14.         Call YourCustomCode()
    
15.         
    
16.         Exit Do '
    
17.     End If
    
18. 
    
19.     ' 等待1分钟
    
20.     WScript.Sleep 60000
    
21. Loop
    
22. 
    
23. Sub YourCustomCode()
    
24.    
    
25. End Sub
    
26. 
    
27. Function CheckProcess(processName)
    
28.     Dim objWMIService, colProcessList, objProcess
    
29.     Dim found
    
30.     found = False
    
31.    
    
32.     Set objWMIService = GetObject("winmgmts:\\.\root\CIMV2")
    
33.     Set colProcessList = objWMIService.ExecQuery("SELECT * FROM Win32_Process WHERE Name='" & processName & "'")
    
34. 
    
35.     For Each objProcess in colProcessList
    
36.         found = True
    
37.         Exit For
    
38.     Next
    
39.    
    
40.     CheckProcess = found
    
41. End Function
    
42. 
    

复制代码

FenoX

好像写错了，留给大家改吧

mzzyb

好像写错了，留给大家改吧
FenoX 发表于 2023-7-21 10:04

    你的函数CheckProcess返回值那块（39）行可能错了吧，我的理解应该return found
我也是初学者，我没见过这种写法，瞎猜的

jyswjjgdwtdtj

回复 5# mzzyb


    没错 found是一个普通变量 vbs里返回不是用return