【】Top

【】VB.NET
【】VB6.0

【】メールマガジンの購読
【】メールマガジンの解除






【】会社概要

【】お問い合わせ


姉妹サイト「バーチャルコネクション!」はこちらです。

姉妹サイト「七福神のメールでビンゴ!」はこちらです。

アイネットマコト

●24時間365日の安心をあなたにAT-LINK専用サーバ・サービスお勧めのサーバです。






サイトからページソースを取得する

.NET では、Webへアクセスして、ページソースを取得させることが可能です。


この機能を使えば、オリジナルのブラウザや、必要な箇所の情報を
文字列操作で取り出すことが可能です。
ここでは、簡単に、「URL」を指定して
ページソースを取得する場合での説明をしています。

フォームに次の様なコードを記述します


-----------VB.NETコーディングここから-------------------

1.フォームに、テキストボックスコントロールと
  ラベルコントロールを配置します。
    下記は、デフォルトのオブジェクトの名前と配置を示しています。

  ┏━━━━┓   ┏━━━━┓
  ┃Labale1 ┃   ┃TextBox1┃
  ┗━━━━┛   ┗━━━━┛
  ┏━━━━┓   ┏━━━━┓
  ┃Labale2 ┃   ┃TextBox2┃
  ┗━━━━┛   ┃※複数行┃
                 ┃        ┃
                 ┗━━━━┛


2.テキストボックスコントロール TextBox2は、
    複数行の入力とするため、
    Multiline プロパティを True にします。(複数行)
    ScrollBars プロパティを Vertical にします。(スクロールバー)


3.配置したコントロールの
    ラベルのテキストを入力項目にあわせて変更します。

  ┏━━━━┓   ┏━━━━┓
  ┃URL     ┃   ┃TextBox3┃
  ┗━━━━┛   ┗━━━━┛
  ┏━━━━┓   ┏━━━━┓
  ┃HTML    ┃   ┃TextBox4┃
  ┗━━━━┛   ┃        ┃
                 ┃        ┃
                 ┗━━━━┛


4.フォームの一番下に、ボタンコントロールを配置します。
     (デフォルトのオブジェクトの名前 Button1)

  ┏━━━━┓   ┏━━━━┓
  ┃URL     ┃   ┃TextBox3┃
  ┗━━━━┛   ┗━━━━┛
  ┏━━━━┓   ┏━━━━┓
  ┃HTML    ┃   ┃TextBox4┃
  ┗━━━━┛   ┃        ┃
                 ┃        ┃
                 ┗━━━━┛


           ┏━━━━┓
           ┃Button1 ┃
           ┗━━━━┛



5.ボタンコントロールの
    text プロパティに「取得」と記述します。
  ※説明用のためです。必須ではありません。


  ┏━━━━┓   ┏━━━━┓
  ┃URL     ┃   ┃TextBox3┃
  ┗━━━━┛   ┗━━━━┛
  ┏━━━━┓   ┏━━━━┓
  ┃HTML    ┃   ┃TextBox4┃
  ┗━━━━┛   ┃        ┃
                 ┃        ┃
                 ┗━━━━┛


           ┏━━━━┓
           ┃取得    ┃
           ┗━━━━┛



6.ボタンコントロールをダブルクリックして、
    ボタンのクリックイベントの編集を開始して、
    フォームの宣言部に、次のコードを記述します。

    Imports System.Net
    Imports System.Text


  さらに、次のコードを記述します。


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

        Try

            Dim strUrl As String 'URL

            Dim myWebClient As New WebClient    'Web
            Dim myDatabuffer As Byte()          'バッファバイト配列

            Dim strHtml As String

            'URLをセットします
            strUrl = TextBox1.Text

            'URLからデータを取り出します
            myDatabuffer = myWebClient.DownloadData(strUrl)
            'エンコードしています
            strHtml = Encoding.Default.GetString(myDatabuffer)

            'ページソースを表示しています
            TextBox2.Text = strHtml


        Catch webEx As WebException
            'エラー
            TextBox2.Text = webEx.ToString()

        End Try

    End Sub




7.ビルドして実行します。

8.フォームに表示された
    「URL」欄に、取得したいURLを入力します。
     ※例) http://anetm.com/m/

9.フォームに表示された「取得」を押すと、
    「HTML」欄に、ページソースが表示されます。



-----------VB.NETコーディングここまで-------------------

Encoding には、 ASCII や Unicode などが用意されています。




 

http://anetm.com/dev/d.cgi?SC=DTDTL&o=OOV

Copyright(c)2001-2004 Ai Net Makoto 記事・情報の無断転載を禁止します。

「これがほしかった!厳選サンプルツール集」の注意点
●当サイトはリンクフリーです。
2005/10/06(木)00:05 更新