霸道總裁之代碼強(qiáng)勢(shì)表白

電腦小白也可以用程序追女神男神啦

七夕節(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è)置為最低試試严沥,或者用微信傳輸吧。

最后編輯于
?著作權(quán)歸作者所有,轉(zhuǎn)載或內(nèi)容合作請(qǐng)聯(lián)系作者
  • 序言:七十年代末中姜,一起剝皮案震驚了整個(gè)濱河市消玄,隨后出現(xiàn)的幾起案子,更是在濱河造成了極大的恐慌,老刑警劉巖莱找,帶你破解...
    沈念sama閱讀 216,843評(píng)論 6 502
  • 序言:濱河連續(xù)發(fā)生了三起死亡事件酬姆,死亡現(xiàn)場(chǎng)離奇詭異,居然都是意外死亡奥溺,警方通過(guò)查閱死者的電腦和手機(jī)辞色,發(fā)現(xiàn)死者居然都...
    沈念sama閱讀 92,538評(píng)論 3 392
  • 文/潘曉璐 我一進(jìn)店門(mén),熙熙樓的掌柜王于貴愁眉苦臉地迎上來(lái)浮定,“玉大人相满,你說(shuō)我怎么就攤上這事¤胱洌” “怎么了立美?”我有些...
    開(kāi)封第一講書(shū)人閱讀 163,187評(píng)論 0 353
  • 文/不壞的土叔 我叫張陵,是天一觀的道長(zhǎng)方灾。 經(jīng)常有香客問(wèn)我建蹄,道長(zhǎng),這世上最難降的妖魔是什么裕偿? 我笑而不...
    開(kāi)封第一講書(shū)人閱讀 58,264評(píng)論 1 292
  • 正文 為了忘掉前任洞慎,我火速辦了婚禮睬塌,結(jié)果婚禮上脯燃,老公的妹妹穿的比我還像新娘。我一直安慰自己仇轻,他們只是感情好鸟妙,可當(dāng)我...
    茶點(diǎn)故事閱讀 67,289評(píng)論 6 390
  • 文/花漫 我一把揭開(kāi)白布焦人。 她就那樣靜靜地躺著,像睡著了一般重父。 火紅的嫁衣襯著肌膚如雪花椭。 梳的紋絲不亂的頭發(fā)上,一...
    開(kāi)封第一講書(shū)人閱讀 51,231評(píng)論 1 299
  • 那天坪郭,我揣著相機(jī)與錄音个从,去河邊找鬼脉幢。 笑死歪沃,一個(gè)胖子當(dāng)著我的面吹牛,可吹牛的內(nèi)容都是我干的嫌松。 我是一名探鬼主播沪曙,決...
    沈念sama閱讀 40,116評(píng)論 3 418
  • 文/蒼蘭香墨 我猛地睜開(kāi)眼,長(zhǎng)吁一口氣:“原來(lái)是場(chǎng)噩夢(mèng)啊……” “哼萎羔!你這毒婦竟也來(lái)了液走?” 一聲冷哼從身側(cè)響起,我...
    開(kāi)封第一講書(shū)人閱讀 38,945評(píng)論 0 275
  • 序言:老撾萬(wàn)榮一對(duì)情侶失蹤,失蹤者是張志新(化名)和其女友劉穎缘眶,沒(méi)想到半個(gè)月后嘱根,有當(dāng)?shù)厝嗽跇?shù)林里發(fā)現(xiàn)了一具尸體,經(jīng)...
    沈念sama閱讀 45,367評(píng)論 1 313
  • 正文 獨(dú)居荒郊野嶺守林人離奇死亡巷懈,尸身上長(zhǎng)有42處帶血的膿包…… 初始之章·張勛 以下內(nèi)容為張勛視角 年9月15日...
    茶點(diǎn)故事閱讀 37,581評(píng)論 2 333
  • 正文 我和宋清朗相戀三年该抒,在試婚紗的時(shí)候發(fā)現(xiàn)自己被綠了。 大學(xué)時(shí)的朋友給我發(fā)了我未婚夫和他白月光在一起吃飯的照片顶燕。...
    茶點(diǎn)故事閱讀 39,754評(píng)論 1 348
  • 序言:一個(gè)原本活蹦亂跳的男人離奇死亡凑保,死狀恐怖,靈堂內(nèi)的尸體忽然破棺而出涌攻,到底是詐尸還是另有隱情欧引,我是刑警寧澤,帶...
    沈念sama閱讀 35,458評(píng)論 5 344
  • 正文 年R本政府宣布恳谎,位于F島的核電站芝此,受9級(jí)特大地震影響,放射性物質(zhì)發(fā)生泄漏因痛。R本人自食惡果不足惜癌蓖,卻給世界環(huán)境...
    茶點(diǎn)故事閱讀 41,068評(píng)論 3 327
  • 文/蒙蒙 一、第九天 我趴在偏房一處隱蔽的房頂上張望婚肆。 院中可真熱鬧租副,春花似錦、人聲如沸较性。這莊子的主人今日做“春日...
    開(kāi)封第一講書(shū)人閱讀 31,692評(píng)論 0 22
  • 文/蒼蘭香墨 我抬頭看了看天上的太陽(yáng)赞咙。三九已至责循,卻和暖如春,著一層夾襖步出監(jiān)牢的瞬間攀操,已是汗流浹背院仿。 一陣腳步聲響...
    開(kāi)封第一講書(shū)人閱讀 32,842評(píng)論 1 269
  • 我被黑心中介騙來(lái)泰國(guó)打工, 沒(méi)想到剛下飛機(jī)就差點(diǎn)兒被人妖公主榨干…… 1. 我叫王不留速和,地道東北人歹垫。 一個(gè)月前我還...
    沈念sama閱讀 47,797評(píng)論 2 369
  • 正文 我出身青樓,卻偏偏與公主長(zhǎng)得像颠放,于是被迫代替她去往敵國(guó)和親排惨。 傳聞我的和親對(duì)象是個(gè)殘疾皇子,可洞房花燭夜當(dāng)晚...
    茶點(diǎn)故事閱讀 44,654評(píng)論 2 354

推薦閱讀更多精彩內(nèi)容

  • 《ijs》速成開(kāi)發(fā)手冊(cè)3.0 官方用戶(hù)交流:iApp開(kāi)發(fā)交流(1) 239547050iApp開(kāi)發(fā)交流(2) 10...
    葉染柒丶閱讀 5,126評(píng)論 0 7
  • importUIKit classViewController:UITabBarController{ enumD...
    明哥_Young閱讀 3,805評(píng)論 1 10
  • 1.1 VBA是什么 直到90年代早期,使應(yīng)用程序自動(dòng)化還是充滿(mǎn)挑戰(zhàn)性的領(lǐng)域.對(duì)每個(gè)需要自動(dòng)化的應(yīng)用程序,人們不得...
    浮浮塵塵閱讀 21,744評(píng)論 6 49
  • 1. tab列表折疊效果 html: 能源系統(tǒng)事業(yè)部 崗位名稱(chēng): 工作地點(diǎn) 崗位名...
    lilyping閱讀 1,862評(píng)論 0 1
  • 是你努力想塞滿(mǎn)的那些 才最缺少碰凶。 曾經(jīng)為一瞬眼神暮芭、半幅背影而心跳 如今在方寸之間找尋自己 還遠(yuǎn)嗎鹿驼? 越來(lái)越小,越來(lái)...
    大軍兒閱讀 118評(píng)論 0 0