不要以為程序員都是木讷的,浪漫起來也會讓很多妹子心動的。而程序員的表白方式也很不一般,通過一堆代碼,無限釋放浪漫。今天教給大家通過改寫腳本語言,利用彈窗可充分自由發揮,用來表白或者惡搞都是不錯的選擇。
先來一個GIF動态圖,實例部分效果
接下來我們講解實際操作,後附源碼。
1.環境腳本運行在windows系統,使用vbs代碼.(沒有接觸過沒有關系,會用記事本編輯改寫文檔即可操作)
2.準備工作桌面新建一個txt,将文末源碼拷貝到txt文件内,如下圖,對于藍框中的内容(雙引号括起來的)我們可以自己編寫,如果覺得現有模闆彈窗不夠,可以任意拷貝一行msgbox,修改雙引号内部内容即可。(其他的内容都不用改動)
3.文件保存
更改完了模闆,就要注意文件保存。因為是腳本,我們需要注意保存的幾個細節,如下圖所示。
最後點擊保存,就會在桌面新生成一個如下圖标的腳本代碼。(可能你看不到後綴名,隻要确保圖标一樣以及文件名一樣就沒問題)
4.雙擊這個圖标,彈窗腳本就運行起來了
好了,放上一份讓妹子喜歡了半天的模闆,供參考。
set ws=createobject("wscript.shell")
dim i
i=0
do while a<>"我是你的女朋友"
i = i 1
a=inputbox("快在下面的框框裡輸入'我是你的女朋友',否則後果自負,快輸""我是你的女朋友"" ","輸不輸","")
loop
if i > 1 then
msgbox "早說就行了嘛",4096 64
MsgBox"鑒于态度不誠懇",4096 64
msgbox"請務必牢記'我是你的女朋友'!",4096 64
msgbox"給我可愛的女朋友講一個故事吧。",4096 64
Else
msgbox"這麼乖啊。那給女朋友講一個故事吧。",4096 64
End if
MsgBox"從前有座山!",4096 64
MsgBox"山裡有個廟.",4096 64
MsgBox"廟裡有個老和尚在講故事.",4096 64
msgbox"哎呀累了!數綿羊哄我睡覺",4096 64
b = inputbox("請小心輸入'哄'還是'不哄'","請輸入","")
if b = "哄" then
MsgBox"咦,竟然真的這麼乖,那就不懲罰你了.",4096 64
Else
msgbox"不管你是沒輸入還是輸入錯了,我都要給你懲罰,數100隻綿羊去",4096 64
for i=1 to 100
MsgBox i&"隻綿羊",4096 64
next
msgbox"哎呀我困了,這次就饒過你了,下次注意哦!",4096 64
End if
msgbox"最後問個問題,我是不是大好人!",4096 64
c = inputbox("是不是","請選擇","是")
if c = "是" then
msgbox"反手就是一個麼麼哒",4096 64
Else
msgbox"哼,不是大好人,我也要麼麼哒。",4096 64
end if
如果對代碼表白或者惡搞感興趣,就去試試吧。把難以說出口的話通過代碼表達出來,說不定今年聖誕節就脫單了。
,更多精彩资讯请关注tft每日頭條,我们将持续为您更新最新资讯!