首页 > 网名大全 正文
程序员用的微信名字大全

时间:2023-02-13 01:27:12 阅读: 评论: 作者:佚名

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

七夕节快到了,电脑小白或新手程序员如何用程序表白?互相耀武扬威的今天我教你一招,同志们,收下吧!

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

  • 评论列表

发表评论: