Скачивание файла из интернет функцией 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
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д