MSHTMLとVB6を使用してWebページのHTMLを読む

Visual Basic 6のMSHTMLのオブジェクトは、 インターネットとWebページに関連した一連の操作を実行することができます。

注意深く構築されたVB6のフォームを通じて、リモートでWebページ上のHTMLコードを読み取るか、我々は、この記事で参照してください

我々は、Visual Basic 6の私達のコピーを開き、新しいEXEを作成します。 我々は、問題の最終的な記事を表す下の画像のようなフォームとdisegnamoloを作成します。

プロパティを持つVB6のIDEから直接管理されている主な要素は、テキストボックス、テキストエリアとボタンコントロールです。

テキストボックスはtxtUrlと呼ばれ、デフォルトのテキスト"http://"に代入されます。

テキストエリアがtxtCodiceHTMLと呼ばれる、テキストを削除し、我々は、MultiLineプロパティをTrueに設定し、水平および垂直スクロールバーが有効になります。

ボタンコントロールはcmdCodiceHTMLと呼ばれています。

これ以上進む前に我々は、完全な名前のMicrosoft HTMLオブジェクトライブラリであるMSHTMLライブラリへの参照をインポートする必要があります。

メニューを入力してください。

 



プロジェクト/参照設定...

 

次の画像に記載されて、それを選択し、選択内容を確認、エントリをローカライズする。

私たちは、二重、ボタンをクリックしてそのサブルーチンのコードにアクセスし、次のコードを挿入します。

プライベートサブcmdCodiceHTML_Click（）



    



新MSHTML.HTMLDocumentとして暗いアイテム



    



 MSHTML.HTMLDocumentとして暗い文書



    



 September oggetto.createDocumentFromUrl文書=（txtUrl.Text、vbNullString）を



    



 documento.readyState <>"完全な"が、か



        



 DoEvents関数



    



ループ



    



 txtCodiceHTML.Text = documento.documentElement.outerHTML



    



九月文書は=何もない



    



九月オブジェクトは=何もない







 End Subの

コードは単純です：メソッドcreateDocumentFromUrlを介してWebページを開くと、クロスチェックにより提供、二回オブジェクトを宣言します。

Effetuiamoは、それはドキュメントの最後までして、"完全な"状態をサイクルに達するまで。

読み取り専用プロパティ（もちろん）outerHTMLを通してテキストエリアにテキストをHTMLコードを挿入します。