vbs做一个会动的进度条_程序员如何过一个浪漫的情人节？

昨天是传统七夕情人节，七夕节，又名乞巧节或七巧节，始于汉朝，是流行于中国及汉字文化圈诸国的传统文化节日。

相传农历七月七日或六日夜妇女在庭院向织女星乞求智巧，故称为“乞巧”。其起源于对自然时间的崇拜及妇女穿针乞巧，后被赋予了牛郎织女的传说使其成为象征爱情的节日。

2006年5月20日，七夕节被中华人民共和国国务院列入第一批国家级非物质文化遗产名录。七夕节在当代又产生了“中国情人节”的文化含义。

“屌丝界”的一个巨大群体，IT 界的程序员们常常是被调侃的对象，由于他们常常与机器为伍，和电脑打交道，给人们留下的印象是宅，木讷，不善交流！但是这仅仅是印象，这个世界就是这样，外表特别容易迷惑人，尤其是在感情之中。

那么程序员如何过一个有情怀，懂浪漫的情人节呢？别以为情人节送一大束玫瑰花就是浪漫，作为程序员要发挥自己的长处，何不用自己熟悉的语言来写一封情书呢？

记得某年圣诞节上，西班牙程序员 Roman Cortes 带来了用纯 javascript 脚本编写的神奇 3D 圣诞树，令人印象深刻。就在 2 月 14 日情人节来临之际，还是 Roman Cortes，这次他又带来了用 javascript 脚本编写的红色玫瑰花。用代码做出的玫瑰花，这才是做程序员的送给女朋友最好的情人节礼物呢！相比外面的玫瑰花，它更长久，更灿烂，更重要的是它便宜，不花钱啊！你们能做到么？

当“昂贵的鲜花+浪漫的烛光晚餐”的标配表白方式早已落入俗套，身为程序员的我们，不应该拥有自己专属的浪漫吗？是用代码表达爱意，或是用base64加密你对她的告白，还是以她的名字为域名，为她编写专属于她的网站？"我写过最得意的代码，就是让你答应做我女朋友的那串代码。"

JavaScript版本

//遍历整个世界，只能找到你var i = 0;//且发誓永远不会减少while(i>-1){//我和我的她已经相爱666天了document.write('Havev Fail in Love ' + (++i) + 'Days!');

C++版本

//抽象出我的爱注入到你的心里abstract class MyLove implements YourHeart{//你若愿意String MyLove (String I_do){//我便爱你至天长地久return "Always and Forever!"
 }
}

Python版本

#倘若你回首看看我if you.turn_round_aguang():#我永远在你背后
 I.behind(you).forever()#关注着你
 see(you)

说到“隔空示爱”，这可是咱们程序员的强项，不信看看这个程序员发明的表白弹窗，女生同意才能关掉，是不是很不要脸？话不多说，先看效果图：

↓↓↓

↓↓↓

↓↓↓

↓↓↓

↓↓↓

↓↓↓

↓↓↓

如果点“否”，弹出

↓↓↓

↓↓↓

点“确定”返回

↓↓↓

↓↓↓

点“是”弹出

↓↓↓

代码如下：

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)】→【保存类型：所有文档】。鼠标双击即可执行。

注：代码中“   ”内的中文可任意修改为你喜欢的内容。

  看看我们程序员是不是都非常有才啊？谁说我们程序员不浪漫？谁说我们程序员都是单身狗啊？我们是为爱编程，用代码敲出了美丽的爱情，用代码谱写最动人的爱情故事。无代码，非程序，无程序，非人生。爱情不一定感天动地，长久的陪伴才是最真的爱情，我们程序员一般不表露，那是因为低调，用心。所以程序员并不是大家想象的那样是屌丝的代表。