Гость
Войти | Профиль | Очистить
Целевая тема:
Создать новую тему:
Автор:
Действия ...
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Загрузка файлов с интернета / 13 сообщений из 13, страница 1 из 1
02.01.2011, 18:09
    #37044476
bubek
bubek
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Загрузка файлов с интернета
Привет ребята!
Хочу написать прогу для закачки файлов из интернета. Есть у кого код, а я его под свой лад подкручу?
Планирую задать один URL и лист файлов для скачивания. Имя файлов идет по возрастанию цифр. Например 1.jpg, 2.jpg,3.jpg...
Заранее благодарю!
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
02.01.2011, 18:14
    #37044479
Shocker.Pro
Shocker.Pro
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Загрузка файлов с интернета
Если по-простому - Internet Transfer Control
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
02.01.2011, 18:15
    #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:17
    #37044482
bubek
bubek
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Загрузка файлов с интернета
Shocker.Pro,

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

В сети можно найти, просто хотел подкрепить знания в работе с интернетом...
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
02.01.2011, 18:22
    #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:39
    #37044493
bubek
bubek
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Загрузка файлов с интернета
Shocker.Pro,

Ок, иду пробовать...Спасибо.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
03.01.2011, 00:09
    #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, 02:17
    #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, 03:26
    #37044714
White Owl
White Owl
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Загрузка файлов с интернета
Дмитрий77если не хочешь чтоб прога подвисала, то нужно скачивать файл асинхронно
Только не "прога подвисала" а "ГУИ замерзал".
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
16.01.2011, 20:53
    #37061491
bubek
bubek
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Загрузка файлов с интернета
.Михаил.,

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

Благодарю, много нового нашел...
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Загрузка файлов с интернета / 13 сообщений из 13, страница 1 из 1
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение
созд. / загр.: 168ms
Закрыть
start [/forum/topic.php?fid=60&mobile=1&tid=2159067]:
 0ms
get settings:
 9ms
get forum list:
 12ms
check forum access:
 3ms
check topic access:
 3ms
track hit:
 62ms
get topic data:
 11ms
get forum data:
 2ms
get page messages:
 53ms
get tp. blocked users:
 2ms
others: 11ms
total:  168ms
x
x
Закрыть


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