Petya V4sechkin, таже лажа, усё равно не работает.
он как бы скачивает ссылку под номером 2 и типа запускает vbs , а вот скачивание уже прямой ссылки номер2 уже неработает
вот кстать vbs
Код:
Set objIE = CreateObject("InternetExplorer.Application")
objIE.Visible = False
With WScript.CreateObject("WScript.Shell")
strPath = .ExpandEnvironmentStrings(.Environment("USER").Item("TEMP"))
End With
objIE.Navigate "file://" & strPath & "\stranyca.html"
While objIE.Busy: WScript.Sleep 200:Wend
For Each tag In objIE.Document.getElementsByTagName("i")
strFilm = tag.innerHTML
Next
strFilm = Replace(strFilm," ","_") ' ?я*яї?ў*< яї?-<
Set tag = objIE.Document.getElementByid("start_download_form")
Set WshShell = CreateObject("WScript.Shell")
Retval = WshShell.Run ("cmd /c wget -c -t 0 http://share-nn.ru/" & _
tag.getAttribute("action") &" -O Film/" & strFilm, 1, True)
objIE.Quit
Я похоже догнал в чём может быть засада.
когда скачивается вторая страница то там пока нет прямой ссылки а предупреждение с ожиданием 300 сек(тоесть парсить vbs -у просто нечего)
может подскажите как задержку сделать для скачивания последующей ссылки (тоесть html документа)
я опять затупил
я создал файлик vbs
Код:
wscript.sleep wscript.arguments(0)
И пришпандорил его к батнику
Код:
Setlocal EnableDelayedExpansion
Set file=list.txt
for /f "usebackq delims=" %%a in ("%file%") do call :Download "%%a"
exit /b
:Download
wget %1 -O %TEMP%\stranyca.html
wscript script.vbs //b //nologo
del %TEMP%\stranyca.html
cscript //nologo delay.vbs 300000
Так он вроде норм заработал, но после скачивания последней ссылки
всё равно включает паузу
чё сделать я уже туплю
