[решено] Как качать файлы с интернета на Visual Basic 6?

Admiral · Отправлено: **01:04, 24-11-2008** | #13

Alex.sys доброй ночи.
Примитивную, что называется прямо из коробки(кроме установленного VB6 ничего не надо) можно организовать применив компонент Microsoft Internet Transfer Control 6.0. По умолчанию он не присутствует на палитре компонентов, так что необходимо его добавить (размещен в ActiveX компоненте msinet.ocx, на тот случай если его не будет в списке добавляемых компонентов).
Далее, бросаем этот компонент на форму добавляем два TextBox, одну кнопку CommandButton и три лейблы (в одной в свойстве Caption пишем Откуда, во второй Куда, третья будет отображать статус) Label в перёд коддить.
Вот примеры
http://msdn.microsoft.com/en-us/libr...95(VS.60).aspx
http://www.vbnet.ru/forum/show.aspx?id=176637
вот небольшой микс

Код:

 Dim DownloadWorking As Boolean
Private Sub Command1_Click()
Call Downloads
End Sub
Public Function Downloads()
If DownloadWorking = False Then
    DownloadWorking = True
    Dim b() As Byte
    Form1.Inet1.Protocol = icHTTP
    Form1.Inet1.URL = Text1.Text
    b() = Form1.Inet1.OpenURL(Form1.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
Private Sub Inet1_StateChanged(ByVal State As Integer)
Label3.Caption = GetState(State)
End Sub
Private Function GetState(s As Integer) As String
Select Case s
   Case 0
      GetState = "No state information is available."
   
   Case 1
      GetState = "Looking up the IP address for the remote server."
   
   Case 2
      GetState = "Found the IP address for the remote server."
   
   Case 3
      GetState = "Connecting to the remote server."
   
   Case 4
      GetState = "Connected to the remote server."
   
   Case 5
      GetState = "Requesting information from the remote server."
   
   Case 6
      GetState = "The request was sent successfully to the remote server."
   
   Case 7
      GetState = "Receiving a response from the remote server."
   
   Case 8
      GetState = "The response was received successfully from the " & _
         "remote server."
   
   Case 9
      GetState = "Disconnecting from the remote server."
   
   Case 10
      GetState = "Disconnected from the remote server."
   
   Case 11
      GetState = "An error has occurred while communicating with the " & _
         "remote server."
   
   Case 12
      GetState = "The request was completed, all data has been received."
   
   Case Else
      GetState = "Unknown state: " & FormatNumber(State, 0)
   
   End Select
   
End Function

Указание скачанного размера файла не реализовано, в примере на msdn там указанно как.

И ещё, VB входит в Visual Studio и противопоставить их нереально, а то и безграмотно. Возможно, друзья имели ввиду Visual C++.
Durson, не все возможности VB6 были исчерпаны, а в новых ОС - MS будет избавляется от поддержки приложений написанных на VB6, тем самым агитируя переход на .NET.
C++ IMHO очень громоздкий для таких целей, если не требуется рекордная скорость приложения (не путать со скоростью скачивания). А использования MFC ещё и отяжелит приложение.
Про компоненты IE мышление в правильном направлении.