记得网上有许多专门搜索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--"