vbscript保持窗口打開但不活動

Question

在過去，我使用下面的vbscript保持活動窗口。如果它關閉，它也會重新打開窗口。我怎樣才能改變這個窗口，使窗口始終保持打開狀態並在後臺運行，但其他窗口可以處於活動狀態。這是一個信息亭設置。用戶將點擊鏈接並打開一個彈出窗口。彈出窗口將被關閉。腳本中的快捷方式鏈接以Chrome kiosk模式啓動網頁。該解決方案有點像活動桌面背景。我在沒有活動桌面功能的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:\scripts\kioskhomepage" 
WScript.Sleep 5000 
Else 
WScript.Sleep 3000 
End If 
Loop 

Answer 1

前期我不熟悉的Chrome瀏覽器或Chrome信息亭模式......但是，如果它的唯一實例，你可以嘗試使用WMI尋找它，然後修改與其他參數的運行命令

有關運行的詳細信息，請參閱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:\\.\root\CIMV2") 

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:\scripts\kioskhomepage", 8, False 
     WScript.Sleep 5000 
    Else 
     WScript.Sleep 3000 
    End If 
Loop