vbscript使窗口保持打开但不活动

Question

过去，我使用以下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:\scripts\kioskhomepage"
WScript.Sleep 5000
Else
WScript.Sleep 3000
End If
Loop

Answer 1

前期我不熟悉Chrome或Chrome信息亭模式...但是，如果它是唯一的实例，则可以尝试使用WMI查找它，然后使用其他参数修改Run命令...

有关运行的更多信息，请参见http://msdn.microsoft.com/zh-cn/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