Форум OlegON > Компьютеры и Программное обеспечение > Операционные системы и программное обеспечение > Программирование

Как под Windows скачать файл штатными средствами : Программирование

28.03.2024 22:21


18.05.2016 16:40
OlegON
 
Поскольку Windows слишком убога, чтобы иметь в составе своем что-то похожее на curl, пришлось искать решение через vbs. И оно нашлось

Код:
strFileURL = "http://сервер/diag"
strHDLocation = "diag.txt"

Set objXMLHTTP = CreateObject("MSXML2.XMLHTTP")

objXMLHTTP.open "GET", strFileURL, false
objXMLHTTP.send()

If objXMLHTTP.Status = 200 Then
Set objADOStream = CreateObject("ADODB.Stream")
objADOStream.Open
objADOStream.Type = 1 'adTypeBinary

objADOStream.Write objXMLHTTP.ResponseBody
objADOStream.Position = 0

Set objFSO = Createobject("Scripting.FileSystemObject")
If objFSO.Fileexists(strHDLocation) Then objFSO.DeleteFile strHDLocation
Set objFSO = Nothing

objADOStream.SaveToFile strHDLocation
objADOStream.Close
Set objADOStream = Nothing
End if

Set objXMLHTTP = Nothing
18.05.2016 16:54
grannie
 
Start-BitsTransfer в PowerShell.
18.05.2016 16:59
OlegON
 
Цитата:
grannie Start-BitsTransfer в PowerShell.
Благодарю, но вот сижу перед Win7 SP1 и тут такого нет... Мож PS другой версии...
18.05.2016 17:57
grannie
 
Вроде с PowerShell 2.0 штатно такая команда должна быть. А сам PS - штатно только на серверных версиях винды, а на "домашних" - надо доустановливать отдельно. Ну не пугать же обывателя командной строкой сразу же
18.05.2016 18:09
OlegON
 
Нене, оно тут есть, просто, видимо, старое какое-то...
18.05.2016 18:17
grannie
 
Да, почитал, эта команда только с версии 2.0 (которая штатно шла начиная с Win7)
18.05.2016 19:54
OlegON
 
Я не очень разбирался, но, как говорил выше, у меня там была именно Win7 SP1. Версия старая.
04.02.2018 09:20
OlegON
 
Цитата:
grannie Start-BitsTransfer в PowerShell.
Вернулся к вопросу, когда у любителей садо-мазо подох браузер.
Возможно, что я раньше не нашел, потому, что у PowerShell совсем нетрадиционная автоподстановка и по Tab оно подставляет вообще хз что. Итак, как скачать файл, если у вас ничего кроме винды, которая еще и с дохлым (IE/Edge). Будем надеяться, что убили только браузер, а не все вообще.
Код:
import-module bitstransfer
start-bitstransfer https://olegon.ru/humans.txt -destination c:\email.txt
сама хреновина тоже с кучей ограничений и веб-страничку скачать не удастся, скорее всего, но, зато, во время скачивания будет показан прогресс-бар. Даже тут они выпендрились в своей нетрадиционности, он будет из символов "о".
Часовой пояс GMT +3, время: 22:21.

Форум на базе vBulletin®
Copyright © Jelsoft Enterprises Ltd.
В случае заимствования информации гипертекстовая индексируемая ссылка на Форум обязательна.