.版本 2
.支持库 internet
.支持库 spec
.支持库 iconv

.子程序 查询IP地址
.局部变量 您所要查询的IP地址, 文本型
.局部变量 IP地址信息, 文本型, , "0"

您所要查询的IP地址 ＝ “58.58.58.58”  ' 留空为查询本机(访问者)IP地址(支持查询IPV4/IPV6地址)
IP地址信息 ＝ 分割文本 (编码 (HTTP读文件 (“https://api.mir6.com/api/ip?ip=” ＋ 您所要查询的IP地址 ＋ “&type=txt”)), “|”, )
.如果真 (取数组成员数 (IP地址信息) ≠ 16)
    调试输出 (“错误：访问接口时出现异常情况！”)
    返回 ()
.如果真结束
.如果 (IP地址信息 [13] ≠ “未知”)
    调试输出 (“您所查询的IP地址：” ＋ IP地址信息 [1])
    调试输出 (“IP地址转换为整数：” ＋ IP地址信息 [2])
    调试输出 (“所在国家：” ＋ IP地址信息 [3])
    调试输出 (“国家代码：” ＋ IP地址信息 [4])
    调试输出 (“所在省份：” ＋ IP地址信息 [5])
    调试输出 (“所在城市：” ＋ IP地址信息 [6])
    调试输出 (“所在区县：” ＋ IP地址信息 [7])
    调试输出 (“所属公司单位：” ＋ IP地址信息 [8])
    调试输出 (“网络运营商：” ＋ IP地址信息 [9])
    调试输出 (“IP网络类型：” ＋ IP地址信息 [10])
    调试输出 (“邮政编码：” ＋ IP地址信息 [11])
    调试输出 (“城市区号：” ＋ IP地址信息 [12])
    调试输出 (“所查询IP协议类型：” ＋ IP地址信息 [13])
    调试输出 (“集成归属地址：” ＋ IP地址信息 [14])
    调试输出 (“您的本机IP地址：” ＋ IP地址信息 [15])
    调试输出 (“服务器当前时间：” ＋ IP地址信息 [16])
.否则
    调试输出 (“您所查询的IP地址有误！”)
.如果结束


.子程序 编码, 文本型
.参数 编码内容, 字节集

返回 (到文本 (编码转换 (编码内容, #编码_UTF_8, #编码_GB2312, )))