◆こんなソフトウェアつくってください◆

このエントリーをはてなブックマークに追加
253名無しさん@お腹いっぱい。
下のスクリプトをメモ帳に貼り付けて timer.vbs という名前で保存、実行。
毎時0分にメッセージボックスが最前面に表示される。

'ここに表示するメッセージを""で囲んで入れる。
message="時間だ(#゚Д゚)ゴルァ"
'ダイアログが消えるまでの時間。0だと消えない。
timeout=5

set shell=createobject("wscript.shell")
do until second(now)=0
wscript.sleep 500
loop
do
if minute(now)=0 then _
if shell.popup(message&vbcr&vbcr&"[OK]=ダイアログを消す, [キャンセル]=終了", _
timeout,"時報",4096+vbokcancel)=vbcancel then exit do
wscript.sleep 60000
loop