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

今天小编就为大家分享一篇关于易语言调用百度API获取IP归属地的代码，小编觉得内容挺不错的，现在分享给大家，具有很好的参考价值，需要的朋友一起跟随小编来看看吧

常量据表

				?

									.版本 2

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

调用百度api获取ip归属地的代码

此功能需要加载精易模块5.6

				?

									.版本 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地址编辑框.内容))