本人大一計算機系新生 ，近日女朋友生日，便突發奇想為她寫乙個小玩意，當作生日禮物送給她，讓她感受一下死理科男加死程式設計師的浪漫?。
是用的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 引號內設定開啟日期 ***x/xx/xx
dob=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 否則中文介面會出現亂碼
2020 09 10 送給自己的生日禮物
15 00 你遇到過乙個非比尋常的老師嗎？他堅持不懈地教你那些你不理解的東西，他知道，那些最難的課程用一生的時間來學習。相約星期二 遇到問題最難受的不是問題本身，而是問題引起自己一連串的情緒反應。為什麼會這樣？為什麼突然會發生這種情況？難道是我 做得不夠好嗎？還是因為其他一些人做得還不到位？從自責到...
薩布的生日禮物
薩布的生日禮物 time limit 1 second memory limit 65536 kb 薩布剛剛度過了他的三歲生日，收到了很多禮物。儘管薩布只有三歲，但他和他的父親約翰一樣喜歡整潔。因此薩布已經開始整理這些禮物了。薩布共收到了 n 份禮物，且第 i 件禮物的標號是 i。他想把這 n 件禮...
適合送給程式設計師的禮物 有什麼適合送給情侶的禮物？
要我說就送實用性為主的禮物為好，我的送禮心得是，不管對方具體風格是哪種，禮物的實用性最好大於形式，至少送過去也能用一用啊，這裡推薦你送情侶杯，實用又有很好的寓意。1 萌寵小鹿情侶杯 各式情侶用品都是秀恩愛的利器，成對的情侶杯，搭配立體的可愛小鹿，平淡中帶著生活的溫馨氣息，是專屬於情侶間的小確幸。寓意...