程序员送给对象的生日礼物

本人大一计算机系新生 ，近日女朋友生日，便突发奇想为她写一个小玩意，当作生日礼物送给她，让她感受一下死理科男加死程序员的浪漫🤣。

是用的vbs写的，我们大一学的是c，vbs我自己就研究了几天，代码可能会有点拙劣，请多包涵。

我把弄好之后的大致框架发出来分享给大家，大家可以去试一下女朋友会不会杀了你😂。

dim a,b,count
const name="" REM 引号内输入你对象的名字
const mi="020308"  REM 密码可以设置她的生日什么的

a=inputbox("请输入您的名字:")
if a=name then
if datediff("d","",date)>=0 then  REM 引号内设置开启日期    XXXX/XX/XX
do
b=inputbox("请输入密码:")
if b=mi then
select case int(hour(time))
case 0,1,2,3
msgbox"凌晨该睡觉啦啦 宝宝~"
case 4,5,6,7,8,9,10
msgbox"早上好吖 宝宝~"
case 11,12,13,14
msgbox"中午好吖 宝宝~"
case 15,16,17,18
msgbox"下午好吖 宝宝~"
case 19,20,21,22,23
msgbox"晚上好吖 宝宝~"
end select	

                            REM 下面可以输入想对她说的话
msgbox""    
msgbox""
msgbox""


wscript.quit  
else
if count>=8 then            REM 密码输入错误八次自动退出 可自己修改
msgbox"密码错误次数已达上限"
wscript.quit
end if
count=count+1
msgbox"密码错误,请重新输入"
end if
loop
else 
msgbox"生日还没到呢 宝宝不要急哦"    REM  引号内容为未到日期打开所显示  可自行修改
wscript.quit
end if
else 
msgbox"抱歉 这不是为你准备的"
wscript.quit

end if

使用方法：

   复制到记事本填充内容  另存为  后缀名修改为.vbs    编码格式改为ANSI  否则中文界面会出现乱码