Записать в файл HTML код страницы, которая генерируется с помощью JavaScript - Visual Basic .NET
Формулировка задачи:
Всем привет
есть ли возможность записать в файл HTML код страницы, которая генерируется с помощью JavaScript?
Делал так:
Но так я получаю только тот текст, который я могу получить при нажатии "Посмотреть код" в браузере и там будет код с JS, но мне нужен тот код, который я вижу в браузере, т.е. уже сгенерированный.
Этого результата я могу добиться с помощью WebBrowser, например так:
но мне нужно сделать это не через WebBrowser, а другим способом. Не знаю почему, но почему-то на некоторых компьютерах никак не получается загрузить код страницы через WebBroser. Всю голову уже сломал, но не пойму в чем дело. Подскажите пожалуйста.
Если что, то сейчас я делаю так:
В функции GetListMatches() я обрабатываю полученный текст с кодом страницы. Но на моем компьютере все работает хорошо, а вот на других компьютерах (не на всех) почему то этот код не работает. Вот думаю может попробовать не через WebBrowser, а другим способом...
Подскажите пожалуйста как это сделать правильно
Листинг программы
- Dim Client As New Net.WebClient
- Client.Proxy = New System.Net.WebProxy
- Dim Resurs = Client.DownloadString("myscore.ru")
- File.WriteAllText(parsetmp, Client.DownloadString(Server), Encoding.Default)
Листинг программы
- WebBrowser1.Navigate("myscore.ru)
- File.WriteAllText(parsetmp, WebBrowser1.Document.Body.Parent.OuterHtml, Encoding.GetEncoding(WebBrowser1.Document.Encoding))
Листинг программы
- WebBrowser1.Navigate(SetServer)
- Dim sw As Stopwatch = Stopwatch.StartNew()
- While sw.ElapsedMilliseconds < SetTime
- Application.DoEvents()
- Thread.Sleep(1)
- End While
- sw.[Stop]()
- File.WriteAllText(parsetmp, WebBrowser1.Document.Body.Parent.OuterHtml, Encoding.GetEncoding(WebBrowser1.Document.Encoding))
- DataGridView3.Rows.Clear()
- GetListMatches()
Решение задачи: «Записать в файл HTML код страницы, которая генерируется с помощью JavaScript»
textual
Листинг программы
- Private Sub WebBrowser1_DocumentCompleted(sender As Object, e As WebBrowserDocumentCompletedEventArgs) Handles WebBrowser1.DocumentCompleted
- If WebBrowser1.ReadyState = WebBrowserReadyState.Complete AndAlso e.Url = WebBrowser1.Url Then
- File.WriteAllText(parsetmp, WebBrowser1.Document.Body.Parent.OuterHtml, Encoding.GetEncoding(WebBrowser1.Document.Encoding))
- End If
- End Sub
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д