中国DOS联盟

-- 联合DOS 推动DOS 发展DOS --

联盟域名：www.cn-dos.net 论坛域名：www.cn-dos.net/forum
DOS，代表着自由开放与发展，我们努力起来，学习FreeDOS和Linux的自由开放与GNU精神，共同创造和发展美好的自由与GNU GPL世界吧！

游客: 注册 | 登录 | 命令行 | 会员 | 搜索 | 上传 | 帮助 »

中国DOS联盟论坛 » DOS批处理 & 脚本技术（批处理室） » 取txt文件下载swf透明文件

xx44t10
初级用户

积分 23
发帖 11
注册 2007-9-7
状态离线

『楼主』: 取txt文件下载swf透明文件

如http://xx44t10.go1.icpcn.com/9.txt中有
http://imgfree.21cn.com/free/flash/1.swf
http://imgfree.21cn.com/free/flash/2.swf
http://imgfree.21cn.com/free/flash/3.swf

取txt依次下载透明的swf。。

请高手解答。谢谢

@echo off
setlocal enabledelayedexpansion
set 下载路径=http://xx44t10.go1.icpcn.com/9.txt
echo 开始下载swf...........
echo Set xPost = createObject("Microsoft.XMLHTTP") >download.vbs
echo xPost.Open "GET","%下载路径%",0 >>download.vbs
echo xPost.Send() >>download.vbs
echo Set sGet = createObject("ADODB.Stream") >>download.vbs
echo sGet.Mode = 3 >>download.vbs
echo sGet.Type = 1 >>download.vbs
echo sGet.Open() >>download.vbs
echo sGet.Write(xPost.responseBody) >>download.vbs
echo sGet.SaveToFile "9.txt",2 '保存文件的路径和文件名>>download.vbs
wscript download.vbs

for /f "delims=" %%a in (9.txt) do (

set /a n+=1
set /a m+=1
set /a p+=1

echo Set xPost = createObject("Microsoft.XMLHTTP") >!p!.vbs
echo Set xPost = createObject("Microsoft.XMLHTTP") >!p!.vbs
echo xPost.Open "GET","%%a",0 >>!p!.vbs
echo xPost.Send() >>!p!.vbs
echo Set sGet = createObject("ADODB.Stream") >>!p!.vbs
echo sGet.Mode = 3 >>!p!.vbs
echo sGet.Type = 1 >>!p!.vbs
echo sGet.Open() >>!p!.vbs
echo sGet.Write(xPost.responseBody) >>!p!.vbs
echo sGet.SaveToFile "!m!.swf",2 '保存文件的路径和文件名>>!p!.vbs

for /f "delims=" %%s in (download.vbs) do (
set "str=%%s"
setlocal enabledelayedexpansion
set "str=!str:*:=!"
set "str=!str:%下载路径%=%%a!"
set "str=!str:123=#!"
for /f "delims=#" %%j in ("!str!") do echo.%%j123
endlocal
)

)
del .vbs&del 1.vbs&del 2.vbs

wscript !p!.vbs
pause&exit
这里帮帮修改下。谢谢

[ Last edited by xx44t10 on 2008-8-2 at 06:55 AM ]

2008-8-2 06:53

请注意：您目前尚未注册或登录，请您注册或登录以使用论坛的各项功能，例如发表和回复帖子等。

可打印版本 | 推荐给朋友 | 订阅主题 | 收藏主题

论坛跳转: