vbscript, за да запазите прозореца отворен, но не и активен - прозорци, vbscript, павилион, павилион

В миналото използвах следния vbscript заподдържайте прозорец активен. Той също така отваря отново прозореца, ако се затвори. Как мога да променя това, така че прозорецът винаги да остава отворен и на заден план, но други прозорци могат да бъдат активни. Това е настройка на павилион. Потребителите ще кликнат върху връзките и ще се отвори изскачащ прозорец. Ще се затворят изскачащите прозорци. Връзката за бърз достъп в скрипта стартира уеб страницата в режим на браузъра Chrome. Решението е нещо като активен фон на работния плот. Използвам това на компютър с Windows 7 Thin PC, който не разполага с активна настолна възможност.

Option Explicit
"On Error Resume Next

Dim objShell

Set objShell = CreateObject("WScript.Shell")

Do
If (objShell.AppActivate("Kiosk") = False) Then
objShell.Run "c:scriptskioskhomepage"
WScript.Sleep 5000
Else
WScript.Sleep 3000
End If
Loop

Отговори:

Предварително Аз не съм запознат с режима на браузъра Chrome или Chrome ... Въпреки това, ако е единственият случай, можете да опитате да го търсите с WMI и след това да модифицирате командата Run с допълнителни аргументи ...

За повече информация относно Run, вижте http://msdn.microsoft.com/en-us/library/d5fk67ky%28v=vs.84%29.aspx

Dim objShell, objWMIService, colItems

Set objShell = CreateObject("WScript.Shell")
Set objWMIService = GetObject("winmgmts:\.rootCIMV2")

Do
"Change Chrome.exe to whatever the executable is called
Set colItems = objWMIService.ExecQuery("SELECT * FROM Win32_Process WHERE Name ="Chrome.exe"")
If colItems.Count = 0 Then
objShell.Run "c:scriptskioskhomepage", 8, False
WScript.Sleep 5000
Else
WScript.Sleep 3000
End If
Loop