一个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