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"