-
-
-
-
-
-
-
-
-
-
-
-
-
-
- -
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
- -
-
-
-
-
-
-
-
-
-
-
-
-
-
これで、新しく開かれたウインドウを捕まえました。
あとは、Me.WebBrowser1 に 対して、処理を書きます。
'WebBrowser1に切り替わり、表示を待つ
While Me.WebBrowser1.Busy Or Me.WebBrowser1.ReadyState <> READYSTATE_COMPLETE
DoEvents
Wend
'表示完了後、INPUTタグ オッズのボタンを探す
Dim tagINPUT As Object 'INPUTのタグを保存する
Dim nInputNo As Integer '見つけたオブジェクトの場所
Set tagINPUT = Me.WebBrowser1.Document.all.tags("INPUT") 'INPUTのタグを取り出す
nInputNo = -1 'エラーの-1で初期化する
For n = 0 To tagINPUT.Length - 1 'INPUTのタグを頭から探る
If tagINPUT(n).Value = "オッズ" Then
nInputNo = n '見つけた番号をセットする。
Exit For '見つけたのでループを抜ける。
End If
Next n
'エラーの判断
If nInputNo = -1 Then '-1のまま、見つからなかったら、エラーにする。
MsgBox "オッズボタンが見つかりません、システム管理者に連絡してください"
Exit Sub '関数を抜ける
End If
'見つけた場所 nInputNoのINPUTを押す .Click
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
で、単純に.Clickメソッドを使いボタンを押しました。
↑なんて、簡単に書いてますが、↓こんな感じで試行錯誤・長い道のりでした。
03/28 INPUTタグ から オッズのボタンを探す
http://www.youtube.com/watch?v=1uKxrpIMEQE
-
- 動画を入れる --