记事本html表白,霸道总裁之代码强势表白

该楼层疑似违规已被系统折叠 隐藏此楼查看此楼

电脑小白也可以用程序追女神男神啦

七夕节到了，电脑小白或者新手程序员如何用程序表白呢？互吾小编今天教你一招，同志们，接招啦！

1、网页

这是一个效果图，可以看到，刚进入页面是一个“七夕快乐”的字样，当你输入自己的名字就显示“某某是个大帅比”什么的，都是你可以设置的。然后当你输入一个你不认识的人的名字的时候，就会出现“不好意思，本站还没有对某某的祝福”，最后当你输入你想表白的那个人的名字的时候就会出现“某某，你好，七夕快乐！”也许有人说，这话太捞了，表白都这么弱势，情话你都可以自己改嘛！！好了，下面直接上代码：

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+"，你好，祝你七夕快乐!");

}else if(name=="你的名字"){

var text=document.createTextNode(name+"是个大帅比！");

}else{

var text=document.createTextNode("不好意思，本站还没有对"+name+"的祝福！");

}}

请输入你的姓名：

七夕快乐！

上面“男神的名字”，“女神的名字”就是你要表白的对象，“你好，七夕快乐”那里就是你要说的情话……新建一个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

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的文件，因为腾讯的安全监管很严很敏感，试试系统设置-安全设置-文件传输-安全级别低，设置为最低试试，或者用微信传输吧。