' VBS 获取指定城市天气预报

GetWeather "嘉定"



Function GetWeather(city)

  On Error Resume Next

  With CreateObject("Microsoft.XMLHTTP")

    .Open "GET","http://api.asilu.com/weather/?output=text&city="& city,False

    .Send:body=.ResponseText

  End With

  msgbox body,64+4096, "天气预报"

End Function