程序员的浪漫弹窗表白，圣诞节给Ta惊喜吧（附源码，简单易学哦）

不要以为程序员都是木讷的，浪漫起来也会让很多妹子心动的。而程序员的表白方式也很不一般，通过一堆代码，无限释放浪漫。今天教给大家通过改写脚本语言，利用弹窗可充分自由发挥，用来表白或者恶搞都是不错的选择。

先来一个GIF动态图，实例部分效果

程序员的浪漫弹窗表白，圣诞节给Ta惊喜吧（附源码，简单易学哦）-1.jpg

接下来我们讲解实际操作，后附源码。

1.环境

脚本运行在windows系统，使用vbs代码.(没有接触过没有关系，会用记事本编辑改写文档即可操作)

2.准备工作

桌面新建一个txt，将文末源码拷贝到txt文件内，如下图，对于蓝框中的内容(双引号括起来的)我们可以自己编写，如果觉得现有模板弹窗不够，可以任意拷贝一行Msgbox，修改双引号内部内容即可。(其他的内容都不用改动)

程序员的浪漫弹窗表白，圣诞节给Ta惊喜吧（附源码，简单易学哦）-2.jpg

3.文件保存

更改完了模板，就要注意文件保存。因为是脚本，我们需要注意保存的几个细节，如下图所示。

程序员的浪漫弹窗表白，圣诞节给Ta惊喜吧（附源码，简单易学哦）-3.jpg

最后点击保存，就会在桌面新生成一个如下图标的脚本代码。(可能你看不到后缀名，只要确保图标一样以及文件名一样就没问题)

程序员的浪漫弹窗表白，圣诞节给Ta惊喜吧（附源码，简单易学哦）-4.jpg

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

如果对代码表白或者恶搞感兴趣，就去试试吧。把难以说出口的话通过代码表达出来，说不定今年圣诞节就脱单了。