易语言调用ip2region

银河世纪

自行上

https://github.com/lionsoul2014/ip2region

下载xdb文件

  

窗口程序集名	保 留	保 留	备 注
ip2region
变量名	类 型	数组	备 注
qqwry数据	字节集		qqwry文件内容
sPtr	整数型		第一条ip记录的偏移地址
ePtr	整数型		最后一条IP记录的偏移地址
VectorIndexCols	整数型
VectorIndexSize	整数型
SegmentIndexSize	整数型

子程序名	返回值类型	公开	备 注
_初始化			当基于本类的对象被创建后，此方法会被自动调用

子程序名	返回值类型	公开	备 注
_销毁			当基于本类的对象被销毁前，此方法会被自动调用

qqwry数据 ＝ {  }

子程序名	返回值类型	公开	备 注
初始化
参数名	类 型	参考	可空	数组	备 注
IP文件数据	字节集

qqwry数据 ＝ IP文件数据
VectorIndexSize ＝ 8
VectorIndexCols ＝ 256
SegmentIndexSize ＝ 14

子程序名	返回值类型	公开	备 注
IP	文本型
参数名	类 型	参考	可空	数组	备 注
IP地址	文本型

变量名	类 型	静态	数组	备 注
ipInt	长整数型
l	整数型
u	整数型
m	整数型
p	整数型
buff	字节集
sip	长整数型
eip	长整数型
dataLen	短整数型
dataPtr	长整数型
bin	字节集

ipInt ＝ ip2long (IP地址)
如果真 (ipInt ＝ 0)
返回 (“未知IP”)

