Привет всем, Я пытался найти код, который позволил мне захватить всю веб-страницу с помощью элемента управления webbrowser1, и я считаю, что это также изображение или 2 ... но я не могу найти код, который я использовал пару месяцев назад! Я был доволен, пока я не разобрался!vb6 Захват всей веб-страницы
Если кто-нибудь знает код для VB6, пожалуйста, разместите ссылку на него !.
Спасибо,
Дэвид
Вы имеете в виду источник HTML? Если это так, вы можете добавить ссылку на библиотеку Microsoft HTML obj и;
Dim doc As MSHTML.HTMLDocument
set doc = YourWebBrowserCtrl.Document
msgbox doc.documentElement.outerHTML
Однако это не вернет точный источник, так как на данный момент он был проанализирован IE. (Это также не будет включать в себя тип документа или что-нибудь еще, предшествовавшие открытию <html> тега.
Если вы хотите источник, добавить элемент управления передачи Интернет и просто позвоните .openURL, чтобы получить полное содержание.
Dim DrawSize As New Size(1024, 768)
Using MyBrowser As New WebBrowser
MyBrowser.ScrollBarsEnabled = False
MyBrowser.Size = DrawSize
MyBrowser.Navigate("http://www.stackoverflow.com")
While MyBrowser.ReadyState <> WebBrowserReadyState.Complete
Application.DoEvents()
End While
Using myBitmap As New Bitmap(DrawSize.Width, DrawSize.Height)
MyBrowser.DrawToBitmap(myBitmap, New Rectangle(New Point(0, 0), DrawSize))
myBitmap.Save("C:\test.jpeg")
End Using
End Using
Вы имеете в виду захват всей веб-страницы в качестве изображения? – Garett