« コマンドプロンプトでCALLと^を使って遅延展開する。 | トップページ | IEのキャッシュフォルダからSWFファイルなどを探す。取り出す。 »

2010年5月10日 (月)

ひとつのスクリプトから同時に複数のMsgBoxを出す。

普通はひとつのMsgBoxしか出せませんが、

msgbox3.vbs

set d=createobject("htmlfile")
d.parentwindow.settimeout getref("proc1"),400,"vbscript"
d.parentwindow.settimeout getref("proc2"),200,"vbscript"
msgbox 3

sub proc1
msgbox 1
end sub

sub proc2
msgbox 2
end sub

MsgBoxはModal(?)なようです。操作できるウィンドウは最前面のひとつです。使えない。。。

一方、WScript.ShellのPopupはModeless(?)なようです。

popup3.vbs

set d=createobject("htmlfile")
d.parentwindow.settimeout getref("proc1"),400,"vbscript"
d.parentwindow.settimeout getref("proc2"),200,"vbscript"
createobject("wscript.shell").popup  3

sub proc1
createobject("wscript.shell").popup  1
end sub

sub proc2
createobject("wscript.shell").popup  2
end sub

Popupのウィンドウは独立していて、タスクバーにも別々に現れます。

« コマンドプロンプトでCALLと^を使って遅延展開する。 | トップページ | IEのキャッシュフォルダからSWFファイルなどを探す。取り出す。 »