Сохранение кода сайта в файл - VB

Узнай цену своей работы

Формулировка задачи:

Доброго времени суток. Никто не подскажет, как можно реализовать сохранение конкретной странички сайта (например с этой темой) на диск в файл. Желательно сделать с помощью VB, но рассмотрю и другие варианты решения. Важен результат Заранее спасибо.

Решение задачи: «Сохранение кода сайта в файл»

textual
Листинг программы
'URL файла в Интернете
sUrlRequest =  "http://www.cyberforum.ru/visual-basic/thread1133440.html"
'создание объекта XMLHTTP
Set oXMLHTTP = CreateObject("MSXML2.XMLHTTP")
'подключение
'oXMLHTTP.Open "GET", sUrlRequest, False, MyName, MyPassword
oXMLHTTP.Open "GET", sUrlRequest, False
'получение файла
oXMLHTTP.Send
'создание и открытие текстового файла для сохранения
set fso = CreateObject("Scripting.FileSystemObject")
fso.CreateTextFile "c:\test.txt", True
Set f = fso.OpenTextFile("c:\test.txt", 2, True)
'сохранение
f.WriteLine(oXMLHTTP.Responsetext)

ИИ поможет Вам:


  • решить любую задачу по программированию
  • объяснить код
  • расставить комментарии в коде
  • и т.д
Попробуйте бесплатно

Оцени полезность:

9   голосов , оценка 4 из 5
Похожие ответы