电脑小白也可以用程序追女神男神。
七夕节快到了，电脑小白或新手程序员如何用程序表白？互相耀武扬威的今天我教你一招，同志们，收下吧！
1、网页
这是效果图。刚刚进入页面的是“七夕幸福”两个字。输入自己的名字就知道“某人长得帅的比例”。你可以设定的一切。大卫亚设，Northern Exposure(美国电视新闻)然后输入不认识的人的名字，就会说：“对不起。这个网站对某某来说还没有祝福。”的话。最后，输入想告白的那个人的名字后，“某某，你好，七夕快乐！”出现了。也许有人说这句话太捞了，告白这么弱。正谈是你可以自己改变的嘛！好了，下面请直接上传代码。
Html
头(电影)
Script type='text/javascript '
Function display(){
var names=[‘男神的名字’，‘女神的名字’]；
var name=document . getelementbyid(' name ')。value
var show=document . getelementbyid(' show ')；
Var flag=false
While(真){
Var colorcode=' RGB ('ma () 255)'' ma () 255)'' ma()* 255)'
If(colorCode！='rgb(255，255，255)'){
布雷克；
}
}
中选择另一种天花板类型。
var str in names(for){
If(names[str]==name){
Flag=true
}
}
If(名称=='' | |名称==空){
var text=document . create text node('请先输入实际名称！'))；
(文本)；
}else if(flag==true){
Var text=document。“create text node (name '你好，恭喜七夕！”)；
(文本)；
} elseif(名称='你的名字'){
var text=document . create text node(' name '是很棒的比率！')；
(文本)；
}else{
var text=document . create text node('对不起。这个网站还没有“name”的祝福！”)；
(文本)；
}}
/脚本
/head
body style=' background : # eed 5d 2 '
div align=' center ' style=' background : yellow；Width:300px海特：200pxMargin:0 autoBox-shadow :3 3blue '
divstyle=' width 3360100%；“海特：35%；”/div
div aligin=' center ' style=' font-family :仿歌；请输入' font-size 336020 px '名称：input id=' name ' type=' text '/input/div
input type=' button ' style=' box-shadow :3 3 blue ' value='确定' onclick=' display ()'/
/div
Div id='show' align=
"center" style="height:500px;width:900px;;margin:0 auto;background:#F5FFFA;box-shadow:3 3 3 blue;font-size:20px;font-family:仿宋;vertical-align:middle;word-wrap:break-word;overflow:hidden;line-height:50px;line-height:500px"><h1>七夕快乐！<h1>
</div>
</body>
</html>
上面“男神的名字”，“女神的名字”就是你要表白的对象，“你好，七夕快乐”那里就是你要说的情话……新建一个txt文件，也就是记事本文档文件，然后打开把上面这些代码复制粘贴进去，保存后关闭，然后把文件名改成“*.html”，也就是把后缀名改成html，就可以啦。然后双击点击运行就可以了。
2、vbs表白
有人说上面那个程序没意思，太不好玩了，那下面来一个强势一点的。
执行代码后，会停留在一个页面。必须要输入“喜羊羊我爱你”，否则会一直停留在这个界面，并且在251秒之后自动关机。输入正确内容之后，程序才会自动解除。
下面直接上代码：
On Error Resume Next
Dim WSHshellA
MsgBox Chr(13) + Chr(13) + Chr(13) + "宝贝，你好，用这种方式和你说话实属无赖，在你面前我不敢说，现在通过计算机来表达我想对你说的话。"
MsgBox Chr(13) + Chr(13) + Chr(13) + "你不想看完也不行，因为你关不掉这个软件的"
MsgBox Chr(13) + Chr(13) + Chr(13) + "一生数十载，缘起缘灭，情深情浅，且行且珍惜"
MsgBox Chr(13) + Chr(13) + Chr(13) + "一年四季变幻莫测，花开花败，不变的是我对你的真情"
MsgBox Chr(13) + Chr(13) + Chr(13) + "一天早中晚，日出日落，日月轮回，循环着我对你的思念"
MsgBox Chr(13) + Chr(13) + Chr(13) + "一生太长，我们慢慢地过"
MsgBox Chr(13) + Chr(13) + Chr(13) + "一天太短，我们用心地过"
MsgBox Chr(13) + Chr(13) + Chr(13) + "佛说前世五百次的回眸，换得今生的相识"
MsgBox Chr(13) + Chr(13) + Chr(13) + "遇见你，是我最美丽的意外"
Set WSHshellA = w("w;)
WSH "cmd.exe /c shutdown -r -t 251 -c ""宝贝我给你521秒的时间考虑下，你如果爱我就输入喜羊羊我爱你，当251秒过后，电脑将自动关机，这不是病毒，对你没有任何伤害，重启后此程序就结束了"" ", 0, True
Dim a
Do While (a <> "喜羊羊我爱你")
a = InputBox("请你输入:喜羊羊我爱你，快撒，求你说 ""喜羊羊我爱你"" ", "请输入", "爱我吗？", 8000, 7000)
MsgBox Chr(13) + Chr(13) + Chr(13) + a, 0, "MsgBox"
Loop
MsgBox Chr(13) + Chr(13) + Chr(13) + "真的吗？你说了你爱我？"
MsgBox Chr(13) + Chr(13) + Chr(13) + "我要马上出现在你身边，给我打个电话130********"
Dim WSHshell
Set WSHshell = w("w;)
WSH "cmd.exe /c shutdown -a", 0, True
MsgBox Chr(13) + Chr(13) + Chr(13) + "宝宝是不是又帅啦？？"
MsgBox Chr(13) + Chr(13) + Chr(13) + "宝贝等我，我马上来！！
上面的文字部分都是你可以自己改的，但是请注意双引号一定要用英文的，所以改的时候最好别去掉双引号！！…… 新建一个txt文件，也就是记事本文档文件，然后打开把上面这些代码复制粘贴进去，保存后关闭，然后把文件名改成“*.vbs”，也就是把后缀名改成vbs，就可以啦。然后双击点击运行就可以了。
但是这个程序太强势，所以杀毒软件都会屏蔽，鉴定为木马，但是我赌两包辣条的大血本，这绝对不是一个木马！所以需要把杀毒软件关掉，或者把这个程序添加为可信任软件。
好啦，程序全部讲完啦，你学会了吗？快去表白吧！
但是还有些注意事项哦。
注意1：以上代码的某些换行是必须的，所以换行最好都按照上面的规则来。
注意2：所有引号都是英文的双引号哦，所以为了避免出错，就不要改引号吧。
注意3：腾讯qq可能不能直接传html和vbs的文件，因为腾讯的安全监管很严很敏感，试试系统设置-安全设置-文件传输-安全级别低，设置为最低试试，或者用微信传输吧。