一个VB小程序，提醒自己上下班打卡和每小时休息

Dim MyTime,OldTime,difTime,midTime '代表两时间相减的结果
MsgBox("老大，早上好，一定要记得打卡啊！！O(∩_∩)O")
OldTime = Now
midTime = Now
WScript.sleep 30000
MsgBox("确定打完啦？~...好了，点我吧(>^ω^<)喵")
Do
MyTime = Now
difTime =  DateDiff("h", midTime, MyTime)
If difTime>=1 Then
midTime=Now
MsgBox("老大，您已经工作了一个小时了，起来活动活动吧")
End If
difTime =  DateDiff("h", OldTime, MyTime)
If difTime>=9 Then
MsgBox("老大，八小时工作时间已经到了，可以去打卡了")
Exit Do
End If
WScript.sleep 30000
loop