include Desktop ALL, added filter (#1)

list VD w. windows Desktop ALL w. filter.ahk

Author: FuPeiJiang

other examples/list VD w. windows Desktop ALL w. filter.ahk

@@ -1,7 +1,7 @@
-#NoEnv  ; Recommended for performance and compatibility with future AutoHotkey releases.
+#NoEnv ; Recommended for performance and compatibility with future AutoHotkey releases.
 #SingleInstance, force
-SendMode Input  ; Recommended for new scripts due to its superior speed and reliability.
-SetWorkingDir %A_ScriptDir%  ; Ensures a consistent starting directory.
+SendMode Input ; Recommended for new scripts due to its superior speed and reliability.
+SetWorkingDir %A_ScriptDir% ; Ensures a consistent starting directory.
 SetBatchLines, -1
 #KeyHistory 0
 ListLines Off
@@ -22,31 +22,46 @@ Loop %windows%
     IfEqual, False, % VD_isValidWindow(id), continue
     ahk_idId := "ahk_id " id
     desktopOfWindow:=VD_getDesktopOfWindow(ahk_idId)
-    if (desktopOfWindow)
-    {
-        whichDesktop:="Desktop " desktopOfWindow
 
-        ;useful
-        WinGetTitle, OutputTitle, %ahk_idId%
-        WinGetClass, OutputClass, %ahk_idId%
-        WinGet, OutputEXE, ProcessName, %ahk_idId%
-        useFulStr:="`nWinTitle: " OutputTitle "`nclass: " OutputClass "`nEXE: " OutputEXE
+    if (!desktopOfWindow)
+        desktopOfWindow:="ALL"
 
-        ;not that useful
-        WinGet, OutputFULLPATH, ProcessPath, %ahk_idId%
-        WinGet, OutputPID, PID, %ahk_idId%
+    whichDesktop:="Desktop " desktopOfWindow
 
-        notThatUseFulStr:="`n`nFULLPATH: " OutputFULLPATH "`nPID: " OutputPID "`nID: " id
-        WinGet, OutputVar, ProcessPath, A
+    ;useful
+    WinGetTitle, OutputTitle, %ahk_idId%
+    WinGetClass, OutputClass, %ahk_idId%
+    WinGet, OutputEXE, ProcessName, %ahk_idId%
+    useFulStr:="`nWinTitle: " OutputTitle "`nclass: " OutputClass "`nEXE: " OutputEXE
 
-        arrayOfWindowsInfo.Push({desktopNum:desktopOfWindow, str:whichDesktop useFulStr notThatUseFulStr})
-    }
+    ;not that useful
+    WinGet, OutputFULLPATH, ProcessPath, %ahk_idId%
+    WinGet, OutputPID, PID, %ahk_idId%
+
+    notThatUseFulStr:="`n`nFULLPATH: " OutputFULLPATH "`nPID: " OutputPID "`nID: " id
+    WinGet, OutputVar, ProcessPath, A
+
+    arrayOfWindowsInfo.Push({desktopNum:desktopOfWindow
+        , str:whichDesktop useFulStr notThatUseFulStr
+        , WinTitle: OutputTitle
+        , class: OutputClass
+    , EXE: OutputEXE})
 }
 DetectHiddenWindows, off
 
-;below is just to print it
+;filter it
+filter:=[{EXE:"mbamtray.exe"}
+,{WinTitle:"Microsoft Store", EXE:"ApplicationFrameHost.exe"}
+,{EXE:"WinStore.App.exe"}
+,{WinTitle:"Settings", EXE:"ApplicationFrameHost.exe"}
+,{EXE:"SystemSettings.exe"}
+,{EXE:"WindowsInternal.ComposableShell.Experiences.TextInput.InputApp.exe"}]
+
+filterArrOfObj(arrayOfWindowsInfo,filter)
+
 arrayOfWindowsInfo:=sortArrByKey(arrayOfWindowsInfo,"desktopNum")
 
+;below is just to print it
 ArrayStreamArray:=[]
 for k, v in arrayOfWindowsInfo {
     ArrayStreamArray.push(v["str"])
@@ -55,7 +70,6 @@ for k, v in arrayOfWindowsInfo {
 streamArray(ArrayStreamArray,1100,200)
 return
 
-
 streamArray(Byref arr,Byref width,Byref height)
 {
     global ArrayStreamArray, ArrayStreamIndex, ArrayStreamGuiId, ArrayStreamTextId, ArrayStreamIndexTextId, ArrayStreamLength
@@ -111,7 +125,6 @@ ArrayStreamGoRight:
 return
 #if
 
-
 sortArrByKey(ar,byref key) {
     str=
     for k,v in ar {
@@ -134,7 +147,30 @@ sortArrByKey(ar,byref key) {
         num:=SubStr(str, plusPos + 1, barPos - plusPos - 1)
         finalAr.Push(ar[num])
     }
-    return finalAr
+return finalAr
+}
+
+filterArrOfObj(arr, filter)
+{
+    ;reverse iterate to remove
+    i := arr.Length() + 1
+    while (--i)
+    {
+        v:=arr[i]
+        reverseI := length-
+
+        for n, obj in filter {
+            for key, value in obj {
+
+                if (value!=v[key])
+                    continue 2
+
+            }
+            ;if respects the filter, all values match values of filter
+            arr.remove(i)
+            continue
+        }
+    }
 }
 
 f3::Exitapp