Программирование
Веб программирование

Узнаем html код любой странички!)

 
 

В этом уроке, я вам покажу, как узнать Html код любой страничкии.
Итак, добавим: Webbrowser, textbox2, textbox1(multiLine)
Код:

Public Class Form1

      Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click

WebBrowser1.Navigate(TextBox2.Text)  'Вводим любой сайт
     End Sub

      Private Sub WebBrowser1_DocumentCompleted(sender As Object, e As WebBrowserDocumentCompletedEventArgs) Handles WebBrowser1.DocumentCompleted
TextBox1.Text = WebBrowser1.Document.Body.InnerHtml


         End Sub
 End Class


Есть вопросы? Спроси на нашем форуме!!
Stertor370 [25.06.2014 22:27]

Можно попроще:


Dim xmlhttp
Set xmlhttp = CreateObject("MSXML2.XMLHTTP")
xmlhttp.open "GET", "http://myip.ru", False
xmlhttp.send
msgbox xmlhttp.responseText

DIGIUS470 [14.11.2014 20:28]

Не мешай колхозить людям =)



Оставлять комментарии можно только зарегистрированным




Предупреждение: Вся информация представлена исключительно в образовательных целях.
Ни авторы, ни администрация не несут ответственности в случае ее использования в противозаконных целях.