求助大佬写个ip138查IP用token对接的例子

山咔咔d老表

token=5e39b6d7fd8ff382e1339f318e0b6f75

{oid=93570,mid=147472}

cha询IP并取出返回的IP归属地址

搞了一个时愣是没搞定

LEOONL

  

子程序名	返回值类型	公开	备 注
_按钮1_被单击

变量名	类 型	静态	数组	备 注
返回	文本型
地区	文本型
cha询	文本型

cha询 ＝ “58.16.180.3”
返回 ＝ 编码_Utf8到Ansi (网页_访问 (“https://api.ip138.com/ipdata/?ip=” ＋ cha询 ＋ “&datatype=jsonp&token=5e39b6d7fd8ff382e1339f318e0b6f75”))
调试输出 (返回)
地区 ＝ 子文本替换 (文本_取出中间文本 (返回, “[” ＋ #引号, #引号 ＋ “]”), #引号 ＋ “,” ＋ #引号, “ ”, , , 真)
调试输出 (地区)

i支持库列表	支持库注释
spec	特殊功能支持库

.版本 2<br /> .支持库 spec<br /> <br /> .子程序 _按钮1_被单击<br /> .局部变量 返回, 文本型<br /> .局部变量 地区, 文本型<br /> .局部变量 cha询, 文本型<br /> <br /> cha询 ＝ “58.16.180.3”<br /> 返回 ＝ 编码_Utf8到Ansi (网页_访问 (“<a href="https://api.ip138.com/ipdata/?ip=" rel="nofollow" rel="nofollow" target="_blank">https://api.ip138.com/ipdata/?ip=</a>” ＋ cha询 ＋ “&datatype=jsonp&token=5e39b6d7fd8ff382e1339f318e0b6f75”))<br /> 调试输出 (返回)<br /> 地区 ＝ 子文本替换 (文本_取出中间文本 (返回, “[” ＋ #引号, #引号 ＋ “]”), #引号 ＋ “,” ＋ #引号, “ ”, , , 真)<br /> 调试输出 (地区)

cloud99

还要加这个{oid=93570,mid=147472}？

补充内容 (2024-8-22 17:33):
.版本 2
.支持库 spec

.程序集 窗口程序集_启动窗口

.子程序 __启动窗口_创建完毕



.子程序 _按钮_cha询_被单击
.局部变量 返回, 文本型
.局部变量 ip, 文本型
.局部变量 token, 文本型
.局部变量 ip归属地址, 文本型

编辑框_日志.内容 ＝ “”
ip ＝ 编辑框_ip.内容
token ＝ 编辑框_token.内容
返回 ＝ 编码_Utf8到Ansi (网页_访问 (“https://api.ip138.com/ipdata/?ip=” ＋ ip ＋ “&datatype=jsonp&token=” ＋ token))
调试输出 (返回)
ip归属地址 ＝ 子文本替换 (文本_取出中间文本 (返回, “[” ＋ #引号, #引号 ＋ “]”), #引号, , , , 真)
调试输出 (ip归属地址)
编辑框_日志.加入文本 (“cha询的ip：” ＋ “[” ＋ ip ＋ “]” ＋ #换行符 ＋ “ip归属地址：[” ＋ ip归属地址 ＋ “]” ＋ #换行符)


补充内容 (2024-8-22 23:33):
谢谢