Can someone help me figure out what I even need to do?

jersiq

Senior member
May 18, 2005
887
1
0
I have 10 Windows PC's that are set up for monitoring purposes of a CDMA2000 network.
I could just purchase some 3rd party software, but I am wondering if there is an cost-free solution.

I've googled, and everything leads to 3rd party software.
One constraint is that I cannot install anything that is freeware as it's a violation of corporate security.

Basically the PC's have multiple windows open Fullscreen, and I would like to cycle through the focus of the windows indefinitely, and each window will focus for a set period if time.
I guess something like a keyboard macro, with an alt-tab sequence on a timer to cycle through all windows.

I am not sure where to start. I have only written a couple of Matlab scripts, and VBA scripts, so my knowledge of programming is very low, but I never shy away from a chance to learn something new. So if anyone at least has an idea of where I can look to accomplish this, feel free to chime in.
 

KB

Diamond Member
Nov 8, 1999
5,406
389
126
I am curious as to why this is necessary? I can't think of any reason. Do the apps not monitor if they aren't in focus? If so then the apps are not very useful.

If you know the names of the application windows you can use a vbscript like this one:

Dim windows(2)
windows(0) = "Inbox - Microsoft Outlook"
windows(1) = "SQL Server Enterprise Manager"
windows(2) = "test.vbs - Notepad"

Set objShell = WScript.CreateObject("WScript.Shell")

'loop forever, will not end until you endtask wscript.exe
Do Until 1 = 2
For Each title in windows
'activate the window for 2 seconds
Success = objShell.AppActivate(title)
Wscript.Sleep 2000
Next
Loop
 

jersiq

Senior member
May 18, 2005
887
1
0
Each app is full screen. So if I only had two apps open (each fullscreen), the display would only show the currently selected app forever. I want it to cycle through each fullscreen application without user intervention.

The apps do monitor, but noone can see them if they are underneath other windows.
 

jersiq

Senior member
May 18, 2005
887
1
0
Originally posted by: Crusty
Sounds like you need more PC's :p
I agree, but there is a premium on wall space in the locations.
That and the minimum requirements that our support group requires is ridiculous

KB,

Thanks for the push. I did end up using the code below, it allows me to use a dynamic array for window titles, so I don't have to edit by hand every time we add a new monitoring app. I also had to download a .dll file from a site, but it is distributed freely, and can be used on my systems as far as I can tell.

Dim Sys, v , a1, i, sAct,
Set Sys = CreateObject("JSSys3.ops")
a = 1
b = 2

do while (a < b)
v = Sys.GetOpenWindowTitles(a1)
For i = 0 to UBound(a1)
sAct = a1(i)
for each z in (a1)
z = Sys.SetWindowActive(sAct, True)
Wscript.sleep 2000
next
next

loop

It may not be pretty, but it gets what I need it to do done.