Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- '<=== This gate-keeps the entire section between If and End If. Only if the o/u tab is visible should the code below, between If and Else be executed. If you cannot see an O/U tab then code should go direct to Else part.
- If .document.querySelector("#bettype-tabs li:nth-of-type(5)").getAttribute("style") = "display: block;" Then '<<<<< o/u tab visible
- .document.querySelector("#bettype-tabs li:nth-of-type(5) span").FireEvent "onmousedown" 'over/under '<==switch to o/u tab
- Do
- Loop Until .document.querySelector(".table-chunk-header-dark").getAttribute("style") = "display: block;" '<==wait for o/u tab to become dark shaded
- .document.querySelector("[onclick*='P-2.50-0-0']").Click '<==click desired option
- While .Busy Or .readyState < 4: DoEvents: Wend
- Dim oddOver As String, oddUnder As String
- Set averages = .document.querySelectorAll(".aver td")
- oddOver = "'" & averages.item(2).innerText
- oddUnder = "'" & averages.item(3).innerText
- Else '<================================================================================o/u tab not visible
- oddOver = "No odds"
- oddUnder = "No odds"
- End If
Add Comment
Please, Sign In to add comment