Скачивание файлов с HTTP-ресурса - VB
Формулировка задачи:
Всем Доброго Дня!
Подскажите пожалуйста как мне подключить к FileListBox
HTTP-ресурс: http://updates.nau.kiev.ua/nau9/ukr/?C=N;O=D
С уважением, Влад.
P.s. не уверен что с терминами все в порядке
Решение задачи: «Скачивание файлов с HTTP-ресурса»
textual
Листинг программы
Private Declare Function URLDownloadToFile Lib "urlmon" Alias "URLDownloadToFileA" ( _ ByVal pCaller As Long, _ ByVal szURL As String, _ ByVal szFileName As String, _ ByVal dwReserved As Long, _ ByVal lpfnCB As Long _ ) As Long Private Sub Command1_Click() HomeDir$ = App.Path HomeUrl$ = Me.Text1.Text p% = InStrRev(HomeUrl$, "/") HomeUrl$ = Left$(HomeUrl$, p% - 1) URLDownloadToFile 0, Me.Text1.Text, HomeDir$ + "\111.111", 0, 0 Me.List1.Clear fi% = FreeFile Open HomeDir$ + "\111.111" For Binary Access Read As #fi% LF& = LOF(fi%) Buf$ = Space$(LF&) Get #fi%, , Buf$ Close #fi% ppp& = InStr(Buf$, "alt=""[ ]""") Do b& = InStr(ppp&, Buf$, "<a href=") If b& = 0 Then Exit Do e& = InStr(b& + 1, Buf$, ">") fnam$ = Mid$(Buf$, b& + 9, e& - b& - 10) Me.List1.AddItem fnam$ ppp& = e& + 1 Loop End Sub Private Sub Command2_Click() HomeDir$ = App.Path HomeUrl$ = Me.Text1.Text p% = InStrRev(HomeUrl$, "/") HomeUrl$ = Left$(HomeUrl$, p% - 1) For i% = 0 To Me.List1.ListCount - 1 If Me.List1.Selected(i%) Then fnam$ = Me.List1.List(i%) URLDownloadToFile 0, HomeUrl$ + "/" + fnam$, HomeDir$ + "/" + fnam$, 0, 0 Me.List1.Selected(i%) = False DoEvents End If Next i% MsgBox "OK!" End Sub Private Sub Command3_Click() Unload Me End Sub
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д