简单的计时器
来源:互联网 发布:淘宝c店还可以赚到钱吗 编辑:程序博客网 时间:2024/05/22 14:22
'Time Log.vbs
Dim iRelax : iRelax = 0
Dim iRun : iRun = 0
'________________________________________________________
Dim WshShell
Set WshShell = WScript.CreateObject("WScript.Shell")
Do While True
'Every hour
If (Minute(now()) > 45) And (iRelax = 0) Then
MsgBox "Relax: Drink some water & Records &exercises & deep breath"
iRelax = 0
WScript.Sleep 600000'wait 10 mins
End If
'5.00PM
If (Hour(now()) = 17) And (iRun = 0) Then
MsgBox "Run, Run, Run"
iRun = 1
End If
WScript.Sleep 180000 'wait 3 mins
Loop
Dim iRelax : iRelax = 0
Dim iRun : iRun = 0
'________________________________________________________
Dim WshShell
Set WshShell = WScript.CreateObject("WScript.Shell")
Do While True
'Every hour
If (Minute(now()) > 45) And (iRelax = 0) Then
MsgBox "Relax: Drink some water & Records &exercises & deep breath"
iRelax = 0
WScript.Sleep 600000'wait 10 mins
End If
'5.00PM
If (Hour(now()) = 17) And (iRun = 0) Then
MsgBox "Run, Run, Run"
iRun = 1
End If
WScript.Sleep 180000 'wait 3 mins
Loop
0 0
- 一个简单的计时器
- JS简单的计时器
- JS简单的计时器
- 简单的计时器
- 一个简单的计时器
- 简单计时器的制作
- 简单的计时器
- 计时器的简单应用
- 一个简单的计时器
- android 简单的倒计时器
- 一个python简单的计时器
- C#简单的计时器代码
- 一个简单的倒计时计时器
- 一个简单的计时器类
- 时间计时器的简单demo
- 一个简单的进程计时器
- Handler 实现简单的计时器
- Chronometer实现简单的计时器
- POJ 2187 Beauty Contest
- 如何联系我?
- 算法导论-计数排序-C语言
- 肥胖怎么办?关于减肥方法的那些事。
- poj-1989
- 简单的计时器
- 基于optics算法的文本分类程序
- leetcode:Palindrome Partitioning
- db2的rollup和cube函数
- 【译】Android API Guide 之 属性动画
- 实战:mysql 5.6复制延迟监控
- 黑马程序员_Java基础_01环境安装、类编译常见错误、标识符、注释
- Mahalanobis distance in R
- Distinct Subsequences----匹配个串串