不要以为程序员都是木讷的,浪漫起来也会让很多妹子心动的。而程序员的表白方式也很不一般,通过一堆代码,无限释放浪漫。今天教给大家通过改写脚本语言,利用弹窗可充分自由发挥,用来表白或者恶搞都是不错的选择。
先来一个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
如果对代码表白或者恶搞感兴趣,就去试试吧。把难以说出口的话通过代码表达出来,说不定今年圣诞节就脱单了。