1

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

1 回答 1

0

预先我不熟悉 Chrome 或 Chrome kiosk 模式...但是，如果它是唯一的实例，您可以尝试使用 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
于 2013-10-31T21:54:01.267 回答