VB.NET/VB6 Process.GetProcessesByName("process").Length | VB6的替代方法是什么？

Question

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

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

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

寻找一些简短而简单的东西。

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

- user2667719

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"

- Alex K.

---

嗯...我不是很擅长vb6编码，所以这对我并没有太大帮助。你能直接为这个提供一个例子吗？如果 Process.GetProcessesByName("testprocess").Length < 2 那么 MsgBox("There's less than two processes!")。 - user2667719

将 MsgBox count & " instances" 替换为 if (instances < 2) Then MsgBox "There's less than two processes!" - Alex K.

谢谢。现在我需要找到在哪里可以关闭它 :p - user2667719

如果您想从VB6关闭进程，请尝试Karl Peterson的这个链接。@user2667719 - MarkJ