я дилетант в программировании, но иногда, делаю себе "удобняшки". Одна из таких скачивает файлы с неких ресурсов.
Есть стандартный, шаблонный код:
1.
2.
3.
Set objXMLHTTP = WScript.CreateObject("Microsoft.XMLHTTP")'
objXMLHTTP.Open "GET", URL, False
Call objXMLHTTP.Send
Все работает хорошо, если дело касается небольших файлов, но когда это видео на сотни мб... тишина и не ясно, что и как, скачивает или весит :(
(пс: если разорвать соединение из другой программы (например CurrPorts ) Loop зацикливается в бесконечности. Можно ли это как-то контролировать?)
Делал индикацию миганием SCROLLLOCK.
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
Set objXMLHTTP = WScript.CreateObject("Microsoft.XMLHTTP")
objXMLHTTP.Open "GET", URL, True
Call objXMLHTTP.Send
Do
WScript Sleep 1000
objShell.SendKeys "{SCROLLLOCK}"
Loop While objXMLHTTP.readyState <> 4
Не безопасно. Как понимаете, в другом приложении эта клавиша может отвечать за что-то важно. В общем, это не вариант.
Хочу сделать "простую" индикацию в консоле, но знаний ламера тут явно не достаточно.
Узнал, чтоб была консоль, нужно переключиться с wscript.exeна cscript. Чтоб не менять настройки системы, сделал таким способ:
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
i = Split(WScript.FullName, "\")
NAME_SCRIPT_HOST = Lcase(i(ubound(i))) 'имя wscript или сscript
i = Empty
WScript.Interactive = True
if NAME_SCRIPT_HOST = "wscript.exe" then
Set objCShell = WScript.CreateObject("WScript.Shell")
objCShell.run "cscript //B " & chr(34) & WScript.ScriptFullName & "" & chr(34),1,1
wscript.quit(0)
end if
в этом случае весит скрипт и ждет окончания. Если закрыть, то уничтожается objCShell. Уверен, есть другой способ, как перезапустить скрипт и возможно, кто-то из вас его знает?))
Ну и про сам индикатор:
1.
2.
3.
4.
5.
6.
7.
8.
Set objXMLHTTP = WScript.CreateObject("Microsoft.XMLHTTP")
objXMLHTTP.Open "GET", URL, True
Call objXMLHTTP.Send
Do
'индикатор
Loop While objXMLHTTP.readyState <> 4
Как отправить символ в строку переписывая предыдущий? Например, как написать в одной и той же строке:
1.
2.
3.
4.
5.
6.
7.
8.
9.
Echo "\"
Sleep=500
'стереть строку
Echo "/"
Sleep=500
'стереть строку
Echo "-"
Sleep=500
'стереть строку
(-видел такую индикацию где-то в cmd. Красиво.)
В идеале, если бы процент заголовка "Content-length" считался.
Буду рад любой помощи и идеям в рамках стандартных, системных,(без AutoIt или подобным).
Спасибо!
