Visual Basic - Примеры, Как сохранить содержимое web-страницы на диск.

Visual Basic. Программирование на Visual Basic

..........................................................................................................................

[ Главная ] [ Статьи ] [ Для новичков ] [ Примеры ] [ Программы ] [ Microsoft Agent 2.0 ] [ Пособие ] [ Уроки ] [ Разное ]

..........................................................................................................................

Как сохранить содержимое web-страницы на диск.
Расположите на форме элемент Inet (меню Project|Components - Microsoft Internet Transfer Control 6.0).

Private Sub Form_Load()
Dim b() As Byte
'установить протокол HTTP
Inet1.Protocol = icHTTP
'установить скачиваемый адрес
Inet1.URL = "http://visualprogs.narod.ru"
'загрузить данные HTML-страницы в массив
b() = Inet1.OpenURL(Inet1.URL, icByteArray)
'создать файл на диске и записать в него информацию
Open "c:\test.htm" For Binary Access Write As #1
Put #1, , b()
Close #1
End Sub

Вариант 2.

Расположите на форме элемент CommandButton.

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 Command1_Click()
DownloadFile "http://visualprogs.narod.ru", "c:\visualprogs.narod_ru.html"
End Sub

Вариант 3.

Расположите на форме элемент CommandButton. Данный пример только загрузить данные со страницы в элемент TextBox.

Private Sub Command1_Click()
On Error GoTo handle
Text1.Text = Inet1.OpenURL(Text2.Text, icString)
Exit Sub
handle: MsgBox "Error " & Err.Description
End Sub

..........................................................................................................................

[ Главная ] [ Диски ] [ Книги ] [ Архив рассылки ] [ Архив новостей ] [ Готовые кусочки программ ] [ Карта сайта ]

..........................................................................................................................

По страницам сайта Visaul Progs
или Изучение Visual Basic

>>> Подпишись на рассылку - будешь получать новые статьи , примеры и много полезной информации из первых рук!!!

>>>Если у вас есть статья которой нет на сайте
пришлите ее мне--------> Послать статью
>>>Если вы хотите задать вопрос
пишите--------> Мне нужна помощь

...:::Design by Mystf0rse 2005-2010 year:::...