過去に、次の vbscript を使用してウィンドウをアクティブに保ちました。また、ウィンドウが閉じられた場合は、ウィンドウを再度開きます。ウィンドウが常に開いたままバックグラウンドにあるように、これを変更するにはどうすればよいですか。ただし、他のウィンドウはアクティブにすることができます。これはキオスクのセットアップです。ユーザーがリンクをクリックすると、ポップアップ ウィンドウが開きます。ポップアップ ウィンドウを閉じることができます。スクリプト内のショートカット リンクは、Chrome キオスク モードで Web ページを起動します。ソリューションは、アクティブなデスクトップの背景のようなものです。アクティブなデスクトップ機能を持たない 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