/
githubmirror
/
XX-Net
Обзор
Документация
Войти
/
githubmirror
/
XX-Net
Код
Запросы
0
Пакеты
0
Релизы
0
Аналитика
Безопасность
master
code/default/launcher/download.vbs
27 строк
727 B
Michael.X
3.15.6, fix update problem
26 фев 2020, 05:54
26 фев 2020, 05:54
05bb495
Код
Авторство
О чём код?
Sub DownloadFile1(url, strPath) dim xHttp: Set xHttp = createobject("Microsoft.XMLHTTP") dim bStrm: Set bStrm = createobject("Adodb.Stream") xHttp.Open "GET", url, False xHttp.Send with bStrm .type = 1 '//binary .open .write xHttp.responseBody .savetofile strPath, 2 '//overwrite end with End Sub Sub DownloadFile2(url, strPath) set WinHttpReq =CreateObject("WinHttp.WinHttpRequest.5.1") WinHttpReq.Open "GET", url, False WinHttpReq.Send dim BinStream: Set BinStream = createobject("Adodb.Stream") BinStream.Type = 1 BinStream.Open BinStream.Write WinHttpReq.ResponseBody BinStream.SaveToFile strPath End Sub