電腦小白也可以用程序追女神男神啦
七夕節(jié)到了皿哨,電腦小白或者新手程序員如何用程序表白呢?互吾小編今天教你一招纽谒,同志們证膨,接招啦!
1鼓黔、網(wǎng)頁(yè)
這是一個(gè)效果圖央勒,可以看到不见,剛進(jìn)入頁(yè)面是一個(gè)“七夕快樂(lè)”的字樣,當(dāng)你輸入自己的名字就顯示“某某是個(gè)大帥比”什么的订歪,都是你可以設(shè)置的脖祈。然后當(dāng)你輸入一個(gè)你不認(rèn)識(shí)的人的名字的時(shí)候,就會(huì)出現(xiàn)“不好意思刷晋,本站還沒(méi)有對(duì)某某的祝父歉撸”,最后當(dāng)你輸入你想表白的那個(gè)人的名字的時(shí)候就會(huì)出現(xiàn)“某某眼虱,你好喻奥,七夕快樂(lè)!”也許有人說(shuō)捏悬,這話(huà)太撈了撞蚕,表白都這么弱勢(shì),情話(huà)你都可以自己改嘛9馈甥厦!好了,下面直接上代碼:
<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("請(qǐng)先輸入真實(shí)姓名!");
show.appendChild(text);
}else if(flag==true){
var text=document.createTextNode(name+"寇钉,你好刀疙,祝你七夕快樂(lè)!");
show.appendChild(text);
}else if(name=="你的名字"){
var text=document.createTextNode(name+"是個(gè)大帥比!");
show.appendChild(text);
}else{
var text=document.createTextNode("不好意思扫倡,本站還沒(méi)有對(duì)"+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" >請(qǐng)輸入你的姓名:<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>七夕快樂(lè)!<h1>
</div>
</body>
</html>
上面“男神的名字”撵溃,“女神的名字”就是你要表白的對(duì)象疚鲤,“你好,七夕快樂(lè)”那里就是你要說(shuō)的情話(huà)……新建一個(gè)txt文件缘挑,也就是記事本文檔文件集歇,然后打開(kāi)把上面這些代碼復(fù)制粘貼進(jìn)去,保存后關(guān)閉语淘,然后把文件名改成“*.html”诲宇,也就是把后綴名改成html,就可以啦亏娜。然后雙擊點(diǎn)擊運(yùn)行就可以了焕窝。
2、vbs表白
有人說(shuō)上面那個(gè)程序沒(méi)意思维贺,太不好玩了它掂,那下面來(lái)一個(gè)強(qiáng)勢(shì)一點(diǎn)的。
執(zhí)行代碼后,會(huì)停留在一個(gè)頁(yè)面虐秋。必須要輸入“喜羊羊我愛(ài)你”榕茧,否則會(huì)一直停留在這個(gè)界面,并且在251秒之后自動(dòng)關(guān)機(jī)客给。輸入正確內(nèi)容之后用押,程序才會(huì)自動(dòng)解除。
下面直接上代碼:
On Error Resume Next
Dim WSHshellA
MsgBox Chr(13) + Chr(13) + Chr(13) + "寶貝靶剑,你好蜻拨,用這種方式和你說(shuō)話(huà)實(shí)屬無(wú)賴(lài),在你面前我不敢說(shuō)桩引,現(xiàn)在通過(guò)計(jì)算機(jī)來(lái)表達(dá)我想對(duì)你說(shuō)的話(huà)缎讼。"
MsgBox Chr(13) + Chr(13) + Chr(13) + "你不想看完也不行,因?yàn)槟汴P(guān)不掉這個(gè)軟件的"
MsgBox Chr(13) + Chr(13) + Chr(13) + "一生數(shù)十載坑匠,緣起緣滅血崭,情深情淺,且行且珍惜"
MsgBox Chr(13) + Chr(13) + Chr(13) + "一年四季變幻莫測(cè)厘灼,花開(kāi)花敗夹纫,不變的是我對(duì)你的真情"
MsgBox Chr(13) + Chr(13) + Chr(13) + "一天早中晚,日出日落设凹,日月輪回舰讹,循環(huán)著我對(duì)你的思念"
MsgBox Chr(13) + Chr(13) + Chr(13) + "一生太長(zhǎng),我們慢慢地過(guò)"
MsgBox Chr(13) + Chr(13) + Chr(13) + "一天太短围来,我們用心地過(guò)"
MsgBox Chr(13) + Chr(13) + Chr(13) + "佛說(shuō)前世五百次的回眸跺涤,換得今生的相識(shí)"
MsgBox Chr(13) + Chr(13) + Chr(13) + "遇見(jiàn)你匈睁,是我最美麗的意外"
Set WSHshellA = wscript.CreateObject("wscript.shell")
WSHshellA.run "cmd.exe /c shutdown -r -t 251 -c ""寶貝我給你521秒的時(shí)間考慮下监透,你如果愛(ài)我就輸入喜羊羊我愛(ài)你,當(dāng)251秒過(guò)后航唆,電腦將自動(dòng)關(guān)機(jī)胀蛮,這不是病毒,對(duì)你沒(méi)有任何傷害糯钙,重啟后此程序就結(jié)束了"" ", 0, True
Dim a
Do While (a <> "喜羊羊我愛(ài)你")
a = InputBox("請(qǐng)你輸入:喜羊羊我愛(ài)你粪狼,快撒,求你說(shuō) ""喜羊羊我愛(ài)你"" ", "請(qǐng)輸入", "愛(ài)我嗎任岸?", 8000, 7000)
MsgBox Chr(13) + Chr(13) + Chr(13) + a, 0, "MsgBox"
Loop
MsgBox Chr(13) + Chr(13) + Chr(13) + "真的嗎再榄?你說(shuō)了你愛(ài)我?"
MsgBox Chr(13) + Chr(13) + Chr(13) + "我要馬上出現(xiàn)在你身邊享潜,給我打個(gè)電話(huà)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) + "寶貝等我,我馬上來(lái)<簿汀澜术!
上面的文字部分都是你可以自己改的,但是請(qǐng)注意雙引號(hào)一定要用英文的猬腰,所以改的時(shí)候最好別去掉雙引號(hào)D穹稀!…… 新建一個(gè)txt文件姑荷,也就是記事本文檔文件盒延,然后打開(kāi)把上面這些代碼復(fù)制粘貼進(jìn)去,保存后關(guān)閉鼠冕,然后把文件名改成“*.vbs”兰英,也就是把后綴名改成vbs,就可以啦供鸠。然后雙擊點(diǎn)擊運(yùn)行就可以了畦贸。
但是這個(gè)程序太強(qiáng)勢(shì),所以殺毒軟件都會(huì)屏蔽楞捂,鑒定為木馬薄坏,但是我賭兩包辣條的大血本,這絕對(duì)不是一個(gè)木馬寨闹!所以需要把殺毒軟件關(guān)掉胶坠,或者把這個(gè)程序添加為可信任軟件。
好啦繁堡,程序全部講完啦沈善,你學(xué)會(huì)了嗎?快去表白吧椭蹄!
但是還有些注意事項(xiàng)哦闻牡。
注意1:以上代碼的某些換行是必須的,所以換行最好都按照上面的規(guī)則來(lái)绳矩。
注意2:所有引號(hào)都是英文的雙引號(hào)哦罩润,所以為了避免出錯(cuò),就不要改引號(hào)吧翼馆。
注意3:騰訊qq可能不能直接傳html和vbs的文件割以,因?yàn)轵v訊的安全監(jiān)管很?chē)?yán)很敏感,試試系統(tǒng)設(shè)置-安全設(shè)置-文件傳輸-安全級(jí)別低应媚,設(shè)置為最低試試严沥,或者用微信傳輸吧。