| Вопрос: Закачка файла | Добавлено: 06.09.07 13:43 |
Автор вопроса:  Yanex | Web-сайт: Progr.Do.am | ICQ: 387761649 |
|
Как скачать файл произвольного содержания (например, ZIP-архив) из Интернета (задан адрес, например "http://Site.ru/file1.zip"), используя Visual Basic 6.0?
Желательно без использования сторонних библиотек и компонентов (Microsoft-ские компоненты, включенные в поставку VB6, и не поставляющиеся с Windows 98/2k/XP, также считать посторонними). Также желательно, чтобы код был совместим со всеми текущими версиями Винды (включая, ессно, Висту). Заранее спасибо за ответ. |
| Ответы | Всего ответов: 11 |
|
Номер ответа: 1 Автор ответа:  dNW Вопросов: 30 Ответов: 683 |
Профиль | | #1 | Добавлено: 06.09.07 17:05 |
|
Полностью без библиотек не обойтись, во всяком случае на VB6 уж точно.
Самый демократичный вариант это Private Declare Function URLDownloadToFile Lib "urlmon" Alias "URLDownloadToFileA" (ByVal pCaller As Long, ByVal szURL As String, ByVal szFileName As String, ByVal dwReserved As Long, ByVal lpfnCB As Long) As Long
Public Function DownloadFile(URL As String, LocalFilename As String) As Boolean Dim lngRetVal As Long lngRetVal = URLDownloadToFile(0, URL, LocalFilename, 0, 0) If lngRetVal = 0 Then DownloadFile = True End Function Private Sub Form_Load() 'example by Matthew Gates (Puff0rz@hotmail.com)  ownloadFile "http://www.allapi.net", "c:\allapi.htm"
End Sub |
||
|
Номер ответа: 2 Автор ответа: Mr.SmileICQ: 427682013 Вопросов: 14 Ответов: 464 |
Профиль | | #2 | Добавлено: 06.09.07 17:21 |
|
Или так: Private Declare Function DoFileDownload Lib "shdocvw.dll" (ByVal lpszFile As String) As Long
Private Sub Form_Load() 'KPD-Team 2000 'URL: http://www.allapi.net/ 'E-Mail: KPDTeam@Allapi.net oFileDownload StrConv("http://www.allapi.net/", vbUnicode)
End Sub |
||
|
Номер ответа: 3 Автор ответа: udpn Вопросов: 2 Ответов: 45 |
Профиль | | #3 | Добавлено: 06.09.07 18:31 |
|
Также желательно, чтобы код был совместим со всеми текущими версиями Винды (включая, ессно, Висту).
хрен вам, а не совместимость с вистой |
||
|
Номер ответа: 4 Автор ответа: VβÐUηìt Вопросов: 246 Ответов: 3333 |
Web-сайт: Профиль | | #4 | Добавлено: 10.09.07 14:50 |
| У меня виста стояла два месяца, потом снес на*** - бесит, все время проблемы совместимости. | ||
|
Номер ответа: 5 Автор ответа: HACKERРазработчик Offline Client Вопросов: 236 Ответов: 8362 |
Профиль | | #5 | Добавлено: 10.09.07 21:14 |
Это ещё ничего, меня на две недели хватило 
|
||
|
Номер ответа: 6 Автор ответа:  User UnknownВечный Юзер! ICQ: uu@jabber.cz Вопросов: 120 Ответов: 3302 |
Профиль | | #6 | Добавлено: 10.09.07 21:19 |
|
6 часов. Кто меньше?
|
||
|
Номер ответа: 7 Автор ответа: BUMM ®Вопросов: 8 Ответов: 482 |
Профиль | | #7 | Добавлено: 11.09.07 22:31 |
|
До сих пор стоит на работе и всё нормально
|
||
|
Номер ответа: 8 Автор ответа: gvozdРазработчик Offline Client Вопросов: 164 Ответов: 1317 
|
Web-сайт: Профиль | | #8 | Добавлено: 12.09.07 09:21 |
| Полгода, кто больше? | ||
|
Номер ответа: 9 Автор ответа: SharpЛидер форума ICQ: 216865379 Вопросов: 106 Ответов: 9979 |
Web-сайт: Профиль | | #9 | Добавлено: 12.09.07 17:18 |
| 40 минут, после чего она повисла при установке. Кто меньше? | ||
|
Номер ответа: 10 Автор ответа: VβÐUηìtВопросов: 246 Ответов: 3333 |
Web-сайт: Профиль | | #10 | Добавлено: 13.09.07 17:41 |
| НАРОД! Про вопрос Yanex'a случайно не забыли? | ||
|
Номер ответа: 11 Автор ответа: SharpЛидер форума ICQ: 216865379 Вопросов: 106 Ответов: 9979 |
Web-сайт: Профиль | | #11 | Добавлено: 13.09.07 23:02 |
| Давно уже забыли. После верного ответа на вопрос темы можно и пофлудить. | ||
Страница: 1 |