リンク名が複数同じ名前あるとき

質問

リンク名をクリックさせたいのですが、うまくいかないので教えてください。

環境
OS　XP
VB2005

For Each anchor As HtmlElement In WebBrowser1.Document.Links
If anchor.InnerText = "あああ" Then
anchor.InvokeMember("click")
Exit For
End If
Next

「あああ」がひとつしかない場合はクリックできるのですが、「あああ」が複数ある場合にうまくいきません。
2つ目の「あああ」クリックさせる方法があれば教えてください。
宜しくお願いいたします。

回答No.3

vbhanatyan · ベストアンサー

失礼しました、同じ名前が２個あるとの事だったのでGetElementsByName を使ったのですが
それなら、下記のようにして取得するしかないですね(実際のサイトのソースが解れば違う答えも！)

　　Dim elem As HtmlElement = Nothing, n As Integer = 0
　　For Each elem In WebBrowser1.Document.GetElementsByTagName("A")
　　　　If elem.InnerText = "あああ" Then
　　　　　　n += 1
　　　　　　If n = 2 Then
　　　　　　　　elem.InvokeMember("Click") 'クリックする
　　　　　　　　Exit For
　　　　　　End If
　　　　End If
　　Next

お礼

お陰様で実行することができました。
ありがとうございました。

回答No.2

vbhanatyan

失礼しました、先の回答は無視して下さい。

VB2005 なら　
WebBrowser1.Document.All.GetElementsByName("あああ").Item(1).InvokeMember("Click")
ですね。

補足

ご回答ありがとうございます。
{"'1' の値は 'index' に対して有効ではありません。'index' は 0 と -1 の間でなければなりません。
パラメータ名: index"}
となりうまくいきませんでした。
クリックさせたいソースは以下の通りです。
<tr valign="top">
<td width="9"><img src="https://image.xxxxx.xxxxxx.co.jp/acom/pc/img/com/w05s04_red.gif" alt="" height="9" width="9"></td>
<td><font size="-1"><a href="DI01P004_005?genreId=1040006250&d_id=c326caa9069334a8d1f66e7cc5344789#03">あああ</a></font></td>
</tr>

もし、おわかりでしたら教えていただけませんか?。

回答No.1

vbhanatyan

WebBrowser1.Document.All.GetElementsByName("あああ").Item(1).Click
又は
WebBrowser1.Document.GetElementsByName("あああ").Item(1).Click

でできたかと。