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