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

OlegON · █ 18.05.2016 16:40

Поскольку 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

grannie · █ 18.05.2016 16:54

Start-BitsTransfer в PowerShell.

OlegON · █ 18.05.2016 16:59

Цитата:

grannie ➤ Start-BitsTransfer в PowerShell.

Благодарю, но вот сижу перед Win7 SP1 и тут такого нет... Мож PS другой версии...

grannie · █ 18.05.2016 17:57

Вроде с PowerShell 2.0 штатно такая команда должна быть. А сам PS - штатно только на серверных версиях винды, а на "домашних" - надо доустановливать отдельно. Ну не пугать же обывателя командной строкой сразу же

OlegON · █ 18.05.2016 18:09

Нене, оно тут есть, просто, видимо, старое какое-то...

grannie · █ 18.05.2016 18:17

Да, почитал, эта команда только с версии 2.0 (которая штатно шла начиная с Win7)

OlegON · █ 18.05.2016 19:54

Я не очень разбирался, но, как говорил выше, у меня там была именно Win7 SP1. Версия старая.

OlegON · █ 04.02.2018 09:20

Цитата:

grannie ➤ Start-BitsTransfer в PowerShell.

Вернулся к вопросу, когда у любителей садо-мазо подох браузер.
Возможно, что я раньше не нашел, потому, что у PowerShell совсем нетрадиционная автоподстановка и по Tab оно подставляет вообще хз что. Итак, как скачать файл, если у вас ничего кроме винды, которая еще и с дохлым (IE/Edge). Будем надеяться, что убили только браузер, а не все вообще.

Код:

import-module bitstransfer
start-bitstransfer https://olegon.ru/humans.txt -destination c:\email.txt

сама хреновина тоже с кучей ограничений и веб-страничку скачать не удастся, скорее всего, но, зато, во время скачивания будет показан прогресс-бар. Даже тут они выпендрились в своей нетрадиционности, он будет из символов "о".