得到天氣預報的案例

'得到天氣預報的案例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 WithEnd Sub