OneHourTimer
Sub OneHourTimer
For i = 1 To 2
Set wsShell = WScript.CreateObject("WScript.Shell")
WScript.Sleep 25*60*1000
MsgBox "Done for Step [ " & i & " ], take a 5 mins break~!", 0, "Break Reminder"
WScript.Sleep 5*60*1000
MsgBox "Ready to go on the next step ? ", 0, "Continue Working"
Next
WScript.Quit
MsgBox "亲~!" & vbcrlf & vbcrlf &"You have been working for ONE-HOUR, please take a 15 mins break, and then start another session~~!", 0, "Kindly Reminder"
End Sub
转载于:https://my.oschina.net/u/138995/blog/106367