ReSQL.ru
     
powered by simpleCommunicator - 2.0.55     © 2025 Programmizd 02
Мобильная версия    Контакт    Правила    FAQ    Помощь
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Загрузка файлов с интернета
13 сообщений из 13, страница 1 из 1
Загрузка файлов с интернета
    #37044476
bubek
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
bubek
Гость
Привет ребята!
Хочу написать прогу для закачки файлов из интернета. Есть у кого код, а я его под свой лад подкручу?
Планирую задать один URL и лист файлов для скачивания. Имя файлов идет по возрастанию цифр. Например 1.jpg, 2.jpg,3.jpg...
Заранее благодарю!
...
Рейтинг: 0 / 0
02.01.2011, 18:09
| Ответить | Цитировать | Написать  
Загрузка файлов с интернета
    #37044479
Фотография Shocker.Pro
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Shocker.Pro
Участник
Если по-простому - Internet Transfer Control
...
Рейтинг: 0 / 0
02.01.2011, 18:14
| Ответить | Цитировать | Написать  
Загрузка файлов с интернета
    #37044480
Фотография Shocker.Pro
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Shocker.Pro
Участник
 
bubekПланирую задать один URL и лист файлов для скачивания. Имя файлов идет по возрастанию цифр. Например 1.jpg, 2.jpg,3.jpg...

Автоматизация скачки порнухи? ;)
может чего готовое в сети поискать?
...
Рейтинг: 0 / 0
02.01.2011, 18:15
| Ответить | Цитировать | Написать  
Загрузка файлов с интернета
    #37044481
bubek
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
bubek
Гость
Shocker.ProЕсли по-простому - Internet Transfer Control

А если подробнее?
...
Рейтинг: 0 / 0
02.01.2011, 18:15
| Ответить | Цитировать | Написать  
Загрузка файлов с интернета
    #37044482
bubek
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
bubek
Гость
Shocker.Pro,

Почти угадал ) книжки...
...
Рейтинг: 0 / 0
02.01.2011, 18:17
| Ответить | Цитировать | Написать  
Загрузка файлов с интернета
    #37044484
bubek
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
bubek
Гость
Shocker.Pro,

В сети можно найти, просто хотел подкрепить знания в работе с интернетом...
...
Рейтинг: 0 / 0
02.01.2011, 18:18
| Ответить | Цитировать | Написать  
Загрузка файлов с интернета
    #37044486
Фотография Shocker.Pro
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Shocker.Pro
Участник
bubekА если подробнее?
Залезаешь в "компоненты" и добавляешь "Microsoft Internet Transfer Control"
Кидаешь его на форму и озадачиваешь скачиванием файла:
Код: plaintext
it.Execute "http://rrrrr.rr/rr.jpg", "GET"
Хелп по нему прочти для начала - останутся вопросы - задавай
...
Рейтинг: 0 / 0
02.01.2011, 18:22
| Ответить | Цитировать | Написать  
Загрузка файлов с интернета
    #37044493
bubek
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
bubek
Гость
Shocker.Pro,

Ок, иду пробовать...Спасибо.
...
Рейтинг: 0 / 0
02.01.2011, 18:39
| Ответить | Цитировать | Написать  
Загрузка файлов с интернета
    #37044669
.Михаил.
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
.Михаил.
Участник
вот так можно
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
Dim oXMLHTTP As Object
Set oXMLHTTP = CreateObject("MSXML2.XMLHTTP")
oXMLHTTP.Open "GET", UrlFile
oXMLHTTP.send
Do While oXMLHTTP.readyState <>  4 
    DoEvents
Loop
With CreateObject("ADODB.Stream")
     .Mode =  3 
     .Type =  1 
     .Open
     .Write oXMLHTTP.responseBody
     .SaveToFile "C:\Temp\" & file_name,  2 
End With
...
Рейтинг: 0 / 0
03.01.2011, 00:09
| Ответить | Цитировать | Написать  
Загрузка файлов с интернета
    #37044696
Дмитрий77
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Дмитрий77
Участник
bubek,

сделай поиск по моим крайним темам:
Приконнектиться к сайту и чего-нибудь считать
FtpGetFile - отслеживание процесса копирование
Байты, кбайты,Мбайты Kbps kbps
Распознать/отключить автономный режим IE
Загрузить файл через IE, дождаться завершения и отловить если что ошибки

Накопанных методов как-бы 3 группы:
Microsoft Internet Transfer Control 6.0 (SP6)

WinINet Functions

How To Use the AsyncRead Method to Download Files ( http://vb.mvps.org/samples/NetGrab/ )

Проблемы как бы следующие:

если не хочешь чтоб прога подвисала, то нужно скачивать файл асинхронно

проблемы связанные с автономным режимом IE

проблемы связанные с крайне нездоровым отношениям антивирусов к процедурам обозначенного рода

Т.е. можешь продолжить мои изыскания, там более чем.
Если напр. нужен ProgressBar для индикации процесса, то оптимально NetGrab метод.

Я вовремя сказал себе "СТОП" и остановился на Microsoft Internet Transfer Control 6.0 несмотря на нелюбовь к OCX-ам.
...
Рейтинг: 0 / 0
03.01.2011, 02:17
| Ответить | Цитировать | Написать  
Загрузка файлов с интернета
    #37044714
White Owl
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
White Owl
Участник
Дмитрий77если не хочешь чтоб прога подвисала, то нужно скачивать файл асинхронно
Только не "прога подвисала" а "ГУИ замерзал".
...
Рейтинг: 0 / 0
03.01.2011, 03:26
| Ответить | Цитировать | Написать  
Загрузка файлов с интернета
    #37061491
bubek
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
bubek
Гость
.Михаил.,

Отлично! Спасибо!
...
Рейтинг: 0 / 0
16.01.2011, 20:53
| Ответить | Цитировать | Написать  
Загрузка файлов с интернета
    #37061493
bubek
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
bubek
Гость
Дмитрий77,

Благодарю, много нового нашел...
...
Рейтинг: 0 / 0
16.01.2011, 20:54
| Ответить | Цитировать | Написать  
13 сообщений из 13, страница 1 из 1
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Загрузка файлов с интернета
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение
NoSQL.ru       Новости, Чат       Фотоальбом: Участники, Встречи
Закрыть
start [/forum/topic.php?fid=60&msg=37044482&tid=2159067]:
 0ms
get settings:
 9ms
get forum list:
 15ms
check forum access:
 4ms
check topic access:
 4ms
track hit:
 50ms
get topic data:
 9ms
get forum data:
 3ms
get page messages:
 50ms
get tp. blocked users:
 1ms
others: 14ms
total:  159ms
созд. / загр.: 159ms
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]