10-ка от них очень мало чем отличаетсякроме 7 и 8
wget --ca-certificate=cacert.pem --no-clobber --tries=3 --directory-prefix="download" -i files.txt
@echo off
SetLocal EnableExtensions
md "download" 2>NUL
cd "download"
for /f "UseBackQ" %%a in ("..\files.txt") do call :Download "%%a"
pause
:Download [http-file]
call :GetLastToken "%~1"
if not exist "%ret%" (
echo Downloading: "%~1"
..\curl -# --cacert "..\cacert.pem" -O "%~1"
)
exit /b
:GetLastToken [string]
for /f "tokens=1* delims=/" %%a in ("%~1") do if "%%b"=="" (set "ret=%%a") else (call :GetLastToken "%%b")
exit /b
Здесь я ошибся. Так может делать только wget, и то только с учётом что ссылки на эти файлы будут находится в теле одного из html-файлов.И список не нужен. Утиль сам может скачивать все файлы в указанной папке.
Если там весь трафик может течь только через прокси, то wget будет тянуть напрямую, если ей не указать сервер.На данный момент скрипт буквально в 1 строку работает,затык только в сети внутри компании - там ошибка по итогу,я думаю это проблема уже внутри сети.
for %%N in (ProxyServer ProxyOverride ProxyEnable) do For /F "Tokens=2*" %%A In ('Reg.exe Query "%hive%" ^| Find /I "%%N"') do set "%%N=%%B"
if "%ProxyEnable%"=="0x1" set "wgetProxy=-e use_proxy=yes"
set "ProxyProtocol=-e ftp_proxy=%ProxyServer%"
set "ProxyProtocol=-e http_proxy=%ProxyServer%"
set "ProxyProtocol=-e https_proxy=%ProxyServer%"
wget ... %wgetProxy% %ProxyProtocol% ...
-nc это и есть сокращенный алиас --no-clobberWget я вместо списка пока опробовал -n и -nc.
@echo off
title ***
cd /d "%~dp0"
chcp 866 >nul
:::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::
set m.msg=^
Скачать свежие фото и описания товаров каталога ? ^&^ ^&^
Нажмите ДА если согласны начать загрузку ^&^
Нажмите НЕТ для отмены операции
cmd /U /C echo Wscript.Echo Msgbox^(replace^(Wscript.Arguments^(0^),"&",vbLF^),68,"Внимание!"^)>"msgbox.vbs"
for /f %%a in ('cscript "msgbox.vbs" "%m.msg%"^& del "msgbox.vbs"') do set err=%%a
if "%err%"=="2" call :GoOc
if "%err%"=="6" call :GoOc & call :arbite
if "%err%"=="7" call :GoOc
exit /b
:::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::
:arbite
set hive=HKCU\Software\Microsoft\Windows\CurrentVersion\Internet Settings
for %%N in (ProxyServer ProxyOverride ProxyEnable) do For /F "Tokens=2*" %%A In ('Reg.exe Query "%hive%" ^| Find /I "%%N"') do set "%%N=%%B"
if "%ProxyEnable%"=="0x1" set "wgetProxy=-e use_proxy=yes"
set "ProxyProtocol=-e ftp_proxy=%ProxyServer%"
::set "ProxyProtocol=-e http_proxy=%ProxyServer%"
::set "ProxyProtocol=-e https_proxy=%ProxyServer%"
wget -P "%~dp0/Images" %wgetProxy% %ProxyProtocol% --user=clients --password=**** -A jpg -nc --progress=bar:force ftp://*****/images/*
wget -P "%~dp0/Docs" %wgetProxy% %ProxyProtocol% --user=clients --password=**** -A rtf -nc --progress=bar:force ftp://******/docs/*
exit /b
:GoOc
start Cat.exe
exit /B
1. Сработала антивирусная защита.На некоторых пк не выдается диалоговое окно с вопросом и скрипт тупо закрывается.
Выглядит, как попытка доступа через прокси. Смотри, что там в настройках. Пробуй через ком. строку вручную подобрать правильную команду.192.168.***.*.:2080
Нет коннекта
Тоже пока в думках
We use cookies and similar technologies for the following purposes:
Do you accept cookies and these technologies?
We use cookies and similar technologies for the following purposes:
Do you accept cookies and these technologies?