得到天气预报的案例

'得到天气预报的案例
Private Sub getWeather()
    With CreateObject("WinHttp.WinHttpRequest.5.1")
        .Open "GET", "http://www.thinkpage.cn/weather/api.svc/getWeather?city=101021300&language=zh-CHS&provider=SMART_CHS&unit=C", False
        .SetRequestHeader "Referer", "http://www.thinkpage.cn/"
        .SetRequestHeader "x-requested-with", "XMLHttpRequest"
        .SetRequestHeader "Connection", "Keep-Alive"
        .send
        str1 = .responseText
        temp = Split(str1, "{""Code")
        With CreateObject("MSScriptControl.ScriptControl")
            .Language = "JScript"
            .AddCode "var o = " & str1 & ";"
            Debug.Print .Eval("o.Weathers[0].CityName") & " " & .Eval("o.Weathers[0].Current.Text") & " " & .Eval("o.Weathers[0].Current.Temperature") & " " & .Eval("o.Weathers[0].Current.Direction") & " " & .Eval("o.Weathers[0].Current.Humidity") & " " & .Eval("o.Weathers[0].Current.Pressure") & " " & .Eval("o.Weathers[0].Current.Visibility") & " " & .Eval("o.Weathers[0].Current.Sunrise") & " " & .Eval("o.Weathers[0].Current.Sunset")
            For i = 0 To 5
                Debug.Print .Eval("o.Weathers[0].Forecast[" & i & "].Day") & " " & .Eval("o.Weathers[0].Forecast[" & i & "].High") & " " & .Eval("o.Weathers[0].Forecast[" & i & "].Low") & " " & .Eval("o.Weathers[0].Forecast[" & i & "].Text")
            Next i
        End With
    End With
End Sub