|
分享源码
界面截图: |
- |
是否带模块: |
纯源码 |
备注说明: |
- |
本帖最后由 嘉轩嘉怡 于 2017-9-25 14:29 编辑
今天138IPcha询api由http://1212.ip138.com/ic.asp更新成 http://2017.ip138.com/ic.asp不知道又有多少软件因此失效,特此给大家带来解决方法附上易语言代码再给个备用api(“http://pv.sohu.com/cityjson”,说明JS是小写 论坛强制大写。。。。。。。)(调用了精益模块):
.版本 2
.子程序 获取IP, 文本型
.局部变量 Str, 文本型
.局部变量 Url, 文本型
.局部变量 IP, 文本型
线程_初始化COM库 ()
Str = 到文本 (网页_访问_对象 (“http://www.ip138.com/”))
Url = 删全部空 (文本_取出中间文本 (Str, “<iframe src=” + #引号, #引号 + “ rel=” + #引号 + “nofollow”))
IP = 删全部空 (文本_取出中间文本 (到文本 (网页_访问_对象 (Url)), “IP是:[”, “]”, ))
线程_取消COM库 ()
返回 (IP)
补充内容 (2017-9-28 12:31):
经过这几天使用 发现138IP快速cha询会有限制 建议大家这样使用 附上代码
.版本 2
.子程序 获取IP, 文本型
.局部变量 Str, 文本型
.局部变量 Url, 文本型
.局部变量 IP, 文本型
线程_初始化COM库 ()
Str = 到文...
补充内容 (2017-9-28 12:33):
请移步 17楼吧 补充字符不够 |
|