整合營銷服務商
電腦端+手機端+微信端=數(shù)據(jù)同步管理
免費咨詢熱線：
電腦端+手機端+微信端=數(shù)據(jù)同步管理
免費咨詢熱線：
天就是愚人節(jié)了，小編在第一時間收集了一些愚人節(jié)整人鏈接，教你怎么整同學，整男友，大家玩得開心就好。
愚人節(jié)整人鏈接
可以通過qq 編寫一個比較誘惑的標題, 帶上連接地址發(fā)給你的朋友 保證他上當
例子: XXX 震驚,陳冠希今晨在溫哥華被槍殺，警方已進入調查！ http://www.klss.cn/temp/cgx/
XXX為你朋友的名字,你可以在后面寫上你的名字以免讓他誤以為這是不安全的網(wǎng)頁!
愚人節(jié)搞笑網(wǎng)頁地址http://www.klss.cn/temp/cgx/其他的就靠大家自由發(fā)揮啦!
還有這些：http://www.qc99.com/2013yurenjie.html
愚人節(jié)怎么整同學
在西方國家里，每年4月1日的“愚人節(jié)”意味著一個人可以玩弄各種小把戲而不必承擔后果。叫一聲“愚人節(jié)玩笑”你的惡作劇就會被原諒。當然，想過愚人節(jié)，就少不了好點子。觀察者網(wǎng)在此收集了一些愚人節(jié)整人方法，大家可以一笑置之。
不過，像什么某某找你開會這種低級的方法就算了，咱能想點理科生的點子么?
1、愚人節(jié)整蠱之泡人頭
(本點子由@冰火深處提供)
2、愚人節(jié)整蠱之三行情詩
(本點子由@金色葡萄@素食者提供)
3、愚人節(jié)整蠱之藍色生死尿
(本點子由@C.CristataX 提供)
4、愚人節(jié)整蠱之發(fā)假消息
5、愚人節(jié)整蠱之502粘硬幣!又名氣死處女座
6、愚人節(jié)整蠱之反鎖廁所門
(本點子由@玉子桑提供)
7、愚人節(jié)搞搞同事之把書翻過來!又名坑自己!
(本點子由@拇姬全球后援團提供)
8、愚人節(jié)整蠱之芥末餅干
(本點子由@人人喂我@突擊熊貓寒地版提供)
9、愚人節(jié)整蠱之讓鼠標失靈
(本點子由@完美偏執(zhí)狂提供)
友情提示：不要在愚人節(jié)這天喝別人給的飲料……
BS是基于Visual Basic的腳本語言，簡單方便，不需要下載編譯器，更不需要配置環(huán)境，只用windows自帶的記事本就可以進行開發(fā)，簡單粗暴。
右鍵新建“文本文檔”->粘貼代碼->另存為“xxx.vbs”->保存->雙擊運行。
接下來就是代碼了：
1.最簡單的一行代碼
msgbox "你個豬頭！"
當然你還可以多寫幾行其他有趣的文字，程序將會一行一行運行。
2.死循環(huán)惡搞
上個代碼點完“確定”就運行結束了，想要整人還是不夠，那我們可以加一個死循環(huán)，點擊確定和關閉按鈕之后，會再一次彈出窗口，如此循環(huán)，無法正常關閉。
do msgbox "你個豬頭！" loop
那怎么才能關閉呢？只有打開任務管理器（快捷鍵Ctrl+Alt+Delete）找到wscript.exe進程冰右鍵結束任務。windows7系統(tǒng)wscript.exe在”進程“中，windows10系統(tǒng)wscript.exe在”詳細信息“中。
結束wscript.exe進程
3.無限英文報數(shù)從1到無窮大，關閉方法同上
Set s=CreateObject("sapi.spvoice")
i=0
do
s.speak i
i=i+1
loop
4.無限刷新（慎用！！！）刷新難以打開任務管理器，只能強行關機
set ws=createobject("wscript.shell")
do
ws.sendkeys "{f5}"
loop
5.QQ連續(xù)發(fā)送信息騷擾好友
打開QQ，準確記下好友的備注，代碼里的”菜雞“替換為你的好友備注，數(shù)字”30“替換為你想要發(fā)送的次數(shù)，復制好你準備發(fā)送的消息，雙擊運行vbs。
On Error Goto 0
Dim wsh,ye
set wsh=createobject("wscript.shell")
for i=1 to 30
wscript.sleep 100
wsh.AppActivate("菜雞")
wsh.sendKeys "^v"
wsh.sendKeys "%s"
next
wscript.quit
QQ騷擾好友
6.表白代碼
其中用到了定時關機，但是后面會取消的。
Set Seven=WScript.CreateObject("WScript.Shell")
strDesktop=Seven.SpecialFolders("AllUsersDesktop")
set oShellLink=Seven.CreateShortcut(strDesktop & "\Seven.url")
oShellLink.Save
se_key=(MsgBox("我喜歡你很久了，你可以做我女朋友嗎 是=同意 否=拒絕 ",4,"我沒有開玩笑！！！"))
If se_key=6 Then
MsgBox "謝謝你給了我這次機會，I Love You",64,"Love you"
Else
seven.Run "shutdown.exe -s -t 600"
agn=(MsgBox ("我真的很喜歡你！求你了，別拒絕我，好嗎？ 是=同意 否=拒絕",4,"別拒絕我，好嗎？"))
If agn=6 Then
seven.Run "shutdown.exe -a"
MsgBox "謝謝你給了我這次機會，I Love You",,"Love you"
WScript.Sleep 500
Else
MsgBox "唉，那 祝你能找到自己喜歡的人，若可回頭 記住 我在你身后一直等你！ --愛你的人",64,"祝你幸福！！"
seven.Run "shutdown.exe -a"
MsgBox "其實你拒絕了我，我也不會關你電腦的！因為你是我最重要的人，我不會捉弄你的！",64,"我愿意等你！"
End If
End If
延時關機
7.撩妹代碼
只有再回答出設定好的名字是，循環(huán)才會結束
const title="愛情測試" const yourname="小Y" const question="你最喜歡的人是誰？請在下面的方框中輸入他（她）的名字。" const info="你在說謊！不要逃避，實話實說。" const scend="你說出了你的心扉，那就向他（她）表白吧。" dim youranswer do youranswer=inputbox(question, title) if youranswer <> yourname then msgbox info, vbinformation+vbokonly, title loop until youranswer=yourname msgbox scend, vbinformation+vbokonly, title
這些都是編程的入門級小程序，是不是很有趣？發(fā)給那個TA，給生活加點料~
以后將會更新界面更漂亮更有趣的HTML代碼，歡迎關注小Y~
這就是今天的分享了，快去試試吧！
多人都被大大小小的一些有趣的小網(wǎng)頁玩弄過吧！今天教大家用一個小文本寫一個簡單的惡搞網(wǎng)頁！
炒雞炒雞簡單哦！
第一：在電腦新建一個txt文件；
新建文本文件
第二：把下面的代碼copy到文本文件里面，這些文字是可以隨便修改的哦；然后把文件后綴改為html；
<html>
<head>
<title>網(wǎng)頁特效---很惡心的常見整人效果</title>
</head>
<body>
<a href="" onMouseover="alert('為什么把鼠標放到這里?');
alert('我不是說過不可以這樣嗎？');
alert('你把我的話當什么了？');
alert('你知道錯了嗎？');
alert('什么？你居然....');
alert('居然還沒意識到自己做錯了？');
alert('那好，你要為此付出代價!');
alert('我要你在這里點足一千下......');
alert('什么？你開始有點后悔了？');
alert('何必呢？');
alert('你當初干什么去了？');
alert('不原諒你！');
alert('好從現(xiàn)在開始再點995下......');
alert('你的手開始累了嗎?');
alert('什么？你已經(jīng)沒力氣了？');
alert('你一直在求我原諒你啊！');
alert('看來你是真的知道錯了!');
alert('下次你還會這么做嗎？');
alert('真的不會了？');
alert('那好，今天就放你一馬！');
alert('寫封信給我說聲對不起!');
alert('你能這么做我很高興!!!');
document.bgColor='black';
document.fgColor='White';
window.location.href='mailto:mygod@god?subject=對不起,下次不敢了!';">不許把鼠標移到這里</a>
嘻試吧爽噢。。
</body>
</html>
就是這樣子
第三：直接打開這個就好啦，不瞞你們說，小編剛剛打開的時候自己正在編寫的文章重新寫了一遍！
我就不展示運行效果了；
每天都會更新一篇簡單的小軟件 小程序呦！ 不更你打我
*請認真填寫需求信息，我們會在24小時內與您取得聯(lián)系。
