tmp_retrieve_futbol24.com_onmouseover_tooltips_content.vbs

Set objIE = CreateObject("InternetExplorer.Application")
With objIE
    .Visible = True
    .Navigate "http://www.futbol24.com/Live/url?__igp=1&LiveDate=20160625"
    Do While .Busy Or Not .readyState = 4: WScript.Sleep 100: Loop
    Do Until .document.readyState = "complete": WScript.Sleep 100: Loop
    Do While TypeName(.document.getElementById("f24com_tableresults")) = "Null": WScript.Sleep 100: Loop
    Set objTable = .document.getElementById("f24com_tableresults")
    With CreateObject("Scripting.Dictionary")
        For Each objNode In objTable.getElementsByClassName("league alt")
            .Item(objNode) = ""
        Next
        arrLeagueList = .Keys()
    End With
    With CreateObject("Scripting.Dictionary")
        For Each objNode In objTable.getElementsByClassName("status alt")
            .Item(objNode) = ""
        Next
        arrStatusList = .Keys()
    End With
    Set objTipNode = .document.getElementById("f24com_hint")
    Set objEventMouseOver = .document.createEvent("MouseEvents")
    objEventMouseOver.initMouseEvent "mouseover", True, True, .document.parentWindow, 1, 12, 345, 7, 220, False, False, True, False, 0, ""
    For i = 0 to UBound(arrLeagueList)
        Set objNode = arrLeagueList(i)
        Set objClone = objNode.cloneNode(True)
        objNode.dispatchEvent objEventMouseOver
        objClone.innerText = objTipNode.innerText
        objNode.parentNode.insertBefore objClone, objNode.nextSibling
        Set objNode = arrStatusList(i)
        Set objClone = objNode.cloneNode(True)
        objNode.dispatchEvent objEventMouseOver
        objClone.innerText = objTipNode.innerText
        objNode.parentNode.insertBefore objClone, objNode.nextSibling
    Next
End With