几个现在可用的WebService

这个网站的Webservice不错

http://www.webxml.com.cn/zh_cn/web_services.aspx

至今可用

 

几个参考

[新] 中文<->英文双向翻译WEB服务 获得标准数据

Endpoint: http://fy.webxml.com.cn/webservices/EnglishChinese.asmx

 

国内手机号码归属地查询WEB服务 通讯和通信

Endpoint: http://webservice.webxml.com.cn/WebServices/MobileCodeWS.asmx

 

2500多个城市天气预报 WEB服务 公用事业

Endpoint: http://webservice.webxml.com.cn/WebServices/WeatherWS.asmx

 

股票行情数据 WEB 服务（支持香港、深圳、上海基金、债券和股票；支持多股票同时查询） 商业和贸易

Endpoint: http://webservice.webxml.com.cn/WebServices/StockInfoWS.asmx

 

国内飞机航班时刻表 WEB 服务 公用事业

Endpoint: http://webservice.webxml.com.cn/webservices/DomesticAirline.asmx

 

外汇-人民币即时报价 WEB 服务 商业和贸易

Endpoint: http://webservice.webxml.com.cn/WebServices/ForexRmbRateWebService.asmx

 

中国电视节目预告（电视节目表） WEB 服务 公用事业

Endpoint: http://webservice.webxml.com.cn/webservices/ChinaTVprogramWebService.asmx

 

腾讯QQ在线状态 WEB 服务 通讯和通信

Endpoint: http://webservice.webxml.com.cn/webservices/qqOnlineWebService.asmx

 

火车时刻表 WEB 服务 （第六次提速最新列车时刻表） 公用事业

Endpoint: http://webservice.webxml.com.cn/WebServices/TrainTimeWebService.asmx

 

中文简体字<->繁体字转换 WEB 服务 计算和单位换算

Endpoint: http://webservice.webxml.com.cn/WebServices/TraditionalSimplifiedWebService.asmx

 

Email 电子邮件地址验证 WEB 服务 通讯和通信

Endpoint: http://webservice.webxml.com.cn/WebServices/ValidateEmailWebService.asmx

 

验证码图片 WEB 服务 支持中文、字母、数字 图像和多媒体

Endpoint: http://webservice.webxml.com.cn/WebServices/ValidateCodeWebService.asmx

中国邮政编码 <-> 地址信息双向查询/搜索 WEB 服务 获得标准数据

Endpoint: http://webservice.webxml.com.cn/WebServices/ChinaZipSearchWebService.asmx

 

IP地址来源搜索 WEB 服务（是目前最完整的IP地址数据） 获得标准数据

Endpoint: http://webservice.webxml.com.cn/WebServices/IpAddressSearchWebService.asmx

 

 

关于Webservice温习

添加Web References

地址为其Endpoint地址

一个例子:

Imports System.Web.Services
Public Class Form1
    Public Function GetImageFromByteArray(ByVal bytes As Byte()) As Bitmap
        Return CType(Bitmap.FromStream(New IO.MemoryStream(bytes)), Bitmap)
    End Function
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim a1 As New cn.com.webxml.webservice.ValidateCodeWebService
        PictureBox1.Image = GetImageFromByteArray(a1.cnValidateByte(TextBox1.Text))
    End Sub
    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        Dim qqCheck As New cn.com.webxml.www.qqOnlineWebService()
        Label1.Text = ("你所查询的QQ状态为：") & vbNewLine
        Label1.Text &= (Function(text As String) _
                            IIf(text = "Y", "在线", _
                                IIf(text = "E", "没有账号或查询错误", "离线或隐身"))) _
                                (qqCheck.qqCheckOnline(TextBox2.Text).ToString)
    End Sub
End Class