カスタムダイアログを自動で閉じる

VBScriptでカスタムダイアログを閉じる。

フィールド名「script」内

//ここから

wTitle="カスタムダイアログタイトル"

Wscript.Sleep(3000)'1000=1秒

Set objWshShell = CreateObject("WScript.Shell")

result=  objWshShell.AppActivate(wTitle)

if result then

objWshShell.SendKeys "{ENTER}"

end if

//ここまで

上記を「*.vbs」拡張子 任意の名前.vbs で保存して実行。

スクリプト

例：

変数を設定 [$filepath; 値:Get ( テンポラリパス ) & "AutoClose.vbs"]

フィールド内容のエクスポート [script; 「$filepath」; 自動的に開く]

カスタムダイアログを表示 ["カスタムダイアログタイトル"; "メッセージ"]