Скачивание файла из интернет функцией URLDownloadToFile через прокси сервер - VB

Узнай цену своей работы

Формулировка задачи:

Всем привет! Уважаемые гуру кода прошу помочь..... Является ли препятствием для работы функции URLDownloadToFile выход в интернет через прокси сервер, и если да, то как решить этот вопрос если все данный по идентификации в принципе есть ? Спасибо за помощь....

Решение задачи: «Скачивание файла из интернет функцией URLDownloadToFile через прокси сервер»

textual
Листинг программы
Option Explicit
Dim l, t&, w&, h&
Const r = 90, sl$ = ""
 
Private Sub Form_Click()
    Dim link$, Path$, j$()
    link = "http://pendientedemigracion.ucm.es/info/vivataca/images/n79/informaticos.jpg"
    j = Split(link, "/")
    'На киберфоруме эта строка отображаеться без слэша ??? \рабочий стол
    Path$ = Environ("userprofile") & "\рабочий стол" & sl & j(UBound(j))
    ' скачиваем файл из интернета
    DownloadFile link, Path$
    ' открываем скачанный файл
    CreateObject("wscript.shell").Run """" & Path & """"
End Sub
 
Private Sub Form_Load()
    Me.Caption = "Нажми на форму и подожди 5 сек"
    Me.Move 100, 100, 5000, 900
End Sub
 
Function DownloadFile(ByVal URL$, ByVal LocalPath$) As Boolean
    ' Функция скачивает файл по ссылке URL$
    ' и сохраняет его под именем LocalPath$
    Dim XMLHTTP, ADOStream, FileName
    On Error Resume Next: Kill LocalPath$
 
    Set XMLHTTP = CreateObject("Microsoft.XMLHTTP")
    XMLHTTP.Open "GET", Replace(URL$, "", "/"), "False"
    XMLHTTP.send
    If XMLHTTP.statustext = "OK" Then
        Set ADOStream = CreateObject("ADODB.Stream")
        ADOStream.Type = 1: ADOStream.Open
        ADOStream.Write XMLHTTP.responseBody
 
        ADOStream.SaveToFile LocalPath$, 2
        ADOStream.Close: Set ADOStream = Nothing
        DownloadFile = True
    Else
        'MsgBox "Не удаётся скачать файл " & XMLHTTP.statustext
    End If
    Set XMLHTTP = Nothing
End Function

ИИ поможет Вам:


  • решить любую задачу по программированию
  • объяснить код
  • расставить комментарии в коде
  • и т.д
Попробуйте бесплатно

Оцени полезность:

10   голосов , оценка 3.8 из 5
Похожие ответы