易语言获取ip归属地 易语言调用百度API获取IP归属地的代码（易语言 获取ip）

.版本 2
.常量 查ip地址, "<文本长度: 17>", , {"code":0,"data":

.版本 2
.程序集 窗口程序集_启动窗口
.子程序 取IP归属地_百度API, 文本型, 公开
.参数 IP地址, 文本型
.局部变量 Json, 类_json
.局部变量 返回数据, 文本型
.局部变量 地区, 文本型
CoInitialize (0)
返回数据 ＝ 到文本 (网页_访问_对象 (“http://opendata.baidu.com/api.php?query=” ＋ IP地址 ＋ “&co=&resource_id=6006&t=” ＋ 时间_取现行时间戳 () ＋ “&ie=utf8&oe=gbk&cb=op_aladdin_callback&format=json&tn=baidu&cb=jQuery1102026811896078288555_1412299994977&_=1412299994981”, 0, , , , , , , , , , , , , , ))
返回数据 ＝ 文本_取出中间文本 (返回数据, “[”, “]”)
返回数据 ＝ #查ip地址 ＋ 返回数据 ＋ “}”
Json.解析 (返回数据)
地区 ＝ Json.取通用属性 (“data.location”)
返回 (地区)
.子程序 _获取归属地按钮_被单击
归属地编辑框.内容 ＝ 取IP归属地_百度API (到文本 (IP地址编辑框.内容))