利用Web Service设计IP（主机）地址信息查询程序
利用Web Service设计IP（主机）地址信息查询程序 '作者：wgscd(自由奔腾)@ 2005
记得网上有许多专门搜索Web Service 提供者的站点，可惜我找了半天才找到了http://www.xmethods.com/这个网站，还是很幸运！一看，哇哈多啊，随便找个IP2Location IP Address Geolocation Web Service using SOAP，明白了是可以提供IP查询的WEB Service 马上到http://www.fraudlabs.com/default.aspx注册个KEY（只要E-mail就OK），后到VS.NET2003添加WEB引用http://ws.ip2location.com/ip2locationwebservice.asmx?wsdl
看提供的方法返回有查询IP，主机的国家，地区，国家，城市，国家代码，域名，纬度，经度，邮编
很好！
代码：
'作者：wgscd(自由奔腾)@ 2005
Dim key As String = '02-E39Y-A27K''注意自己申请的KEY，这我的
Dim Input As String =textbox1.txt '记录IP
Dim IPlocation As com.ip2location.ws.IP2LOCATION
IPlocation = New com.ip2location.ws.IP2LOCATION
Dim ws1 As com.ip2location.ws.Ip2LocationWebService
ws1 = New com.ip2location.ws.Ip2LocationWebService
IPlocation = ws1.IP2Location(Input, key)
Me.Text = Input
If IPlocation.MESSAGE <> '' Then 'if some ERRO
Label6.Text = '哎呀！出错了。。'
MsgBox(' 错误信息：' & IPlocation.MESSAGE)
Else 'if no ERRO
Dim strResult As String = '国家：' & IPlocation.COUNTRYNAME & vbCrLf & '城市：' & IPlocation.CITY & vbCrLf & '国家代码：' & IPlocation.COUNTRYCODE & vbCrLf & 'CREDITSAVAILABLE：' & IPlocation.CREDITSAVAILABLE & vbCrLf & '域名：' & IPlocation.DOMAINNAME & vbCrLf & 'ISP名：' & IPlocation.ISPNAME & vbCrLf & '纬度：' & IPlocation.LATITUDE & vbCrLf & '经度：' & IPlocation.LONGITUDE & vbCrLf & '地区：' & IPlocation.REGION & vbCrLf & '邮编：' & IPlocation.ZIPCODE & vbCrLf & vbCrLf & vbCrLf & '--wgscd(自由奔腾)@ 2005--'
msgbox(strResult) '结果出来了
运行情况：
下载地址：http://xkec.com/wgscd/exe/IP-Spy.exe
