自己写了一个,但是不能用代理,要配合proxifier。
不一定所有服务器都支持 您先试一下
保存为bat文件,图片地址放在同目录下1.txt里,第一行留空,从第二行开始下。
复制代码- set Save=%cd%
set /a i=1 :again for /f "skip=%i% delims=" %%a in (1.txt) do ( set Url=%%~a goto next ) :next for %%a in ("%Url%") do set "FileName=%i%.jpg" if not defined Save set "Save=%cd%" (echo Download Wscript.Arguments^(0^),Wscript.Arguments^(1^) echo Sub Download^(url,target^) echo Const adTypeBinary = 1 echo Const adSaveCreateOverWrite = 2 echo Dim http,ado echo Set http = CreateObject^("Msxml2.ServerXMLHTTP"^) echo http.open "GET",url,False echo http.send echo Set ado = createobject^("Adodb.Stream"^) echo ado.Type = adTypeBinary echo ado.Open echo ado.Write http.responseBody echo ado.SaveToFile target echo ado.Close echo End Sub)>DownloadFile.vbs DownloadFile.vbs "%Url%" "%Save%\%FileName%"
set /a i=%i%+1 goto again
|