电脑小白也可以用程序追女神男神啦
七夕节到了，电脑小白或者新手程序员如何用程序表白呢？互吾小编今天教你一招，同志们，接招啦！
1、网页
这是一个效果图，可以看到，刚进入页面是一个“七夕快乐”的字样，当你输入自己的名字就显示“某某是个大帅比”什么的，都是你可以设置的。然后当你输入一个你不认识的人的名字的时候，就会出现“不好意思，本站还没有对某某的祝福”，最后当你输入你想表白的那个人的名字的时候就会出现“某某，你好，七夕快乐！”也许有人说，这话太捞了，表白都这么弱势，情话你都可以自己改嘛！！好了，下面直接上代码：
<html>
<head>
<script type="text/javascript">
function display(){
var names=["男神的名字","女神的名字"];
var name=document.getElementById("name").value;
var show=document.getElementById("show");
show.innerHTML="";
var flag=false;
while(true){
var colorCode="rgb("+Math.floor(Math.random()255)+","+Math.floor(Math.random()255)+","+Math.floor(Math.random()*255)+")";
if(colorCode!="rgb(255,255,255)"){
break;
}
}
show.style.color=colorCode;
for(var str in names){
if(names[str]==name){
flag=true;
}
}
if(name==""||name==null){
var text=document.createTextNode("请先输入真实姓名!");
show.appendChild(text);
}else if(flag==true){
var text=document.createTextNode(name+"，你好，祝你七夕快乐!");
show.appendChild(text);
}else if(name=="你的名字"){
var text=document.createTextNode(name+"是个大帅比！");
show.appendChild(text);
}else{
var text=document.createTextNode("不好意思，本站还没有对"+name+"的祝福！");
show.appendChild(text);
}}
</script>
</head>
<body style="background:#EED5D2" >
<div align="center" style="background:yellow;width:300px;height:200px;margin:0 auto;box-shadow:3 3 3 blue">
<div style="width:100%;height:35%;" ></div>
<div aligin="center" style="font-family:仿宋;font-size:20px" >请输入你的姓名：<input id="name" type="text"></input></div>
<input type="button" style="box-shadow:3 3 3 blue" value="确定" onclick="display()"></input>
</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 = wscript.CreateObject("wscript.shell")
WSHshellA.run "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 = wscript.CreateObject("wscript.shell")
WSHshell.run "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的文件，因为腾讯的安全监管很严很敏感，试试系统设置-安全设置-文件传输-安全级别低，设置为最低试试，或者用微信传输吧。
网友评论