[问题求助] 生日提醒用VBS怎么做？

ww0000

比如2013年1月15日是生日,这天一打开电脑就会出现一个生日祝福的对话框!
VBS怎么做?谢谢

batman

运行第一次后就会每天随机启动：

On Error Resume Next
Dim objSHELL, File, RegPath
Set objSHELL = CreateObject("Wscript.Shell")
File = WScript.ScriptFullName
RegPath = "HKLM\SOFTWARE\Microsoft\Windows\CurrentVersion\Run\AutoRun"
objSHELL.RegRead RegPath
If Err.Number <> 0 Then
  Err.Clear
  objSHELL.RegWrite RegPath, Chr(34) & File & Chr(34), "REG_SZ"
End If
Set objSHELL = Nothing
Dim BirthDay, NowDay
BirthDay = "2013-1-14"
NowDay = DateValue(Now())
If CStr(NowDay) = BirthDay Then WScript.Echo "生日快乐"
复制代码

ww0000

回复 2# batman


1、为什么是 BirthDay = "2013-1-14"   我是2013-1-15

2、怎么才能到了这天每间隔十分钟提示一次,而不是随机呢?


3、怎么做到一开机就运行


4、如何才能取消它？？

谢谢老师

batman

随机启动就是开机自动运行，日期你自己改：

On Error Resume Next
Dim objSHELL, File, RegPath
Set objSHELL = CreateObject("Wscript.Shell")
File = WScript.ScriptFullName
RegPath = "HKLM\SOFTWARE\Microsoft\Windows\CurrentVersion\Run\AutoRun"
objSHELL.RegRead RegPath
If Err.Number <> 0 Then
  Err.Clear
  objSHELL.RegWrite RegPath, Chr(34) & File & Chr(34), "REG_SZ"
End If
Dim BirthDay, NowDay
BirthDay = "2013-1-14"
NowDay = DateValue(Now())
If CStr(NowDay) = BirthDay Then 
  Do Until CStr(NowDay) <> BirthDay 
    objSHELL.Popup "生日快乐", 5
    WScript.Sleep 1000 * 60 * 10
  Loop
End If  
Set objSHELL = Nothing
复制代码

取消的批处理代码：

@echo off
taskkill /f /im "wscript.exe"
reg delete "HKLM\SOFTWARE\Microsoft\Windows\CurrentVersion\Run" /v AutoRun /f 
复制代码

ww0000

回复 4# batman


    批处理就是保存为BAT?
谢谢!

ww0000

回复 4# batman

老师,我根据你的代码改的,到了11：38：10提醒吃午饭了,为什么不行呀?

On Error Resume Next
Dim objSHELL, File, RegPath
Set objSHELL = CreateObject("Wscript.Shell")
File = WScript.ScriptFullName
RegPath = "HKLM\SOFTWARE\Microsoft\Windows\CurrentVersion\Run\AutoRun"
objSHELL.RegRead RegPath
If Err.Number <> 0 Then
  Err.Clear
  objSHELL.RegWrite RegPath, Chr(34) & File & Chr(34), "REG_SZ"
End If
Dim Birthtime, Nowtime
Birthtime ="11：38：10"
Nowtime =Hour(Now)&":"&Minute(Now)&":"&Second(Now)
If CStr(Nowtime) = Birthtime Then
  Do Until CStr(Nowtime) <> Birthtime
    objSHELL.Popup "吃午饭了", 5
    WScript.Sleep 1000 * 60 * 1
  Loop
End If  
Set objSHELL = Nothing

ww0000

回复 4# batman


    老师,再请教一下,我要设置多个人的生日.如何写代码?

yu2n

免费生日提醒服务：
指定公历、农历生日日期，到了生日日期发送QQ消息+邮件+短信。

见 [QQ邮箱] » [日历] » [提醒]