*[PC]vbsでWshShell popupを前面に表示する - とりとめのない記録帳

ずっとJavaScript(JScript)をメインに使ってきたのだが
機能的魅力から最近VBScriptに手を出し始めた。

始めたばかりなのでまだこれからだがJavaScriptの方が
文法的には好み。
VBScriptはなんかグスグスに感じる。

最初にはまったのがpopup(echo)が前面に出ないこと。

google検索すれば vbMsgBoxSetForeground(65536) 最前面表示
というのが引っかかるがなぜか機能せず前面に回ってこない。

vbSystemModal(4096) システムモーダル表示を使えば
前面に回るがフォーカスが外れている。
#メッセージ表示中は全システム停止となっているが停止しない模様

いろいろと考えて以前JavaScriptからWScript.Sleepを使う方法を応用した。
http://d.hatena.ne.jp/nakapon/20120304

簡単にチェックしたところ前面に回ってフォーカスも当たるみたい。

呼び出し元

Option Explicit
Dim WSHObj
Dim Args
Set WSHobj = WScript.CreateObject("WScript.Shell")
Args = "cscript ""C:\Program Files\PPX\script\WSHPopUP.vbs""" _
     & " ""出力メッセージ""" _
     & " 0" _
     & " ""VBS名称""" _
     & " " & vbOKOnly
WSHObj.Run Args,0,true
Set WSHobj = Nothing

WSHPopUP.vbs

Option Explicit
Dim Arg
Dim WSHObj
Set WSHobj = WScript.CreateObject("WScript.Shell")
Set Arg = WScript.Arguments
WSHObj.Popup Arg(0),Arg(1),Arg(2),Arg(3)
Set WSHobj = Nothing