‘使用易语言获取IP地址,并写出到运行目录
.版本 2
.支持库 internet
.支持库 sock
.子程序 _按钮1_被单击
.局部变量 外网IP, 文本型
.局部变量 内网IP, 文本型, , "0"
.局部变量 路径, 文本型
外网IP = 到文本 (HTTP读文件 (“http://www.3322.org/dyndns/getip”))
编辑框_外网.内容 = 外网IP
内网IP = 取本机IP ()
.判断开始 (是否已在线 () = 真)
编辑框_内网.内容 = 内网IP [2]
.默认
编辑框_内网.内容 = 内网IP [1]
.判断结束
路径 = 到文本 (取运行目录 () + “/ip.txt”)
写到文件 (路径, 到字节集 (编辑框_内网.内容) + 到字节集 (#换行符) + 到字节集 (编辑框_外网.内容))