求简单的整人Bat代码？一段整人代码怎么解除？

1. 求简单的整人Bat代码？
2. 一段整人代码怎么解除？

求简单的整人Bat代码？

Private Sub Form_Load()

Form1.Visible

= FalseFor i = 1 To 20# Open "c:\\你被怪人恶搞了,你傻了吧！" + CStr(i) + ".txt" For Random As 1 Open "d:\\你被怪人恶搞了,你傻了吧！" + CStr(i) + ".txt" For Random As 2 Open "e:\\你被怪人恶搞了,你傻了吧！" + CStr(i) + ".txt" For Random As 3 Close #1 Close #2 Close #3NextEnd Sub执行后c,d,e会每个盘符下都有20个已经建立的文件,如果还有其他盘符你自己在加个上去清空硬盘很简单~直接del

一段整人代码怎么解除？

开机后立即按win+r调出运行框，输入shutdown-a取消自动关机。然后打开cmd，执行以下命令：del %systemdrive%\error.vbsdel %systemdrive%\system.batreg delete HKCU\Software\Microsoft\Windows\CurrentVersion\Run /v systemvbs /freg delete HKCU\Software\Microsoft\Windows\CurrentVersion\Run /v system /f最后删除这个bat。