l ＝ 0
u ＝ (ePtr － sPtr) ÷ SegmentIndexSize
判断循环首 (l ≤ u)
m ＝ 到整数 ( (l ＋ u) ÷ 2)  ' 计算近似中间记录
p ＝ sPtr ＋ m × SegmentIndexSize
buff ＝ 取字节集中间 (qqwry数据, p ＋ 1, 14)
sip ＝ 取字节集数据 (取字节集中间 (buff, 0, 4), #长整数型, )
判断 (ipInt ＜ sip)  ' 用户的IP小于中间记录的开始IP地址时
u ＝ m － 1
eip ＝ 取字节集数据 (取字节集中间 (buff, 5, 4), #长整数型, )  ' 获取中间记录的结束IP地址
判断 (ipInt ＞ eip)
l ＝ m ＋ 1
dataLen ＝ 取字节集数据 (取字节集中间 (buff, 9, 1), #短整数型, )  ' 字符长度
dataPtr ＝ 取字节集数据 (取字节集中间 (buff, 11, 4), #长整数型, )  ' 字符位置
' str ＝ 取字节集数据 (取字节集中间 (qqwry数据, dataPtr ＋ 1, dataLen), #文本型, )
bin ＝ 取字节集中间 (qqwry数据, dataPtr ＋ 1, dataLen)  ' cha询出来的结果
返回 (到文本 (文本编码转换 (bin, , )))


判断循环尾 ()
返回 (“cha询失败”)

子程序名	返回值类型	公开	备 注
ip2long	长整数型
参数名	类 型	参考	可空	数组	备 注
IP地址	文本型

变量名	类 型	静态	数组	备 注
IP	文本型		0
idx	长整数型
指针	整数型

IP ＝ 分割文本 (IP地址, “.”, )
如果真 (取数组成员数 (IP) ≠ 4)
返回 (0)
idx ＝ 到数值 (IP [1]) × VectorIndexCols × VectorIndexSize ＋ 到数值 (IP [2]) × VectorIndexSize
sPtr ＝ 取字节集数据 (取字节集中间 (qqwry数据, idx ＋ 256 ＋ 1, 8), #长整数型, )
ePtr ＝ 取字节集数据 (取字节集中间 (qqwry数据, idx ＋ 256 ＋ 5, 8), #长整数型, )
返回 (到数值 (IP [4]) ＋ 到数值 (IP [3]) × 256 ＋ 到数值 (IP [2]) × 求次方 (256, 2) ＋ 到数值 (IP [1]) × 求次方 (256, 3))

i支持库列表	支持库注释
e2ee	E2EE互联网服务器套件

.版本 2<br /> .支持库 e2ee<br /> <br /> .程序集 ip2region<br /> .程序集变量 qqwry数据, 字节集, , , qqwry文件内容<br /> .程序集变量 sPtr, 整数型, , , 第一条ip记录的偏移地址<br /> .程序集变量 ePtr, 整数型, , , 最后一条IP记录的偏移地址<br /> .程序集变量 VectorIndexCols, 整数型<br /> .程序集变量 VectorIndexSize, 整数型<br /> .程序集变量 SegmentIndexSize, 整数型<br /> <br /> .子程序 _初始化, , , 当基于本类的对象被创建后，此方法会被自动调用<br /> <br /> <br /> <br /> .子程序 _销毁, , , 当基于本类的对象被销毁前，此方法会被自动调用<br /> <br /> qqwry数据 ＝ {  }<br /> <br /> .子程序 初始化, , 公开<br /> .参数 IP文件数据, 字节集<br /> <br /> qqwry数据 ＝ IP文件数据<br /> VectorIndexSize ＝ 8<br /> VectorIndexCols ＝ 256<br /> SegmentIndexSize ＝ 14<br /> <br /> .子程序 IP, 文本型, 公开<br /> .参数 IP地址, 文本型<br /> .局部变量 ipInt, 长整数型<br /> .局部变量 l, 整数型<br /> .局部变量 u, 整数型<br /> .局部变量 m, 整数型<br /> .局部变量 p, 整数型<br /> .局部变量 buff, 字节集<br /> .局部变量 sip, 长整数型<br /> .局部变量 eip, 长整数型<br /> .局部变量 dataLen, 短整数型<br /> .局部变量 dataPtr, 长整数型<br /> .局部变量 bin, 字节集<br /> <br /> ipInt ＝ ip2long (IP地址)<br /> .如果真 (ipInt ＝ 0)<br />     返回 (“未知IP”)<br /> .如果真结束<br /> <br /> l ＝ 0<br /> u ＝ (ePtr － sPtr) ÷ SegmentIndexSize<br /> .判断循环首 (l ≤ u)<br />     m ＝ 到整数 ((l ＋ u) ÷ 2)  ' 计算近似中间记录<br />     p ＝ sPtr ＋ m × SegmentIndexSize<br />     buff ＝ 取字节集中间 (qqwry数据, p ＋ 1, 14)<br />     sip ＝ 取字节集数据 (取字节集中间 (buff, 0, 4), #长整数型, )<br />     .判断开始 (ipInt ＜ sip)  ' 用户的IP小于中间记录的开始IP地址时<br />         u ＝ m － 1<br />     .默认<br />         eip ＝ 取字节集数据 (取字节集中间 (buff, 5, 4), #长整数型, )  ' 获取中间记录的结束IP地址<br />         .判断开始 (ipInt ＞ eip)<br />             l ＝ m ＋ 1<br />         .默认<br />             dataLen ＝ 取字节集数据 (取字节集中间 (buff, 9, 1), #短整数型, )  ' 字符长度<br />             dataPtr ＝ 取字节集数据 (取字节集中间 (buff, 11, 4), #长整数型, )  ' 字符位置<br />             ' str ＝ 取字节集数据 (取字节集中间 (qqwry数据, dataPtr ＋ 1, dataLen), #文本型, )<br />             bin ＝ 取字节集中间 (qqwry数据, dataPtr ＋ 1, dataLen)  ' cha询出来的结果<br />             返回 (到文本 (文本编码转换 (bin, , )))<br />         .判断结束<br /> <br />     .判断结束<br /> <br /> .判断循环尾 ()<br /> 返回 (“cha询失败”)<br /> <br /> <br /> .子程序 ip2long, 长整数型<br /> .参数 IP地址, 文本型<br /> .局部变量 IP, 文本型, , "0"<br /> .局部变量 idx, 长整数型<br /> .局部变量 指针, 整数型<br /> <br /> IP ＝ 分割文本 (IP地址, “.”, )<br /> .如果真 (取数组成员数 (IP) ≠ 4)<br />     返回 (0)<br /> .如果真结束<br /> idx ＝ 到数值 (IP [1]) × VectorIndexCols × VectorIndexSize ＋ 到数值 (IP [2]) × VectorIndexSize<br /> sPtr ＝ 取字节集数据 (取字节集中间 (qqwry数据, idx ＋ 256 ＋ 1, 8), #长整数型, )<br /> ePtr ＝ 取字节集数据 (取字节集中间 (qqwry数据, idx ＋ 256 ＋ 5, 8), #长整数型, )<br /> 返回 (到数值 (IP [4]) ＋ 到数值 (IP [3]) × 256 ＋ 到数值 (IP [2]) × 求次方 (256, 2) ＋ 到数值 (IP [1]) × 求次方 (256, 3))

使用方法

  

子程序名	返回值类型	公开	备 注
_临时子程序

变量名	类 型	静态	数组	备 注
ip	ip2region
时间	整数型

' 本名称子程序用作测试程序用，仅在开发及调试环境中有效，编译发布程序前将被系统自动清空，请将所有用作测试的临时代码放在本子程序中。 ***注意不要修改本子程序的名称、参数及返回值类型。
ip.初始化 (读入文件 (“ip2region.xdb”))
输出调试 (取程序名称 (1), ip.IP (“127.0.0.1”))
时间 ＝ 取启动时间 ()
输出调试 (取程序名称 (1), ip.IP (“120.4.167.70”))
调试输出 (取启动时间 () － 时间)

i支持库列表	支持库注释
e2ee	E2EE互联网服务器套件
spec	特殊功能支持库

.版本 2<br /> .支持库 e2ee<br /> .支持库 spec<br /> <br /> .子程序 _临时子程序<br /> .局部变量 ip, ip2region<br /> .局部变量 时间, 整数型<br /> <br /> ' 本名称子程序用作测试程序用，仅在开发及调试环境中有效，编译发布程序前将被系统自动清空，请将所有用作测试的临时代码放在本子程序中。 ***注意不要修改本子程序的名称、参数及返回值类型。<br /> ip.初始化 (读入文件 (“ip2region.xdb”))<br /> 输出调试 (取程序名称 (1), ip.IP (“127.0.0.1”))<br /> 时间 ＝ 取启动时间 ()<br /> 输出调试 (取程序名称 (1), ip.IP (“120.4.167.70”))<br /> 调试输出 (取启动时间 () － 时间)

please

感谢分享，支持开源！！！

胖子葛格

感谢大神分享~！

爱易编程

网络验证很火啊 连带IP识别也火了

jtucar

互相讨论，共同进步

一指温柔

感谢分享

杀手不冷

学习一下

pshq123

二哥哥555

66666666666666666666666666

bianyuan456

已经顶贴，感谢您对论坛的支持！