ポイントは、
Set tagINPUT = Me.WebBrowser1.Document.all.tags("INPUT")
で、INPUTのタグを取り出し
For n = 0 To tagINPUT.Length - 1
のループで、
If tagINPUT(n).Value = "オッズ" Then
を判断して、見つけた場所を保存(nInputNo = n)
あとは、
tagINPUT(nInputNo).Click
で、単純に.Clickメソッドを使いボタンを押しました。
↑なんて、簡単に書いてますが、試行錯誤・長い道のりでした。
Set tagINPUT = Me.WebBrowser1.Document.all.tags("INPUT")
で、INPUTのタグを取り出し
For n = 0 To tagINPUT.Length - 1
のループで、
If tagINPUT(n).Value = "オッズ" Then
を判断して、見つけた場所を保存(nInputNo = n)
あとは、
tagINPUT(nInputNo).Click
ken3video 2 years ago