源码如下,通过网络通讯支持库里的取本机IP()函数获取本机内外网IP。在线联网状态是通过互联网支持库的是否已在线 ()函数判定的。

.版本 2
.支持库 sock
.支持库 internet
.局部变量 本机IP组, 文本型, , "0"
.局部变量 外网IP, 文本型
.局部变量 本地IP, 文本型
本机IP组 = 取本机IP ()
.判断开始 (是否已在线 () = 真)
外网IP = 本机IP组 [2]
.默认
本地IP = 本机IP组 [1]

Related Posts: 易语言-取本机外网IP(非IP网站获取) :