最新查IP，查手机归属地 - 精易论坛

.版本 2
.子程序 IP_cha询IP信息, 文本型, 公开, 返回完整信息
.参数欲cha询IP, 文本型
.参数国家, 文本型, 参考可空, 取单独信息，如失效则空白
.参数省份, 文本型, 参考可空, 取单独信息，如失效则空白
.参数城市, 文本型, 参考可空, 取单独信息，如失效则空白
.参数区县, 文本型, 参考可空, 取单独信息，如失效则空白
.参数 AOI类别, 文本型, 参考可空, 取单独信息，如失效则空白
.参数 AOI名称, 文本型, 参考可空, 取单独信息，如失效则空白
.参数经纬度wgs84, 文本型, 参考可空, 取单独信息，如失效则空白
.局部变量数据, 文本型
.局部变量数组, 文本型, , "0"
.局部变量 i, 整数型
数据＝编码_URL解码 (到文本 (网页_访问_对象 (到文本 ({ 104, 116, 116, 112, 115, 58, 47, 47, 108, 97, 98, 115, 46, 105, 112, 105, 112, 46, 110, 101, 116, 47, 108, 111, 99, 97, 116, 105, 111, 110, 47, 105, 112, 63, 105, 112, 61 }) ＋欲cha询IP, 0, , , , , , , , , , , , , , , )), 真)
经纬度wgs84 ＝文本_取出中间文本 (数据, 到文本 ({ 190, 173, 206, 179, 182, 200, 40, 119, 103, 115, 56, 52, 41, 32, 58, 32 }), 到文本 ({ 60, 47, 100, 105, 118, 62 }), , )
数据＝文本_取出中间文本 (数据, 到文本 ({ 60, 116, 100, 62 }), 到文本 ({ 60, 47, 116, 97, 98, 108, 101, 62 }), , )
数据＝子文本替换 (数据, #换行符, “”, , , 真)
数据＝子文本替换 (数据, 到文本 ({ 32 }), “”, , , 真)
数据＝子文本替换 (数据, 到文本 ({ 60, 47, 116, 100, 62, 60, 47, 116, 114, 62 }), “”, , , 真)
数组＝分割文本 (数据, 到文本 ({ 60, 47, 116, 100, 62, 60, 116, 100, 62 }), )
数据＝子文本替换 (数据, 到文本 ({ 60, 47, 116, 100, 62, 60, 116, 100, 62 }), “”, , , 真)
.如果真 (取数组成员数 (数组) ≥ 5)
国家＝数组 [1]
省份＝数组 [2]
城市＝数组 [3]
区县＝数组 [4]
AOI类别＝数组 [5]
.如果真结束
返回 (数据＋到文本 ({ 190, 173, 206, 179, 182, 200, 40, 119, 103, 115, 56, 52, 41, 58 }) ＋经纬度wgs84)

复制代码