15 мая 2023 года "Исходники.РУ" отмечают своё 23-летие!
Поздравляем всех причастных и неравнодушных с этим событием!
И огромное спасибо всем, кто был и остаётся с нами все эти годы!

Главная Форум Журнал Wiki DRKB Discuz!ML Помощь проекту


Загружаем файл из интернета

Автор: Money 911

Маленькая функция, показывающая, как Ваше приложение может скачивать из интернета файлы. На вход функции достаточно подать URL и имя скачиваемого файла.

Компилятор: Visual Basic 5.0, 6.0.

 

Public Sub DLFiles(strUrl As String, fileName As String)
    On Error Resume Next
    Dim b() As
Byte

    Inet1.Cancel
    Inet1.Protocol = icHTTP
    Inet1.URL = strUrl
    b() = Inet1.OpenURL(, icByteArray)

    Open fileName For Binary Access Write As #1
    Put #1, , b()
    Close #1
End Sub