VBS如何確定程序是否正在運行

Question

我需要一種方法來確定是否使用VBScript打開具有可見窗口的進程。

例如，當我關閉SolidWorks窗口時，SolidWorks.exe進程仍在運行。

我怎樣才能找出哪個是哪個？有什麼建議麼？

Answer 1

也許你可以使用命令行程序tasklist.exe找出右側窗口是否打開。

如果您運行tasklist /V /FI "IMAGENAME eq sldworks.exe"並找出您感興趣的流程與另一流程的區別，則可能會有效。

假設有一個特定的窗口標題你可以看看：

Dim pid = GetProcessId("sldworks.exe", "That window title") 
If pid > 0 Then 
    MsgBox "Yay we found it" 
End If 

其中GetProcessId()是這個

Function GetProcessId(imageName, windowTitle) 
    Dim currentUser, command, output, tasklist, tasks, i, cols 

    currentUser = CreateObject("Wscript.Network").UserName 

    command = "tasklist /V /FO csv" 
    command = command & " /FI ""USERNAME eq " + currentUser + """" 
    command = command & " /FI ""IMAGENAME eq " + imageName + """" 
    command = command & " /FI ""WINDOWTITLE eq " + windowTitle + """" 
    command = command & " /FI ""SESSIONNAME eq Console""" 
    ' add more or different filters, see tasklist /? 

    output = Trim(Shell(command)) 
    tasklist = Split(output, vbNewLine) 

    ' starting at 1 skips first line (it contains the column headings only) 
    For i = 1 To UBound(tasklist) - 1 
     cols = Split(tasklist(i), """,""") 
     ' a line is expected to have 9 columns (0-8) 
     If UBound(cols) = 8 Then 
      GetProcessId = Trim(cols(1)) 
      Exit For 
     End If 
    Next 
End Function 

Function Shell(cmd) 
    Shell = WScript.CreateObject("WScript.Shell").Exec(cmd).StdOut.ReadAll() 
End Function 

您不必返回PID，你也可以返回True/False或tasklist提供的任何其他信息。作爲參考，tasklist列索引是：

• 0： 「圖像名」
• 1： 「PID」，
• 2： 「會話名稱」
• 3： 「會話＃」
• 4： 「MEM用法」，
• 5： 「狀態」
• 6： 「用戶名」
• 7： 「CPU時間」
• 8：「窗口標題」

通過WMI可以實現更高級的與進程的交互。如何在VBScript中使用它的大量示例都遍佈在Internet上。搜索Win32_Process。