Загружаем файл из интернета
Автор: 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
|