求VB 计算IP归属地 代码

来源:百度知道 编辑:UC知道 时间:2024/05/15 02:47:44
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