以前、vb でウェブページのリンクをクリックする方法を検索したことがあり、実際にこのサイトで良い答えを得ました。しかし今、私は別のリンクをクリックしようとしています。理解しやすいようにコードを投稿させてください。(初めて質問するのでお手柔らかに(笑))
<div class="pauseButton" style="display: block;"><a href="#" address="true"></a></div>
これが私のコードです (これは Pandora 用であり、サインインするための私のコードです。)
Public Class fMain
Dim elementCollection As HtmlElementCollection
Private Sub fMain_Load(sender As Object, e As EventArgs) Handles MyBase.Load
wb.Navigate("http://www.pandora.com")
End Sub
'buttons
Private Sub bLogin_Click(sender As Object, e As EventArgs) Handles bLogin.Click
elementCollection = wb.Document.GetElementsByTagName("input")
For Each ele As HtmlElement In elementCollection
If ele.GetAttribute("name").Equals("email") Then
ele.SetAttribute("Value", tbEmail.Text)
End If
If ele.GetAttribute("name").Equals("password") Then
ele.SetAttribute("Value", tbPassword.Text)
End If
If ele.GetAttribute("type") = "submit" Then
ele.InvokeMember("click")
End If
Next
End Sub
Private Sub bSignOut_Click(sender As Object, e As EventArgs) Handles bSignOut.Click
End Sub
Private Sub bPlay_Click(sender As Object, e As EventArgs) Handles bPlay.Click
Dim IsRightElement As Boolean = False
For Each ele As HtmlElement In wb.Document.Links
If IsRightElement Then
ele.InvokeMember("click")
IsRightElement = False
Exit For
End If
If ele.GetAttribute("class") = "playButton" Then
IsRightElement = True
End If
Next
End Sub
Private Sub bPause_Click(sender As Object, e As EventArgs) Handles bPause.Click
End Sub
Private Sub bFavorite_Click(sender As Object, e As EventArgs) Handles bFavorite.Click
End Sub
End Class
質問を混乱させて申し訳ありませんが、特定の href="link.com" のリンクをクリックする方法はほとんど知っていますが、ここでは、再生ボタンと他のボタンを区別する唯一のことはその href="#" なので、あまり役に立ちません。重ねてお礼申し上げます。(:
編集: 私はパンドラ ストリーマーを作ろうとしています。