程序代码：

.版本 2
.支持库 internet
.支持库 EThread

.子程序 IP判断
.参数 上次的IP, 文本型
.参数 获取的IP, 文本型
.参数 物理地址, 文本型

上次的IP ＝ 到文本 (读入文件 (取运行目录 () ＋ “\IP.ini”))
获取的IP ＝ 到文本 (HTTP读文件 (“h ttp://”))
物理地址 ＝ 到文本 (HTTP读文件 (“h ttp://” ＋ 获取的IP))

.判断开始 (获取的IP ≠ “”)
    写到文件 (取运行目录 () ＋ “\IP.ini”, 到字节集 (获取的IP))
    .判断开始 (获取的IP ＝ 上次的IP)
        信息框 (“IP地址相同，注册会无效。建议重新断开连接再联网”, 0, “提示”)
        结束 ()
    .默认

    .判断结束

.默认

.判断结束
标签1.标题 ＝ 到文本 (获取的IP ＋ 物理地址)


.子程序 __启动窗口_创建完毕

启动线程 (&IP判断, , )