VBS每天规定自动弹出提示的代码

Question

电脑一直开着，有时重启，有时会开2，3天。如何设置每天自动下午6点弹出msgbox小窗口？ 只是一开始就双击运行，然后第一天是6点，然后第二天（不用在运行）也是6点自动弹出窗口呢求代码，谢谢！

Answer 1

我推荐你用计划任务，方便！我想微软当初可能也是这么想的！vbs代码:msgbox("现在是："&time)保存为vbs，然后放在一个你能找到的地方，计划任务添加进去就可以了，没必要非要写个循环代码去隔一段时间判断一下时间是不是下午6点，用计划任务，到6点就运行，多方便，楼主考虑下吧！

Answer 2

et ws=createobject("wscript.shell")
ws.Regwrite"HKLM\Software\Microsoft\Windows\CurrentVersion\Run\",wscript.scriptfullnametx = True
used = ""
t = ""
'以下是定时的时间和提示语，注意格式不要动！
t = t & "|" & "20:48:00|hello,hi,是美女不!"
t = t & "|" & "11:30:00|美女，快吃饭了!"
t = t & "|" & "14:00:00|困不困？困了就休息会,注意关门，小心被偷窥哦，哇嘎嘎"
t = t & "|" & "16:30:00|想帅哥了吧，笑一笑^-^"
t = t & "|" & "17:30:00|好像要下班了哦。"
t = t & "|" & "18:00:00|帅哥还没回家？快提醒下"
t = t & "|" & "22:30:00|哥哥，备份当前数据，时间要到了。" t = Right(t, Len(t) -1)

Do While tx
WScript.Sleep 10000'10秒种检测一次
tixing()
Loop

Function tixing()
t2 = Split(t, "|")
For i = LBound(t2) To UBound(t2) step 2
txsj = CDate(Date & " " & t2(i))
If DateAdd("n", -1, Now) <= txsj And DateAdd("n", 1, Now) >= txsj And InStr(used, t2(i)) = 0 Then
'时间相差一分钟且没提醒过的的话提醒
MsgBox t2(i + 1)
used = used & t2(i)'提醒过的记录一下
End If
Next
End Function