取本地及wai网IP简单例程

cmcc11

没什么事折腾下取本地IP和wai网IP，发现IP138网址那个，不能访问太快，频繁点就没返回了，

找了个还不错的网址查IP，用JSON解析的,用的是精易模块

第一次发贴请各位支持下，写得不怎么好，觉得有用的话，请支持下。

  

窗口程序集名	保 留	保 留	备 注
窗口程序集_启动窗口
变量名	类 型	数组	备 注
BOOL	逻辑型

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

变量名	类 型	静态	数组	备 注
网卡信息	网卡信息		0
i	整数型

网卡信息 ＝ 取网卡信息列表 ()
计次循环首 (取数组成员数 (网卡信息), i)
如果真 (网卡信息 [i].IP地址 ＝ 取IP地址 ())
编辑框1.内容 ＝ 网卡信息 [i].IP地址
编辑框2.内容 ＝ 网卡信息 [i].默认网关
编辑框3.内容 ＝ 网卡信息 [i].子网掩码

计次循环尾 ()
如果真 (BOOL ＝ 真)
返回 ()

BOOL ＝ 真
启动线程 (&线程1, , )

子程序名	返回值类型	公开	备 注
线程1

变量名	类 型	静态	数组	备 注
网页返回	文本型
json	类_json

判断循环首 (BOOL ＝ 真)
网页返回 ＝ 编码_utf8到gb2312 (网页_访问S (“https://ip.cn/api/index?ip=&type=0”, 0, , , , , , , , , , , , , , , , , , ))
json.解析 (网页返回, , )
编辑框5.内容 ＝ json.取通用属性 (“ip”, )
编辑框4.内容 ＝ json.取通用属性 (“address”, )
跳出循环 ()
判断循环尾 ()
BOOL ＝ 假

子程序名	返回值类型	公开	备 注
__启动窗口_创建完毕

变量名	类 型	静态	数组	备 注
网卡信息	网卡信息		0
i	整数型

网卡信息 ＝ 取网卡信息列表 ()
计次循环首 (取数组成员数 (网卡信息), i)
如果真 (网卡信息 [i].IP地址 ＝ 取IP地址 ())
编辑框1.内容 ＝ 网卡信息 [i].IP地址
编辑框2.内容 ＝ 网卡信息 [i].默认网关
编辑框3.内容 ＝ 网卡信息 [i].子网掩码

计次循环尾 ()
如果真 (BOOL ＝ 真)
返回 ()

BOOL ＝ 真
启动线程 (&线程1, , )

子程序名	返回值类型	公开	备 注
_时钟1_周期事件

标题 ＝ 到文本 (取现行时间 ())

i支持库列表	支持库注释
eAPI	应用接口支持库
EThread	多线程支持库

.版本 2<br /> .支持库 eAPI<br /> .支持库 EThread<br /> <br /> .程序集 窗口程序集_启动窗口<br /> .程序集变量 BOOL, 逻辑型<br /> <br /> .子程序 _按钮1_被单击<br /> .局部变量 网卡信息, 网卡信息, , "0"<br /> .局部变量 i, 整数型<br /> <br /> <br /> 网卡信息 ＝ 取网卡信息列表 ()<br /> .计次循环首 (取数组成员数 (网卡信息), i)<br /> <br />     .如果真 (网卡信息 <i>.IP地址 ＝ 取IP地址 ())<br />         编辑框1.内容 ＝ 网卡信息 <i>.IP地址<br />         编辑框2.内容 ＝ 网卡信息 <i>.默认网关<br />         编辑框3.内容 ＝ 网卡信息 <i>.子网掩码<br />     .如果真结束<br /> <br /> <br /> <br /> .计次循环尾 ()<br /> .如果真 (BOOL ＝ 真)<br />     返回 ()<br /> .如果真结束<br /> <br /> BOOL ＝ 真<br /> 启动线程 (&线程1, , )<br /> <br /> <br /> .子程序 线程1<br /> .局部变量 网页返回, 文本型<br /> .局部变量 json, 类_json<br /> <br /> <br /> .判断循环首 (BOOL ＝ 真)<br />     网页返回 ＝ 编码_utf8到gb2312 (网页_访问S (“https://ip.cn/api/index?ip=&type=0”, 0, , , , , , , , , , , , , , , , , , ))<br />     json.解析 (网页返回, , )<br />     编辑框5.内容 ＝ json.取通用属性 (“ip”, )<br />     编辑框4.内容 ＝ json.取通用属性 (“address”, )<br />     跳出循环 ()<br /> .判断循环尾 ()<br /> BOOL ＝ 假<br /> <br /> <br /> .子程序 __启动窗口_创建完毕<br /> .局部变量 网卡信息, 网卡信息, , "0"<br /> .局部变量 i, 整数型<br /> <br /> <br /> <br /> 网卡信息 ＝ 取网卡信息列表 ()<br /> .计次循环首 (取数组成员数 (网卡信息), i)<br /> <br />     .如果真 (网卡信息 <i>.IP地址 ＝ 取IP地址 ())<br />         编辑框1.内容 ＝ 网卡信息 <i>.IP地址<br />         编辑框2.内容 ＝ 网卡信息 <i>.默认网关<br />         编辑框3.内容 ＝ 网卡信息 <i>.子网掩码<br />     .如果真结束<br /> <br /> <br /> <br /> .计次循环尾 ()<br /> .如果真 (BOOL ＝ 真)<br />     返回 ()<br /> .如果真结束<br /> <br /> BOOL ＝ 真<br /> 启动线程 (&线程1, , )<br /> <br /> <br /> .子程序 _时钟1_周期事件<br /> <br /> <br /> <br /> 标题 ＝ 到文本 (取现行时间 ())

ghost12

很好很强悍，坚持下去哦~

ghost12

全论坛易友发来贺电

趣冉科技

感谢楼主分享，支持一下~~！！！

sddzrxh

取了wai网有什么用  也不能穿透

ck0f02

支持开源！感谢分享，论坛有你更精彩~

shuaikai

怎么说呢感觉看了好多这种的

阿丘

支持开源~！感谢分享

牙子

支持查一下

zhangda1979

看看楼主的源码，学习中