Скачать скриптом конкретный файл из интернета

@Бонифаций · Регистрация: 11.03.2013

Author24 — интернет-сервис помощи студентам

Доброго времени суток, знатоки.
Прошу помощи в создании скрипта с помощью которого можно скачать из интернета конкретный файл.
Сейчас у меня есть скрипт в котором я могу задать определенный сайт, путь сохранения нужного файла с сайта.
Однако при открытии сохраненного файла открывается в нем страница с информацией.
Помогите пожалуйста.

Код:

Visual Basic    
        
            
                
                
                
                
            
        
    Скопировано
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
InetFile = "http://www.мой сайт "
localFile = "D:\speech\файл1.xls"
 
Set oXMLHTTP = CreateObject("MSXML2.XMLHTTP")
oXMLHTTP.Open "GET", InetFile, 0
oXMLHTTP.Send
 
Set oADOStream = CreateObject("ADODB.Stream")
oADOStream.Mode = 3
oADOStream.Type = 1
oADOStream.Open
oADOStream.Write oXMLHTTP.responseBody
 
oADOStream.SaveToFile localFile, 2
 
Set oXMLHTTP = Nothing
Set oADOStream = Nothing

Dragokas · 13.03.2013, 04:04

Бонифаций, у меня все открывается.

Проверьте ссылку на файл.
Вот пример:

Visual Basic    
        
    Скопировано
1
2
InetFile = "http://Dragokas.16mb.com/Forum/Dl/Time.zip"
localFile = "l:\file.zip"

@Клик · 21.06.2022, 12:47

[QUOTE=Dragokas;4246924]Бонифаций, у меня все открывается.

А как сделать, чтобы Антивирус Касперского не реагировал на этот код? А то он его
удаляет!

FlasherX · 21.06.2022, 22:50

Клик, недавно касались скачивания. Можно попробовать разнести ProgID на составляющие:

Visual Basic    
        
            
                
                
                
                
            
        
    Скопировано
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
Const URL = "https://.../?lng=ru?"
Const SaveDir = "C:\Download"
'———————————————————————————————————————————————————
Set HTTP = CreateObject("Win" & "Htt" & "p.WinHt" & "tpRequest.5.1")
HTTP.Open "GET", URL, 0: HTTP.Send
If HTTP.Status = 200 Then
   CreateObject("Shell.Application")._
   NameSpace(Left(SaveDir, 2)).NewFolder Mid(SaveDir, 4)
   With CreateObject("SAPI.SpFileStream")
      .Format.Type = 1: Link = HTTP.Option(1)
      .Open SaveDir & Mid(Link, InStrRev(Link, "/")), 3, 1
      .Write HTTP.ResponseBody: .Close
   End With
End If
HTTP.Abort: Set HTTP = Nothing

@Catstail · 24.06.2022, 12:29

Сообщение от Клик

А то он его удаляет!

- это Касперского нужно настроить... Или снести к чёрту

Новые блоги и статьи Все статьи Все блоги /
Сопоставление с образцом (Pattern Matching) в Python: Списки и словари py-thonny 19.03.2025 Программисты любят, когда код говорит сам за себя. Представьте, что вы можете просмотреть структуру данных и мгновенно понять, что с ней делать — без сложных условий и вложенных проверок. Именно эту. . .	Работа с метаданными EXIF и JPEG в JavaScript run.dev 19.03.2025 Работа с изображениями в веб-разработке нередко выходит за рамки простого отображения картинки. Современные задачи требуют глубокого понимания структуры файлов и умения манипулировать их внутренними. . .	Чеклист для Kubernetes в продакшене: Лучшие практики для SRE Mr. Docker 19.03.2025 Когда сталкиваешься с запуском Kubernetes в продакшене, невольно задаешься вопросом: почему то, что так гладко работало в тестовой среде, вдруг начинает вызывать головную боль на боевых системах?. . .	Разработка продвинутого ИИ в Unity с использованием Behavior Graph GameUnited 19.03.2025 В разработке игр искусственный интеллект персонажей часто становится тем элементом, который превращает хорошую игру в выдающуюся. До недавнего времени разработчикам под Unity приходилось либо писать. . .	Словари в Python: методы работы, оптимизация, сериализация py-thonny 19.03.2025 Каждый хотя бы раз сталкивался с необходимостью хранить связанные данные, где важна не только сама информация, но и их взаимосвязь. В дебрях Python словари — это тот универсальный инструмент, который. . .
Реализация паттерна CQRS с Event Sourcing в PHP Jason-Webb 19.03.2025 CQRS (Command Query Responsibility Segregation) — это архитектурный паттерн, который разделяет операции чтения и записи данных в приложении. Если вы столкнулись с ситуацией, когда ваше PHP-приложение. . .	std::span в C++: Подпредставления и срезы NullReferenced 18.03.2025 Если вы когда-нибудь работали с большими объемами данных в C++, то наверняка сталкивались с необходимостью манипулировать отдельными частями массивов или контейнеров. Традиционные подходы часто. . .	std::span в C++: Доступ к элементам и итерирование NullReferenced 18.03.2025 В C++ каждый разработчик сталкивается с проблемой эффективного управления последовательностями данных. Представьте: вы работаете с массивом, передаете его в функцию, а затем в другую, и каждый раз. . .	Утечки памяти в C# UnmanagedCoder 18.03.2025 Когда мы говорим о разработке приложений на C#, то часто успокаиваем себя мыслью, что сборщик мусора решит все наши проблемы с памятью. "Память управляется автоматически" — эта мантра прочно засела в. . .	std::span в C++: Введение в невладеющее представление NullReferenced 18.03.2025 С появлением стандарта C++20 у нас появился новый инструмент — std::span, который представляет собой невладеющее представление для работы с последовательностями данных. std::span — это легковесный. . .

@Клик 0 / 0 / 0 Регистрация: 03.06.2022 Сообщений: 4
	21.06.2022, 12:47	3
	[QUOTE=Dragokas;4246924]Бонифаций, у меня все открывается. А как сделать, чтобы Антивирус Касперского не реагировал на этот код? А то он его удаляет! 0

@Catstail Супер-модератор 37674 / 20919 / 4288 Регистрация: 12.02.2012 Сообщений: 34,389 Записей в блоге: 14
	24.06.2022, 12:29	5
	Сообщение от Клик А то он его удаляет! - это Касперского нужно настроить... Или снести к чёрту 0