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

Автор: Money 911

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

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

 

<code=vb>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</code>