有没有办法用 VBScript 计算所有打开的 windows？

Question

我想知道是否可以使用 vbscript 计算在给定时间打开的 windows 的数量。我已经熟悉 shell.application 对象并且可以计算 Windows Explorer 实例，但我想计算每个 window，最小化或最大化，无论它是什么。我也考虑过计算所有运行个任务，但我需要以某种方式区分后台和前台任务才能工作。

function fnShellWindowsCountVB()
        dim objShell
        dim objShellWindows

        set objShell = CreateObject("shell.application")
        set objShellWindows = objshell.Windows

        if (not objShellWindows is nothing) then
            dim nCount
            nCount = objShellWindows.Count

            msgBox nCount
        end if

        set objShellWindows = nothing
        set objShell = nothing
end function
fnShellWindowsCountVB()

'only counts explorer.exe windows

如有任何见解，我们将不胜感激。

Answer 1

不，你不能使用 VBScript。

您必须进行 API 调用才能使用 window 执行任何操作。

VB.Net 可以进行 API 调用，并且像 VBScript 一样内置在 Windows 中。

这是来自https://winsourcecode.blogspot.com/2019/05/winlistexe-list-open-windows-and-their.html

它列出了所有打开的 windows，您将有几百个。可能你只对顶级windows.

感兴趣

EG 记事本是 5 windows。 1 个顶层，1 个编辑控件 window，1 个状态栏 window，以及所有程序自动处理输入中文文本等的两个标准 windows

WinList.exe 列出公开的 windows 及其 child windows' Window 标题，Window Class，以及EXE 文件

请注意，您必须运行作为管理员才能访问有关提升 windows 的信息。

REM WinList.bat
 REM This file compiles WinList.vb to WinList.exe
 REM WinList.exe list the open windows and their child windows' Window Title, Window Class, and the EXE file that created the window. 
 REM To use type WinList in a command prompt
 C:\Windows\Microsoft.NET\Framework\v4.0.30319\vbc "%~dp0\WinList.vb" /out:"%~dp0\WinList.exe" /target:exe
 Pause




 ---------------------------------------------------------------------------------






'WinList.vb
 imports System.Runtime.InteropServices 
 Public Module WinList  

 Public Declare Function GetTopWindow Lib "user32" (ByVal hwnd As IntPtr) As IntPtr
 Public Declare Function GetWindow Lib "user32" (ByVal hwnd As IntPtr, ByVal wCmd As Integer) As IntPtr
 Public Declare UNICODE Function GetWindowModuleFileNameW Lib "user32" (ByVal hwnd As IntPtr, ByVal WinModule As String, StringLength As Integer) As Integer
 Public Declare UNICODE Function GetWindowTextW Lib "user32" (ByVal hwnd As IntPtr, ByVal lpString As String, ByVal cch As Integer) As Integer
 Public Declare Function GetWindowThreadProcessId Lib "user32" (ByVal hwnd As IntPtr, ByRef lpdwProcessId As IntPtr) As IntPtr
 Public Declare UNICODE Function GetClassNameW Lib "user32" (ByVal hwnd As IntPtr, ByVal lpClassName As String, ByVal nMaxCount As Integer) As Integer
 Public Declare Function IsWindowUnicode Lib "user32" (ByVal hwnd As IntPtr) As Boolean
 Public Const GW_CHILD = 5
 Public Const GW_HWNDNEXT = 2

 Public Sub Main ()
        Dim WindowChain as Integer
            WindowChain = 0        
        Dim hwnd As IntPtr
        hwnd = GetTopWindow(0)
        If hwnd <> 0 Then
                            AddChildWindows(hwnd, 0)
                End If
 End Sub


 Private Sub AddChildWindows(ByVal hwndParent As IntPtr, ByVal Level As Integer) 
        Dim objWMIService As Object
        Dim colItems As Object
        Dim TempStr As String        
        Dim WT As String, CN As String, Length As Integer, hwnd As IntPtr, TID As IntPtr, PID As IntPtr, MN As String, Parenthwnd As IntPtr
        Static Order As Integer
        Static FirstTime As Integer
        Parenthwnd = hwndParent
        If Level = 0 Then
                        hwnd = hwndParent
        Else
            hwnd = GetWindow(hwndParent, GW_CHILD)
        End If
        Do While hwnd <> 0
                 WT = Space(512)
                  Length = GetWindowTextW(hwnd, WT, 508)
                  WT = Left$(WT, Length)
                  If WT = "" Then WT = Chr(171) & "No Window Text" & Chr(187)
                  CN = Space(512)
                  Length = GetClassNameW(hwnd, CN, 508)
                  CN = Left$(CN, Length)
                  If CN = "" Then CN = "Error=" & Err.LastDllError
                  MN = ""

                  TID = GetWindowThreadProcessId(hwnd, PID)

        objWMIService = GetObject("winmgmts:\.\root\cimv2")
        colItems = objWMIService.ExecQuery("Select * From Win32_Process where ProcessID=" & CStr(PID))
        For Each objItem in colItems        
                MN = objItem.name 
        Next                           
                Dim Unicode  as Boolean
        Unicode = IsWindowUnicode(hwnd)

                  Order = Order + 1
                If FirstTime = 0 Then
                    Console.writeline("Window Text                   " & "Class Name               " & vbTab & "Unicode" & vbtab & "HWnd" & vbTab & "ParentHWnd" & vbTab & "ProcessID" & vbTab & "ThreadID" & vbTab & "Process Name" )
                    FirstTime = 1
                End If
        TempStr = vbCrLf & Space(Level * 3) & WT 
        If 30 - len(TempStr) > -1 then
                TempStr = TempStr & space(30 - len(TempStr))
        End If
        TempStr = TempStr & " " & CN 
        If 55 - len(TempStr) > -1 then
                TempStr = TempStr & space(55 - len(TempStr))
        End If
                Console.write(TempStr  & vbtab & Unicode & vbTab & CStr(hwnd) & vbTab & CStr(Parenthwnd) & vbTab & CStr(PID) & vbTab & CStr(TID) & vbTab & MN )

                  AddChildWindows(hwnd, Level + 1)
                  hwnd = GetWindow(hwnd, GW_HWNDNEXT)
        Loop
      End Sub

 End Module

有没有办法用 VBScript 计算所有打开的 windows？

Is there a way to count all open windows with VBScript?

vbscript