xmlhttp读取frame中的内容解决方法
xmlhttp读取frame中的内容
各位高手:
http://www.10bet.com/sports/soccer/?utm_campaign=soccer?LeaguesCollection=10098
双击“Argentina - Primera Div”,如何取得以下内容?
------解决方案--------------------
我碰到了相同的问题,一起等高手解决。
------解决方案--------------------
用EXCEL的vba:
各位高手:
http://www.10bet.com/sports/soccer/?utm_campaign=soccer?LeaguesCollection=10098
双击“Argentina - Primera Div”,如何取得以下内容?
------解决方案--------------------
我碰到了相同的问题,一起等高手解决。
------解决方案--------------------
用EXCEL的vba:
Private Sub CommandButton1_Click()
On Error Resume Next
With CreateObject("WinHttp.WinHttpRequest.5.1")
.Open "POST", "http://cn.10bet.com/pagemethods.aspx/UpdateEvents", False
.setRequestHeader "requesttarget", "AJAXService"
.setRequestHeader "Referer", "http://cn.10bet.com/sports/足球/?utm_source=shp&utm_medium=sleft&utm_campaign=soccer"
.setRequestHeader "Content-Type", "application/x-www-form-urlencoded"
.setRequestHeader "Host", "cn.10bet.com"
.setRequestHeader "Connection", "Keep-Alive"
.send "requestString=5100140@5100141@5100142@5100143@5100144@5100145"
tt = "brr=" & .responsetext
With CreateObject("MSScriptControl.ScriptControl")
.Language = "JScript"
.AddCode tt
For i = 0 To 5
For j = 1 To 3
k = .Eval("brr[" & i & "][2][0][1][" & (j - 1) * 2 + 1 & "]")
If k > 0 Then
Cells(i + 1, j) = Format(k / 100 + 1, "00.00")
Else
Cells(i + 1, j) = Format(1 - 100 / k, "00.00")
End If
Next j