.WebRequestクラスをつかってURIの内容を取得

• ソース表示.ascxとか作るための部品。
• 未完成品。
• 参考：http://dobon.net/vb/dotnet/internet/webrequest.html

    Private Sub Page_Load(ByVal sender As System.Object, _
          ByVal e As System.EventArgs) Handles MyBase.Load

        '参考：http://dobon.net/vb/dotnet/internet/webrequest.html
        '使用クラス：
        'System.IO
        'System.Text
        'System.Net
        'System.Web.HttpUtility

        'WebRequestの作成
        Dim webreq As System.Net.WebRequest = _
            System.Net.WebRequest.Create(uri)

        'サーバーからの応答を受信するためのWebResponseを取得
        Dim webres As System.Net.WebResponse = webreq.GetResponse()

        '文字コード(shift-jis)を指定する'euc,shift-jis,utf-8...
        Dim enc As System.Text.Encoding = _
            System.Text.Encoding.GetEncoding("shift-jis")
        '応答データを受信するためのStreamを取得
        Dim st As System.IO.Stream = webres.GetResponseStream()
        Dim sr As New System.IO.StreamReader(st, enc)
        '受信して表示
        Dim html As String = sr.ReadToEnd()
        html = System.Web.HttpUtility.HtmlEncode(html)
        'html = Replace(html, vbCrLf, "<br>")
        'TODO:ここでソース装飾
        Response.Write("<pre>")
        Response.Write(html)
        Response.Write("</pre>")

        '閉じる
        sr.Close()

    End Sub

<pre /> より <code />のほうがいいかな？
実行結果：http://moo4test.japan.webmatrixhosting.net/sample/google_html_source.aspx