使用WebService实现IP归属地查询源码

    程序中有时要用到查询IP地址归属地的问题，在网上查了一下，大部分是使用IP地址库来实现，但IP地址库的更新不是实时，通过对一些IP地址归属地查询网页的分析，采用Webservice的方式实现出来，免除了自已更新IP地址库问题！

1. Imports System.Web
2. Imports System.Web.Services
3. Imports System.Web.Services.Protocols
4. Imports System.Net
6. <WebService(Namespace:="http://tempuri.org/")> _
7. <WebServiceBinding(ConformsTo:=WsiProfiles.BasicProfile1_1)> _
8. <Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
9. Public Class QueryService
10.      Inherits System.Web.Services.WebService
12.     ''' <summary>
13.     ''' 
14.     ''' </summary>
15.     ''' <param 
16.     <WebMethod()> Public Function QueryIP(ByVal ip As String) As String
17.         Dim uri As New Uri("http://www.123cha.com/ip/?q=" + ip)
18.         Dim req As WebRequest = WebRequest.Create(uri)
19.         Dim sm As IO.Stream = req.GetResponse.GetResponseStream
20.         Dim sr As New IO.StreamReader(sm, System.Text.Encoding.Default)
21.         Dim html As String = sr.ReadToEnd
22.         Dim resultStart, resultStop As Integer
23.         Dim result As String
25.         resultStart = html.IndexOf("本站主数据</font>: ") + "本站主数据</font>: ".Length
26.         resultStop = html.IndexOf("<", resultStart)
27.         result = html.Substring(resultStart, resultStop - resultStart)
29.         Return result.Replace(" ", "")
30.     End Function
31. End Class