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