xmlhttp读取frame中的内容2
各位高手：
http://www.livescore.in/
双击“Odds”，如何取得以下内容？
似乎加过密了
[解决办法]
自己去琢磨球队名称：
Private Sub CommandButton1_Click() '取得Livescore内容
With CreateObject("msscriptcontrol.scriptcontrol")
.Language = "JavaScript"
t1 = Right(.Eval("(new Date).getTime();"), 4)
End With
With CreateObject("Microsoft.XMLHTTP")
.Open "GET", "http://d.livescore.in/x/feed/fo_1_0_8_en_4_0~" & t1, False
.setRequestHeader "x-fsign", "SW9D1eZo"
.send
ss = Split(.responseText, "AA÷")
End With
tt = Right(Split(Split(ss(1), "XA÷")(1), "YA÷")(0), 1)
For i = 1 To UBound(ss)
uu = Replace(ss(i), tt, "")
Debug.Print Split(uu, "AY÷")(0), Split(Split(uu, "XA÷")(1), "YA÷")(0), Split(Split(uu, "XB÷")(1), "YB÷")(0), Split(Split(uu, "XC÷")(1), "YC÷")(0)
Next i
End Sub
