程序員教你一招最不要臉的情人節表白
受新冠疫情影響,今天的這個情人節顯得很特殊:不能手牽手逛街了,不能去電影院了,不能去外面吃吃喝喝了,也不能放煙花了,就連kiss都要隔著口罩…這還是有幸在一起的情侶,對于那些“被迫”異地戀的情侶來說,只能“隔空示愛”了!
說到“隔空示愛”,這可是咱們程序員的強項,不信看看這個程序員發明的表白彈窗,女生同意才能關掉,是不是很不要臉?話不多說,先看效果圖:
↓↓↓
↓↓↓
↓↓↓
↓↓↓
↓↓↓
↓↓↓
↓↓↓
如果點“否”,彈出
↓↓↓
↓↓↓
點“確定”返回
↓↓↓
↓↓↓
點“是”彈出
↓↓↓
代碼如下:
msgbox "我有一件事想跟你說",vbQuestion,"在嗎?"
msgbox "自從第一天遇見你,我便對你難以忘懷了!"
msgbox "做我女朋友好嗎?"
msgbox ("房產寫你名字")
msgbox ("保大")
msgbox ("我媽會游泳")
dim j
do while j<1
Select Case msgbox("做我女朋友好嗎?",68,"請鄭重的回答我!")
Case 6 j=1
Case 7 msgbox("再給你一次機會")
end Select
loop
msgbox("我就知道你會同意的,哈哈哈哈!!")
使用方法:新建一個txt文檔,復制以上代碼,點擊【文件】→【另存為】→【文件名:后綴改為 .vbs(示例:Play.vbs)】→【保存類型:所有文檔】。鼠標雙擊即可執行。
注:代碼中“ ”內的中文可任意修改為你喜歡的內容。
以上就是程序員發明的最不要臉的表白彈窗啦!當然,會敲代碼的程序員的表白大招可不止這些,想學更多酷炫“撩妹”大招的朋友,可關注公眾號“寶比萬像培訓學校”,上面有專門的情人節表白大招介紹哦!
病毒無情,人間有情!人生無常,要珍惜眼前人!愛她,就趕緊表白吧!最后祝所有看到這這里的朋友都能表白成功!,有情人終成眷屬!