objShell = ObjectCreate("Shell.Application")
objWindows = objShell.Windows
cnt = objWindows.Count -1
_out = ``
For item = 0 To cnt
objWin = objWindows.Item(item);
if StrIndexNc(objWin.FullName,'Zoom', 1, @FWDSCAN)
_out := `[` : objWin.FullName : `]` : @CRLF
endif
next
terminate(1, `Windows found:`, _out)
_x = winItemize()
_o = ``
_p = ``
For _n = 1 to itemCount(_x, @TAB)
_z = itemExtract(_n, _x, @TAB)
if strIndex(_z, `Zoom`, 0, @FWDSCAN)
_o := _z : @CRLF
_a = winIdGet(_z)
_p := winPosition(_a) : @CRLF
endif
Next
message(`All Zoom Windows:`, _o) ;Zoom || Zoom Meeting || Zoom || Zoom || Zoom Cloud Meetings
message(`All Zoom Positions:`, _p) ;870,129,986,246 || -694,62,-52,737 || 870,129,986,246 || 870,129,986,246 || 343,300,677,745