2017年9月
          1 2
3 4 5 6 7 8 9
10 11 12 13 14 15 16
17 18 19 20 21 22 23
24 25 26 27 28 29 30
無料ブログはココログ

« コマンドプロンプトで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ファイルなどを探す。取り出す。 »