講義 3: VB の Web ブラウザを使用して Web ページ内のハイパーリンクを見つける方法
Web ページを開く方法と Web ページを送信する方法についてはすでに説明しました。今日は、Web ページ内の URL やその他の要素を見つける方法を見ていきます。
1. まず VB を開いて新しいプロジェクトを作成します。
2. ツールバーを右クリックして「コンポーネント」を選択するか (中国語版の VB を使用しています)、「プロジェクト」メニューを選択して「コンポーネント」をクリックします。
3. Microsoft Internet Controls を見つけて選択し、ツールバーに追加の地球のようなアイコンが表示されます。これを中心に実装が行われます。
4. WebBrowser1 を Form1 に追加し、command1 を Form1 に追加し、list1 を form1 に追加します (この list1 は少し緩和する必要があり、ここで見つかったすべての修飾 URL を配置します)。
5. 次のコードを Form1 に追加します。 (上記はすべて以前に説明した内容なので、よく知られているはずです)
' - - - - - 始める - - - - - -
プライベートサブコマンド1_Click()
ディム vTag、vDoc
ディム・オールカウント、i
リスト1.クリア
vDoc = WebBrowser1.Document.All を設定します。
すべての数 = vDoc.length
For i = 0 から Allcount - 1
If UCase(vDoc.Item(i).TagName) = "A" then 'URL を検索
vTag = vDoc.Item(i).href
If InStr(vTag, "http://dhunter.51.net") then 'URL に http://dhunter.51.net が含まれているかどうかを検出します
List1.AddItem vDoc.Item(i).href 'あればlist1に追加
終了の場合
終了の場合
次は私
エンドサブ
プライベートサブフォーム_Load()
WebBrowser1.「http://dhunter.51.net」に移動します。
エンドサブ
' - - - - - 仕上げる - - - - - -
6. もちろん、これはテストです。[実行] ボタンをクリックすると、Web ブラウザが http://dhunter.51.net を開いたことがわかります。Web ページの基本的なダウンロードが完了したら、[command1] ボタンをクリックします。私たちの素敵なウェブブラウザは、http://dhunter.51.net の URL が list1 に追加されたことを含むコンテンツを見つけます。
これらを使用して、独自のシミュレーターの作成を開始できます。もちろん、より多くのスキルとメソッドを実装する必要があります。