Форум программистов, компьютерный форум, киберфорум
VBScript/JScript/WSH/WMI
Войти
Регистрация
Восстановить пароль
Блоги Сообщество Поиск Заказать работу  
 
Рейтинг 4.97/59: Рейтинг темы: голосов - 59, средняя оценка - 4.97
0 / 0 / 0
Регистрация: 11.03.2013
Сообщений: 3
1

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

11.03.2013, 22:25. Показов 12043. Ответов 4
Метки нет (Все метки)

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
0
cpp_developer
Эксперт
20123 / 5690 / 1417
Регистрация: 09.04.2010
Сообщений: 22,546
Блог
11.03.2013, 22:25
Ответы с готовыми решениями:

Создать и автоматически скачать файл скриптом php
Добрый день! Разрабатываю бизнес процесс по согласованию документов (Битрикс24). Возникла потребность по завершению бизнес процесса...

Скачать файл с интернета
Немогу скачать файл с интернета этим кодом: var FS: TFileStream; begin FS := TFileStream.Create('test.txt', FMCreate); ...

Скачать файл с интернета
Доброго времени суток, форумчане! Я решил написать программу, которая будет скачивать с интернета, но не просто скачал и все, а с...

4
Эксперт WindowsАвтор FAQ
 Аватар для Dragokas
18022 / 7725 / 892
Регистрация: 25.12.2011
Сообщений: 11,502
Записей в блоге: 16
13.03.2013, 04:04 2
Бонифаций, у меня все открывается.

Проверьте ссылку на файл.
Вот пример:
Visual Basic Скопировано
1
2
InetFile = "http://Dragokas.16mb.com/Forum/Dl/Time.zip"
localFile = "l:\file.zip"
0
0 / 0 / 0
Регистрация: 03.06.2022
Сообщений: 4
21.06.2022, 12:47 3
[QUOTE=Dragokas;4246924]Бонифаций, у меня все открывается.

А как сделать, чтобы Антивирус Касперского не реагировал на этот код? А то он его
удаляет!
0
6649 / 2814 / 1083
Регистрация: 06.06.2017
Сообщений: 9,546
21.06.2022, 22:50 4
Клик, недавно касались скачивания. Можно попробовать разнести 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
0
Супер-модератор
Эксперт функциональных языков программированияЭксперт Python
 Аватар для Catstail
37660 / 20908 / 4285
Регистрация: 12.02.2012
Сообщений: 34,380
Записей в блоге: 14
24.06.2022, 12:29 5
Цитата Сообщение от Клик Посмотреть сообщение
А то он его удаляет!
- это Касперского нужно настроить... Или снести к чёрту
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
raxper
Эксперт
30234 / 6612 / 1498
Регистрация: 28.12.2010
Сообщений: 21,154
Блог
24.06.2022, 12:29
Помогаю со студенческими работами здесь

Как скачать файл из Интернета
Народ подскажите как сделать форму на которой будет веб браузер в которой будет кнопка, нажимая на которую браузер передаёт ссылку на...

Как скачать файл из Интернета
Я конечно извиняюсь,возможно написал не сюда,но возможно ли прописать в приложение на vb вставку объекта с какого либо сайта. ...

Как скачать файл из интернета?
Как скачать файл из интернета?

Скачать файл с интернета с использованием c++
Блин, в интернете ничего не найти! Скажите класс, с помощью которого можно скачать файл с интернета или http запросы отправлять. К примеру...

Как скачать файл с интернета
Привет, я с инета качаю файл вот этим кодом: TFileStream* fs = new TFileStream("test.exe", fmCreate|fmOpenWrite); ...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
5
Ответ Создать тему

Редактор формул (кликните на картинку в правом углу, чтобы закрыть)
Новые блоги и статьи
Осваиваем Kubernetes: Подробная шпаргалка
Mr. Docker 15.03.2025
Kubernetes — это открытая платформа для автоматизации развертывания, масштабирования и управления контейнеризированными приложениями. Он был создан для решения проблем, с которыми сталкиваются. . .
Лучшие PHP REST API фреймворки
Jason-Webb 15.03.2025
Современные PHP REST API фреймворки предлагают большой набор функциональности: от автоматической валидации данных и управления маршрутизацией до генерации документации и интеграции с различными. . .
Многопоточность в Java с Project Loom: виртуальные или обычные потоки
Javaican 15.03.2025
Многопоточность всегда была одноим из основных элементов в разработке современного программного обеспечения. Она позволяет приложениям обрабатывать несколько задач одновременно, что критично для. . .
Что нового в Swift 6 и особенности миграции
mobDevWorks 15.03.2025
Swift 6 — это новый крупный релиз языка программирования от Apple, анонсированный на WWDC 2024. Если вы следили за эволюцией Swift, то наверняка заметили, что многие значимые возможности, которые. . .
Вопросы на собеседовании по Android
mobDevWorks 14.03.2025
По данным статистики, Android занимает более 70% мирового рынка мобильных операционных систем, что делает платформу привлекательной как для начинающих разработчиков, так и для опытных профессионалов. . . .
Лучшие игровые движки для Python
py-thonny 14.03.2025
Python обеспечивает разработчиков игр мощными движками и фреймворками, которые позволяют воплотить практически любую идею — от простой аркады до визуального романа с разветвленным сюжетом. Главное. . .
Бессерверный JavaScript: Разработка масштабируемых API с AWS Lambda
run.dev 14.03.2025
Но что такое бессерверные вычисления на самом деле? По сути, это модель облачных вычислений, где разработчик фокусируется исключительно на создании бизнес-логики, не тратя время на настройку. . .
Безопасность кода в C++26: Менеджеры ресурсов и висячие ссылки
NullReferenced 14.03.2025
C++ всегда был языком, предоставляющим разработчикам большие возможности и гибкость, но вместе с тем требующим ответственности. Одной из самых коварных проблем даже для опытных программистов остаются. . .
smart-agent proper interface settings (2025)
jigi33 14.03.2025
Smart-agent proper interface settings (mart 2025). (see screenshots to look at "Etalon" ARM)
Продвинутые настройки JVM
Javaican 14.03.2025
Стандартные параметры запуска JVM хороши для повседневной разработки, но совершенно недостаточны для высоконагруженных систем. Представьте, что вы запускаете финансовую платформу, обрабатывающую. . .
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2025, CyberForum.ru
Выделить код Копировать код Сохранить код Нормальный размер Увеличенный размер