vbscript保持窗口打开但不活动答案

【问题标题】：vbscript to keep window open but not activevbscript保持窗口打开但不活动
【发布时间】：2013-10-31 19:52:52
【问题描述】：

在过去，我使用以下 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

【问题讨论】：

标签： windows vbscript kiosk kiosk-mode

【解决方案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

【讨论】：

非常好。感谢您的帮助！