3分タイマーです。

【実行画面】
 


< VBScript >

'////////////////////////////////////////////////////////////////////
'//
'//     3分タイマー
'//
Option Explicit
Dim myNow, myTime
Dim res

res = MsgBox("3分タイマーを実行しますか?", 33, "3分タイマー")
If res = 2 Then
    WScript.Quit
End If

myNow = Now
myTime = Now
Do While DateDiff("s", myNow, myTime) < 180
    myTime = Now
    WScript.Sleep 1000
Loop

MsgBox "3分たちました!", 64, "3分経過"




戻る