| 变量名 | 类 型 | 静态 | 数组 | 备 注 |
| 表项数 | 整数型 | | |
| 当前行第一列内容 | 文本型 | | |
| 循环变量 | 整数型 | | |
延迟 (500
)表项数 ＝ 超级列表框1.
取表项数 ()
如果 (内容 ＝
“”)
提示框 (“请导入IP地址。”, 16, , ,
)
计次循环首 (表项数, 循环变量
)
当前行第一列内容 ＝ 超级列表框1.
取标题 (循环变量 － 1, 0
)返回信息 ＝
编码_utf8到gb2312 (到文本 (网页_访问_对象 (“https://qifu-api.baidubce.com/ip/geo/v1/district?ip=” ＋ 当前行第一列内容, 0, , , , , , , , , , , , , , , , ,
))
)cod ＝
到文本 (文本_取出中间文本 (返回信息,
#英文前, #英文后, ,
))
延迟 (到整数 (编辑框_延迟时间.内容
))
调试输出 (返回信息
)状态 ＝
文本区分_只取汉字 (文本_取出中间文本 (返回信息,
“continent”,
“country”, ,
), ,
)如果 (cod ＝
“Success”)超级列表框1.
置标题 (循环变量 － 1, 7,
“查询成功”) 国家 ＝
文本区分_只取汉字 (文本_取出中间文本 (返回信息,
“country”,
“zipcode”, ,
), ,
)超级列表框1.
置标题 (循环变量 － 1, 1, 国家
)省份 ＝
文本区分_只取汉字 (文本_取出中间文本 (返回信息,
“prov”,
“city”, ,
), ,
)超级列表框1.
置标题 (循环变量 － 1, 3, 省份
)城市 ＝
文本区分_只取汉字 (文本_取出中间文本 (返回信息,
“city”,
“district”, ,
), ,
)超级列表框1.
置标题 (循环变量 － 1, 4, 城市
)地区 ＝
文本区分_只取汉字 (文本_取出中间文本 (返回信息,
“district”,
“ip”, ,
), ,
)超级列表框1.
置标题 (循环变量 － 1, 5, 地区
)运营商 ＝
文本区分_只取汉字 (文本_取出中间文本 (返回信息,
“isp”,
“adcode”, ,
), ,
)超级列表框1.
置标题 (循环变量 － 1, 2, 运营商
)邮政 ＝
文本_取出中间文本 (返回信息,
#邮政前, #邮政后, ,
)超级列表框1.
置标题 (循环变量 － 1, 6, 邮政
)超级列表框1.
置标题 (循环变量 － 1, 7,
“请输入正确IP”)如果真 (状态 ＝
“保留”)超级列表框1.
置标题 (循环变量 － 1, 7,
“此IP属于本地局域网”)
计次循环尾 ()