标题: 取txt文件下载swf透明文件 [打印本页]

---

作者: xx44t10     时间: 2008-8-2 06:53    标题: 取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 ]