Skip to content

Instantly share code, notes, and snippets.

@kyokutyo

kyokutyo/men.vbs

Created October 23, 2010 07:14
Show Gist options
  • Save kyokutyo/641893 to your computer and use it in GitHub Desktop.
Save kyokutyo/641893 to your computer and use it in GitHub Desktop.
Download ZIP
2.5分経つとビープ音で知らせてくれるラーメンタイマー
Raw
men.vbs
Dim WshShell
Dim intMsg
Set WSHShell=Wscript.CreateObject("Wscript.Shell")
intMsg = WSHShell.Popup ("3分たったら、お知らせします",5,"ラーメンタイマー",vbOKOnly)
Wscript.sleep(2.5 * 60 * 1000)
'' for test : sleep 1 second
'Wscript.sleep(1000)
WshShell.Run "CMD.EXE /CECHO "&String(3,7),0,True
Wscript.echo "3分(ホントは2分半)経過しました"
WScript.Quit
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment