天就是愚人节了,小编在第一时间收集了一些愚人节整人链接,教你怎么整同学,整男友,大家玩得开心就好。
愚人节整人链接
可以通过qq 编写一个比较诱惑的标题, 带上连接地址发给你的朋友 保证他上当
例子: XXX 震惊,陈冠希今晨在温哥华被枪杀,警方已进入调查! http://www.klss.cn/temp/cgx/
XXX为你朋友的名字,你可以在后面写上你的名字以免让他误以为这是不安全的网页!
愚人节搞笑网页地址http://www.klss.cn/temp/cgx/其他的就靠大家自由发挥啦!
还有这些:http://www.qc99.com/2013yurenjie.html
愚人节怎么整同学
在西方国家里,每年4月1日的“愚人节”意味着一个人可以玩弄各种小把戏而不必承担后果。叫一声“愚人节玩笑”你的恶作剧就会被原谅。当然,想过愚人节,就少不了好点子。观察者网在此收集了一些愚人节整人方法,大家可以一笑置之。
不过,像什么某某找你开会这种低级的方法就算了,咱能想点理科生的点子么?
1、愚人节整蛊之泡人头
(本点子由@冰火深处提供)
2、愚人节整蛊之三行情诗
(本点子由@金色葡萄@素食者提供)
3、愚人节整蛊之蓝色生死尿
(本点子由@C.CristataX 提供)
4、愚人节整蛊之发假消息
5、愚人节整蛊之502粘硬币!又名气死处女座
6、愚人节整蛊之反锁厕所门
(本点子由@玉子桑提供)
7、愚人节搞搞同事之把书翻过来!又名坑自己!
(本点子由@拇姬全球后援团提供)
8、愚人节整蛊之芥末饼干
(本点子由@人人喂我@突击熊猫寒地版提供)
9、愚人节整蛊之让鼠标失灵
(本点子由@完美偏执狂提供)
友情提示:不要在愚人节这天喝别人给的饮料……
BS是基于Visual Basic的脚本语言,简单方便,不需要下载编译器,更不需要配置环境,只用windows自带的记事本就可以进行开发,简单粗暴。
右键新建“文本文档”->粘贴代码->另存为“xxx.vbs”->保存->双击运行。
接下来就是代码了:
1.最简单的一行代码
msgbox "你个猪头!"
当然你还可以多写几行其他有趣的文字,程序将会一行一行运行。
2.死循环恶搞
上个代码点完“确定”就运行结束了,想要整人还是不够,那我们可以加一个死循环,点击确定和关闭按钮之后,会再一次弹出窗口,如此循环,无法正常关闭。
do msgbox "你个猪头!" loop
那怎么才能关闭呢?只有打开任务管理器(快捷键Ctrl+Alt+Delete)找到wscript.exe进程冰右键结束任务。windows7系统wscript.exe在”进程“中,windows10系统wscript.exe在”详细信息“中。
结束wscript.exe进程
3.无限英文报数从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连续发送信息骚扰好友
打开QQ,准确记下好友的备注,代码里的”菜鸡“替换为你的好友备注,数字”30“替换为你想要发送的次数,复制好你准备发送的消息,双击运行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.撩妹代码
只有再回答出设定好的名字是,循环才会结束
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
这些都是编程的入门级小程序,是不是很有趣?发给那个TA,给生活加点料~
以后将会更新界面更漂亮更有趣的HTML代码,欢迎关注小Y~
这就是今天的分享了,快去试试吧!
多人都被大大小小的一些有趣的小网页玩弄过吧!今天教大家用一个小文本写一个简单的恶搞网页!
炒鸡炒鸡简单哦!
第一:在电脑新建一个txt文件;
新建文本文件
第二:把下面的代码copy到文本文件里面,这些文字是可以随便修改的哦;然后把文件后缀改为html;
<html>
<head>
<title>网页特效---很恶心的常见整人效果</title>
</head>
<body>
<a href="" onMouseover="alert('为什么把鼠标放到这里?');
alert('我不是说过不可以这样吗?');
alert('你把我的话当什么了?');
alert('你知道错了吗?');
alert('什么?你居然....');
alert('居然还没意识到自己做错了?');
alert('那好,你要为此付出代价!');
alert('我要你在这里点足一千下......');
alert('什么?你开始有点后悔了?');
alert('何必呢?');
alert('你当初干什么去了?');
alert('不原谅你!');
alert('好从现在开始再点995下......');
alert('你的手开始累了吗?');
alert('什么?你已经没力气了?');
alert('你一直在求我原谅你啊!');
alert('看来你是真的知道错了!');
alert('下次你还会这么做吗?');
alert('真的不会了?');
alert('那好,今天就放你一马!');
alert('写封信给我说声对不起!');
alert('你能这么做我很高兴!!!');
document.bgColor='black';
document.fgColor='White';
window.location.href='mailto:mygod@god?subject=对不起,下次不敢了!';">不许把鼠标移到这里</a>
嘻试吧爽噢。。
</body>
</html>
就是这样子
第三:直接打开这个就好啦,不瞒你们说,小编刚刚打开的时候自己正在编写的文章重新写了一遍!
我就不展示运行效果了;
每天都会更新一篇简单的小软件 小程序呦! 不更你打我
*请认真填写需求信息,我们会在24小时内与您取得联系。