|
Sub 江苏七星彩()
Dim objhq
Dim STxt As String, Url As String, i As Integer, j As Integer
Dim Pages As Integer, Pstr As String, arr, brr, rng As Range, p As Integer
Set objhq = CreateObject("Microsoft.xmlhttp")
' Cells.Clear
Url = "http://www.pinble.com/LotteryOneList.aspx?type=59DAE47BC0A467C82C20144B4C19F18E89DA39CC782A9811"
With objhq
.Open "POST", Url, False
.SetRequestHeader "Content-Type", "application/json; charset=UTF-8"
.SetRequestHeader "Referer", "http://www.pinble.com/Lottery.htm"
.Send
STxt = .ResponseText
End With
Cells(1, 1) = STxt
End Sub
|
|