電腦小白也可以用程序追女神男神啦
七夕節(jié)到了，電腦小白或者新手程序員如何用程序表白呢？互吾小編今天教你一招，同志們，接招啦！
1、網(wǎng)頁
這是一個效果圖，可以看到，剛進入頁面是一個“七夕快樂”的字樣，當你輸入自己的名字就顯示“某某是個大帥比”什么的，都是你可以設(shè)置的。然后當你輸入一個你不認識的人的名字的時候，就會出現(xiàn)“不好意思，本站還沒有對某某的祝?！保詈螽斈爿斎肽阆氡戆椎哪莻€人的名字的時候就會出現(xiàn)“某某，你好，七夕快樂！”也許有人說，這話太撈了，表白都這么弱勢，情話你都可以自己改嘛！！好了，下面直接上代碼：
<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文件，也就是記事本文檔文件，然后打開把上面這些代碼復(fù)制粘貼進去，保存后關(guān)閉，然后把文件名改成“*.html”，也就是把后綴名改成html，就可以啦。然后雙擊點擊運行就可以了。
2、vbs表白
有人說上面那個程序沒意思，太不好玩了，那下面來一個強勢一點的。
執(zhí)行代碼后，會停留在一個頁面。必須要輸入“喜羊羊我愛你”，否則會一直停留在這個界面，并且在251秒之后自動關(guān)機。輸入正確內(nèi)容之后，程序才會自動解除。
下面直接上代碼：
On Error Resume Next
Dim WSHshellA
MsgBox Chr(13) + Chr(13) + Chr(13) + "寶貝，你好，用這種方式和你說話實屬無賴，在你面前我不敢說，現(xiàn)在通過計算機來表達我想對你說的話。"
MsgBox Chr(13) + Chr(13) + Chr(13) + "你不想看完也不行，因為你關(guān)不掉這個軟件的"
MsgBox Chr(13) + Chr(13) + Chr(13) + "一生數(shù)十載，緣起緣滅，情深情淺，且行且珍惜"
MsgBox Chr(13) + Chr(13) + Chr(13) + "一年四季變幻莫測，花開花敗，不變的是我對你的真情"
MsgBox Chr(13) + Chr(13) + Chr(13) + "一天早中晚，日出日落，日月輪回，循環(huán)著我對你的思念"
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秒過后，電腦將自動關(guān)機，這不是病毒，對你沒有任何傷害，重啟后此程序就結(jié)束了"" ", 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) + "我要馬上出現(xiàn)在你身邊，給我打個電話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文件，也就是記事本文檔文件，然后打開把上面這些代碼復(fù)制粘貼進去，保存后關(guān)閉，然后把文件名改成“*.vbs”，也就是把后綴名改成vbs，就可以啦。然后雙擊點擊運行就可以了。
但是這個程序太強勢，所以殺毒軟件都會屏蔽，鑒定為木馬，但是我賭兩包辣條的大血本，這絕對不是一個木馬！所以需要把殺毒軟件關(guān)掉，或者把這個程序添加為可信任軟件。
好啦，程序全部講完啦，你學(xué)會了嗎？快去表白吧！
但是還有些注意事項哦。
注意1：以上代碼的某些換行是必須的，所以換行最好都按照上面的規(guī)則來。
注意2：所有引號都是英文的雙引號哦，所以為了避免出錯，就不要改引號吧。
注意3：騰訊qq可能不能直接傳html和vbs的文件，因為騰訊的安全監(jiān)管很嚴很敏感，試試系統(tǒng)設(shè)置-安全設(shè)置-文件傳輸-安全級別低，設(shè)置為最低試試，或者用微信傳輸吧。
