IE .getElementsByTagNameでタグ指定 .Quitで閉じる

発行内容

IE .getElementsByTagNameでタグ指定 .Quitで閉じる

どうも、三流プログラマーのＫｅｎ３です。

今回は、ＩＥでパラメータ入力後に、
新たに開かれた結果ウインドウから情報を抜き出し、
そのウインドウを閉じる、そんなことにチャレンジしてみます。
※起動したＩＥから広告コードを抜き取って用済みになった（失礼）IEを閉じる。

/*
 * １．やりたいこと 概要
*/

楽天ブックのリンク作成ページ
http://books.rakuten.co.jp/afvc/afinfo/page03.html

ここで、
ＩＳＢＮ番号 と 自分の広告コードのSIDとPIDを入力してボタンを押すと
ソースが表示される。

この広告コードを取得、そんなプログラムを作ってみたい。

ポイントになるのが、繰り返しになってしまいますが、
新規のイベントで自分で作ったオブジェクトを代入してます。

'新しいウインドウを開くイベントをチェックする
Private Sub WebBrowser1_NewWindow2(ppDisp As Object, Cancel As Boolean)

    '新しいウインドウを自分の管理下に置きたいので、オブジェクトを代入してあげる
    Set objNEW_IE = CreateObject("InternetExplorer.Application")
    Set ppDisp = objNEW_IE   '作ったオブジェクトを代入

    objNEW_IE.Visible = True '念のため見えるようにする

End Sub

Dim WithEvents objNEW_IE As InternetExplorer
とイベントを取れる宣言しているので、

テストで、URLとソースを表示してみました。
'新しく作成したウインドウが読み込まれたら、処理したいので、
Private Sub objNEW_IE_DocumentComplete(ByVal pDisp As Object, URL As Variant)
    MsgBox "あたらしく開かれたＵＲＬは" & URL
    MsgBox "HTMLソースは" & objNEW_IE.Document.all(0).innerhtml
End Sub

と、オブジェクトを自分の管理下に置くことができました。

ここから、広告コードを抜き取って、ウインドウを閉じたいと思います。

/*
 * ２．タグ名指定でオブジェクトをGetする .getElementsByTagName
*/

オブジェクトが操作可能となったので、広告コードを取り出してみたいと思います。
objNEW_IE.Document.all(0).innerhtml
からinstr関数で<TEXTAREA>のタグを探す方法もあるのですが、

今回はカッコつけて、
.getElementsByTagName("タグの名前")
を使用してみます。

TEXTAREAのタグなので、
.getElementsByTagName("TEXTAREA")
として、取り出してみます。

'新しく作成したウインドウが読み込まれたら、処理したいので、
Private Sub objNEW_IE_DocumentComplete(ByVal pDisp As Object, URL As Variant)
    '読み込み完了を判断する
    If objNEW_IE.ReadyState = READYSTATE_COMPLETE Then '読み込み完了
      'テキストをセットする
      Me.txtKCODE.Value = _
         objNEW_IE.Document.getElementsByTagName("TEXTAREA").Item(0).InnerTEXT
    End If
End Sub

と、こんな感じで、
.getElementsByTagName("TEXTAREA").Item(0).InnerTEXT
タグの名前がTEXTAREAでアイテム０番目の内部テキスト
を取得できました。

/*
 * ３．新しく開かれたIEを閉じる .Quitする
*/

あとは、取得が終わったので、閉じてみます。
閉じるのは.QUITメソッドです。

'新しく作成したウインドウが読み込まれたら、処理したいので、
Private Sub objNEW_IE_DocumentComplete(ByVal pDisp As Object, URL As Variant)
    '読み込み完了を判断する
    If objNEW_IE.ReadyState = READYSTATE_COMPLETE Then '読み込み完了
      'テキストをセットする
      Me.txtKCODE.Value = _
         objNEW_IE.Document.getElementsByTagName("TEXTAREA").Item(0).InnerTEXT
      'IEを閉じる
       objNEW_IE.Quit
    End If
End Sub

ソース取得後、バイバイって感じです。
回線速度が速いと、開いてすぐ閉じてとなると思います。
私の場合は一瞬間があって、見えます。


/*
 * ４．終わりの挨拶
*/

webフォームにパラメータをセットして処理実行、
実行時、新しい情報ウインドウが開かれる（新規IEが起動する）
そのウインドウから結果データを取得して、閉じる。

そんな流れのテストプログラムでした。

何か読者の心に残れば、うれしいです。
＊私の独り言をうまく消化してくださいね。

在宅三流プログラマー Ｋｅｎ３でした。

フィードバック

評価・感想

ページフッター(リンクや広告など)

書籍の購入

コンピュータ書籍の発送がハヤイ専門店

コンピュータの本・専門店

※種類が豊富で探し易いです。※在庫ありが48時間以内発送が急ぎで資料や書籍がほしい時、とても助かります。 お奨め本の目次を見るだけでも勉強になったり

amazon.co.jpでキーワード別チェック