Главная страницаОбратная связьКарта сайта

Как сохранить содержимое web-страницы на диск



'Расположите на форме элемент Inet (меню Project|Components - Microsoft
'Internet Transfer Control 6.0).

'Вариант 1

Private Sub Form_Load()
Dim b() As Byte
'установить протокол HTTP
Inet1.Protocol = icHTTP
'установить скачиваемый адрес
Inet1.URL = "http://www.microsoft.com"
'загрузить данные 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://sharig.webzone.ru", "c:\sharig_webzone_ru.htm"
End Sub

'Вариант 3
'Расположите на форме элемент CommandButton. Данный пример только
'загрузить данные со страницы в элемент TextBox. А здесь вы можете узнать, как
'сохранить содержимое 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

Обсудить статью на форуме


Если Вас заинтересовала или понравилась информация программирование на Visual Basic - "Как сохранить содержимое web-страницы на диск", Вы можете поставить закладку в социальной сети или в своём блоге на данную страницу:

Так же Вы можете задать вопрос по работе этого модуля или примера через форму обратной связи, в сообщение обязательно указывайте название или ссылку на статью!
   


Copyright © 2008 - 2017 Дискета.info