vb.net - VB.NET/VB6 Process.GetProcessesByName("process").Length | 替代方案，对于 VB6？

Question

我试图为此寻找一段时间，但找不到。

有没有简单的方法来检查 VB6 中的进程计数？

在 vb.net 中它很简单，例如 If Process.GetProcessesByName("testprocess").Length < 2 Then... 等。

寻找简短而简单的东西。

希望有人知道一个简单而简短的方法:)

Answer 1

WMI 可以提供帮助；

Dim objWMIService As Object, items As Object, item As Object, count As Long

Set objWMIService = GetObject("winmgmts:\\.\root\CIMV2")
Set items = objWMIService.ExecQuery("SELECT * FROM Win32_Process WHERE Name = 'chrome.exe'", , 32)
For Each item In items
    '// cant count so loop
    count = count + 1
Next

MsgBox count & " instances"