ник: час
Чё та не получается
An error has occurred while communicating with the " & _
"remote server."
Dim DownloadWorking As Boolean
Public Function Downloads()
Dim FileNumber As Integer
If DownloadWorking = False Then
DownloadWorking = True
Dim b() As Byte
Me.Inet1.Protocol = icHTTP
Me.Inet1.URL = Text1.Text
b() = Me.Inet1.OpenURL(Me.Inet1.URL, icByteArray)
FileNumber = FreeFile()
Open Text2.Text For Binary Access Write As #FileNumber
Put #FileNumber, , b()
Close #FileNumber
DownloadWorking = False
End If
End Function