Сохранение кода сайта в файл - 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)
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д