[alexmoreman]

deepred,
блин незнаю в чём у меня беда.. убрал я эти строки идет запуск качалки , идут попытки соединиться с сервером то на 3 попытке то на 5 или 7 вырубается wget и все

[deepred]

alexmoreman,


а при запуске wget из CMD также?

попробуйте применить в коде следующее изменение "cmd /c"

[alexmoreman]

я решил проверить на другом файле, вроде пошло...
правда соединение прошло с 3 попытки
deepred , а в таком виде можно оставить код?

Код:

Set objIE = CreateObject("InternetExplorer.Application")
objIE.Visible = False
objIE.Navigate "E:\WGET\111.html"
While objIE.Busy
    WScript.Sleep 200
Wend
Set tag = objIE.Document.getElementByid("start_download_form")
Set WshShell = CreateObject("WScript.Shell")
Retval = WshShell.Run ("wget -c -t 0 http://share-nn.ru/" & _ 
tag.getAttribute("action") &" -O Fail.avi", 1, True)

без последней строки а то с ней ошибка лезет.
а вот ты спросил про CMD? как оно лучше

Код:

так:
Retval = WshShell.Run ("wget -c -t 0 http://share-nn.ru/" & _ 
tag.getAttribute("action") &" -O Fail.avi", 1, True)
или
Retval = WshShell.Run ("cmd /c wget -c -t 0 http://share-nn.ru/" & _
tag.getAttribute("action") &" -O Fail.avi", 1, True)

и вопрос cmd /c cmd это вызов командной, а вот /с это не совсем догнал (путь до качалки?)

[deepred]

alexmoreman,

Если последний вариант у Вас работает, то можете его оставать, только в верните в конце строчку:

Код:

 objIE.Quit

, internet explorer все-таки следует завершить...

cmd /c - ключ /с применяется для того, чтобы сеанс cmd не завершался по окончанию отработки команды,
я его применил только для наглядности (чтобы увидеть "слет" wget)


PS: а вариант "MSXML2.XMLHTTP" Вы не испытали?

[alexmoreman]

хорошо щас попробую.
получается к кодом но через раз ошибка вылазает , щас вуду есчё кумекать .

[alexmoreman]

deepred, гуру я реально туп и непонимаю откуда данный скрипт возьмёт ссылку на файл

Код:

Set oXMLHTTP = CreateObject("MSXML2.XMLHTTP")
StrTargetHtml = "Http://sait.ru/" & _
tag.getAttribute("action") & "/" & "Fail.avi"

oXMLHTTP.Open "GET", StrTargetHtml, 0

oXMLHTTP.Send
Set oADOStream = CreateObject("ADODB.Stream")
oADOStream.Mode = 3
oADOStream.Type = 1
oADOStream.Open
oADOStream.Write oXMLHTTP.responseBody
oADOStream.SaveToFile "F:\DL\Fail.avi", 2
WScript.Echo "Закачка завершена"

вообще просто удивительно интересно получается
создал 3 файла:
1. bat

Код:

wget -c -t 0 http://share-nn.ru/665552828 -O stranyca.html
start script.vbs

при его запуске скачивается страница и запускается vbs и выдаёт ошибку "строка: 9 символ:1"
запускаю второй bat
2.

Код:

start script.vbs

и без ошибки запускается wget и нормально начинается скачивание.
да ещё странность заметил что после запуска появляются характерные щелчки (типа как папка открывается или как страницы в браузере листаеш)
3. vbs

Код:

Set objIE = CreateObject("InternetExplorer.Application")
objIE.Visible = False
objIE.Navigate "E:\WGET\stranyca.html"
While objIE.Busy
    WScript.Sleep 200
Wend
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 Video/Film.avi", 1, True)
objIE.Quit

у меня прям загадка а не комп))

[deepred]

alexmoreman,

в таком виде ему её взять неоткуда (читай внимательней предыдущие посты):

Код:

Set objIE = CreateObject("InternetExplorer.Application")
objIE.Visible = False
objIE.Navigate "F:\rem\Primer.html"
While objIE.Busy
    WScript.Sleep 200
Wend
Set tag = objIE.Document.getElementByid("start_download_form")
WScript.Echo tag.getAttribute("action") ' смотрим то ли?

Set oXMLHTTP = CreateObject("MSXML2.XMLHTTP")
StrTargetHtml = "Http://sait.ru/" & _
tag.getAttribute("action") & "/" & "Fail.avi"

oXMLHTTP.Open "GET", StrTargetHtml, 0

oXMLHTTP.Send
Set oADOStream = CreateObject("ADODB.Stream")
oADOStream.Mode = 3
oADOStream.Type = 1
oADOStream.Open
oADOStream.Write oXMLHTTP.responseBody
oADOStream.SaveToFile "F:\DL\Fail.avi", 2
WScript.Echo "Закачка завершена"
objIE.Quit

[deepred]

alexmoreman,

Уважаемый!!!! Не надо скачивать страницу, выставьте в мой VBS-скрипт этот inet адрес...

Откуда берется ошибка не знаю, возможно просто не успевает загрузиться страница...
Щелчки и прочее может издавать IE (хотя и не должно такого быть)

и потом: для запуска vbscript следует использовать следующий синтаксис:

Код:

wscript //logo script.vbs

[alexmoreman]

deepred, да я сразу догадался так сделать но увы ошибка...
да бог с ней, слушай а после завершения работы в процессах не должен наверное оставаться iexplore.exe ?

[deepred]

alexmoreman,

alexmoreman, Если последний вариант у Вас работает, то можете его оставить, только в верните в конце строчку: Код: objIE.Quit , internet explorer все-таки следует завершить... »

Будьте внимательней..