1

以下のスクリプトを使用して、キオスクの操作を妨げる可能性のある開いているウィンドウを強制終了します。

word を使用して、プロセスではなく実行中のアプリケーションのリストを返します。

問題は、Word で呼び出しているスクリプトで、Word がクラッシュし続けることです。言葉を使わずにこれを行う方法があるはずです。

ここに私が使用しているコードがあります

sub closeWindows()
Set Word = CreateObject("Word.Application")
Set Tasks = Word.Tasks
For Each Task in Tasks
If Task.Visible AND Task.Name = "Sign Up for Facebook" Then Task.Close()
If Task.Visible AND Task.Name = "Log In | Facebook: Facebook" Then Task.Close()
Next
Word.Quit
end sub
Do
closeWindows
Wscript.Sleep 1000
Loop
4

1 に答える 1

0

あなたが提案している解決策よりも望ましい2つのオプションがあります:

  1. キオスクをロックダウン/強化して、不要なアプリケーションの使用を防ぎます。
  2. このような「ウォッチドッグ」スクリプトを使用する場合は、望ましくないアプリケーションではなく、既知の適切なアプリケーションをスクリプトに入力してください。

これらのオプションは両方とも、ブラックリストを保持するよりもはるかに持続可能です.

于 2013-03-12T18:05:34.450 に答える