vbs表白程式碼+整人程式碼,抖音vbscript表白程式碼
阿新 • • 發佈:2018-12-22
步驟一:
在電腦上新建一個txt檔案
步驟二:將以下程式碼複製過去(中文可以改)
const title = “愛情測試”
const yourname = “嫦娥”
const question = “你最喜歡的人是誰?請在下面的方框中輸入他(她)的名字。”
const info = “你在說謊!不要逃避,實話實說。”
const scend = “你說出了你的心扉,那就向他(她)表白吧。”
dim youranswer
do
youranswer = inputbox(question, title)
if youranswer <> yourname then msgbox info, vbinformation+vbokonly, title
loop until youranswer = yourname
msgbox scend, vbinformation+vbokonly, title
步驟三:講字尾名改為vbs
點選之後效果:
當輸入的名字不是程式碼中的“嫦娥”,則會彈出"你在說謊!不要逃避,實話實說。"
當輸入“嫦娥”時,則會彈出"你說出了你的心扉,那就向他(她)表白吧。"
如果輸入的名字不是不是之前程式碼中寫的名字,彈窗就會關不掉,效果是不是很棒,趕緊向心儀的人表白吧。