'作者：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) '结果出来了
运行情况：
