2017年11月
      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ファイルなどを探す。取り出す。 »