WebBrowserで任意の文字列をクリックさせるには

解決

ぱる 2006-04-02 10:39:35 No: 130860

WebBrowserコントロールで任意の文字列（テキストリンク等）を
クリックさせるにはどうしたら良いでしょうか？

getElementsByTagName("A").Item(0).Click()
ではなく直接リンク文字列をクリックさせたいのですが

vbのヴァージョンはvb2005です

ＶＢ梅 2006-04-02 19:31:20 No: 130861

Private WithEvents AxWebBrowserAs AxWebBrowser= New AxWebBrowser
Dim objDocument As mshtml.HTMLDocument = AxWebBrowser.Document
'注意  上下はドキュメント読み込み完了していないとエラー出るよ
Dim I As Integer,InputIN As Object
For Each InputIN In objDocument .getElementsByTagName("a")
     If InputIN.innerHTML = "目的のＬＩＮＫ先" Then
         objInput.links.Item(I).Click()
     End if
  I=I+1
Next

たぶん、こんな感じ、動作確認してないけど・・・・
タグ内の文字列をこれで抜き出せます
何個目かを数えてItem(I).Click するといいです。

ぱる 2006-04-03 04:19:10 No: 130862

ありがとうございました

innerHTMLを使って解決できました

一晩悩んでました・・・（汗