求VB 计算IP归属地 代码

来源：百度知道 编辑：UC知道 时间：2024/05/28 15:57:28
X1 = Mid(wburl, X1, X2 - X1)

三楼的你好! 上面这句出现错误"无效的过程或参数"

这个需要一个数据库吧,就是那些ip归属地的数据库.然后用程序到数据库里面进行查询.

在form1窗体中加一个label,命名为label1,

添加以下代码：

Private Declare Function InternetOpen Lib "wininet.dll" Alias "InternetOpenA" ( _
ByVal sAgent As String, ByVal lAccessType As Long, _
ByVal sProxyName As String, ByVal sProxyBypass As String, _
ByVal lFlags As Long) As Long
Private Declare Function InternetOpenUrl Lib "wininet.dll" Alias "InternetOpenUrlA" ( _
ByVal hInternetSession As Long, ByVal sUrl As String, _
ByVal sHeaders As String, ByVal lHeadersLength As Long, _
ByVal lFlags As Long, ByVal lContext As Long) As Long
Private Declare Function InternetReadFile Lib "wininet.dll" ( _
ByVal hFile As Long, ByVal sBuffer As String, _
ByVal lNumBytesToRead As Long, _
lNumberOfBytesRead As Long) As Integer
Private Declare Function InternetCloseHandle Lib "wininet.dll" ( _
ByVal hInet As Long) As Integer