ポップアップ出し続けるやつ。

【背景】
やたら情報ばかりおくってくるエラー通知メールがあって、それを一定条件でハンドルしたかった。ハンドルしたときは監視者であるワシが起きないといけないのでこれを作った。
VBAとか使ってるとシングルスレッドだから複数のポップアップをクリックするまでアラート音出し続けられない。そこでVBSを呼び出す形にすれば解決すると踏んで作った。
Batじゃないのは引数めんどかったからだ。文字コード問題を無視できるVBSはこういうとき便利。JSも良いがデスクトップ上でやるならVBSのほうが資源を使いやすい印象。そんなことないぜって場合は教えてエロい人。

【作ってみて】
くそうるさいけど想定通り。音量をいじれたらなお良かった。ミュートだったら起きられない。

【使い方】
'cscript //nologo C:\Users\amagiel\Desktop\Alert.vbs abc

【ソース】
dim cnt

dim Str

if WScript.Arguments.Count = 0 then

    WScript.echo("too few arguments.")

    WScript.Quit(-1)

end if

 

For cnt = 0 To WScript.Arguments.Count - 1

    Str = Str & WScript.Arguments(cnt)

Next

Dim ret

Dim WSH

Set WSH = CreateObject("WScript.Shell")

Do

  If WSH.Popup(Str, 2, "Title", vbInformation)<>vbOK then

  else

    Exit Do

  End If

Loop

Set WSH = Nothing