→→→webページ①-実際

フォーム読み込み

Private Sub Form1_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
        Try
            WebBrowser1.Url = New Uri("http://******.jp/")
        Catch ex As Exception
            MessageBox.Show(ex.Message)
        End Try
End Sub

WebページからRichTextBoxにソースを


Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Try
          Dim buff(60000) As Byte
          Dim str As String
          WebBrowser1.DocumentStream.Read(buff, 0, WebBrowser1.DocumentStream.Length)
          str = System.Text.Encoding.GetEncoding(WebBrowser1.Document.Encoding).GetString(buff)
          RichTextBox1.Text = str
        Catch ex As Exception
          MessageBox.Show(ex.Message)
        End Try

        source = RichTextBox1.Text
End Sub