vb6 захватить всю веб-страницу - PullRequest
Новая
       2

vb6 захватить всю веб-страницу

0 голосов
/ 08 августа 2010

Привет всем, я пытался найти код, который позволил бы мне захватить всю веб-страницу, используя элемент управления webbrowser1, и я считаю, что также есть поле для картинок или 2 ... но я не могу найти код, который использовал пару месяцев назад! Я гулял до тех пор, пока меня не погнали!

Если кто-нибудь знает код для VB6, тогда, пожалуйста, оставьте ссылку на него!.

Спасибо

David

Ответы [ 2 ]

0 голосов
/ 15 сентября 2010 
    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
0 голосов
/ 09 августа 2010

Вы имеете в виду источник HTML? Если это так, вы можете добавить ссылку на библиотеку Microsoft HTML obj и; 

Dim doc As MSHTML.HTMLDocument
set doc = YourWebBrowserCtrl.Document
msgbox doc.documentElement.outerHTML

Однако это не вернет точный источник, так как в этот момент он был проанализирован IE. (Он также не будет включать тип документа или что-либо еще, предшествующее открывающему тегу <html>.

Если вам нужен источник, добавьте элемент управления интернет-передачей и просто позвоните .openURL, чтобы получить полный контент.

...