一、服务地址
http://www.webxml.com.cn/WebServices/WeatherWebService.asmx
二、项目添加服务引用-高级-添加web引用。
说明,如果仅仅是添加服务引用,运行会报错,类似“未将对象添加到实例”,原因很简单,这个网站是net2.0。添加web引用就是基于2.0的。
三、关键代码
引用部分:
Imports System
Imports System.IO
Imports System.Net
Imports System.Text
Imports System.Web
Imports System.Web.Services
调用部分:
Dim w As Weather.WeatherWebService = New Weather.WeatherWebService()
Dim b() As String = w.getWeatherbyCityName(cityName) '根据城市获取天气,返回一个数组,23个元素。
Dim wstr As String = "省份,城市,城市代码,城市图片名称,最后更新时间,当天的 气温,概况,风向和风力,天气趋势开始图片名称(以下称:图标一),天气趋势结束图片名称(以下称:图标二),现在的天气实况,天气和生活指数,第二天的气温,概况,风向和风力,图标一,图标二,第三天的 气温,概况,风向和风力,图标一,图标二,被查询的城市或地区的介绍"