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

Upfront我不熟悉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

vbscript保持窗口打开但不活动

1 个答案: