软件IP绑定易语言例子

.版本 2
.支持库 spec
.支持库 eAPI

.程序集 窗口程序集_启动窗口
.程序集变量 授权文件, 文本型
.程序集变量 授权数组, 文本型, , "0"
.程序集变量 本机IP, 文本型
.程序集变量 授权IP, 文本型
.程序集变量 授权时间, 文本型
.程序集变量 本地时间, 文本型

.子程序 __启动窗口_创建完毕, , , ' 本源码来自三叶资源网(www.sanye.cx)
.局部变量 加密文件, 文本型

.如果真 (文件是否存在 (取运行目录 () ＋ “授权文件.dll”) ＝ 真)
    授权文件 ＝ 到文本 (读入文件 (取运行目录 () ＋ “授权文件.dll”))
    授权数组 ＝ 分割文本 (授权文件, #换行符, )
    授权IP ＝ 编码_RC4解密 (授权数组 [1], “5556698cdd..52”)
    授权时间 ＝ 编码_RC4解密 (授权数组 [2], “54dd55..5488512”)
.如果真结束
调试输出 (授权IP, 授权时间)
本机IP ＝ 取IP地址 ()  ' 本源码来自三叶资源网(www.sanye.cx)
调试输出 (本机IP, 取时间 ())
组合框_授权IP.内容 ＝ 本机IP
.如果 (本机IP ≠ 授权IP)
    标签3.标题 ＝ “请确认授权IP后操作”
.否则
    标签3.标题 ＝ 授权时间
    授权时间 ＝ 文本区分_取数字 (授权时间)
    本地时间 ＝ 文本区分_取数字 (取时间 ())
    调试输出 (授权时间, 本地时间)
    .如果真 (到整数 (授权时间) ＝ 到整数 (本地时间))
        加密文件 ＝ 到文本 (编码_RC4加密 (“授权文件已到期”, “dsf542221g44.5df4g5.5df”))
        写到文件 (“C:\Software maturity.ini”, 到字节集 (加密文件))
        信息框 (“软件授权已到期”, 0, , )
        结束 ()
    .如果真结束
    .如果真 (文件是否存在 (“C:\Software maturity.ini”) ＝ 真)
        删除文件 (“C:\Software maturity.ini”)
    .如果真结束

.如果结束


.子程序 __启动窗口_首次激活
.局部变量 文件判断, 文本型
.局部变量 文件读入, 文本型

.如果真 (文件是否存在 (“C:\Software maturity.ini”) ＝ 真)
    文件读入 ＝ 到文本 (读入文件 (“C:\Software maturity.ini”))
    文件判断 ＝ 编码_RC4解密 (文件读入, “dsf542221g44.5df4g5.5df”)
    信息框 (“软件授权已到期”, 0, , )
    结束 ()
    调试输出 (文件判断)
.如果真结束


.子程序 _按钮1_被单击

.如果真 (本机IP ≠ 授权IP)
    信息框 (本机IP ＋ “，请确认授权IP后操作”, #警告图标 ＋ #确认钮, “提示：”, )
    返回 ()
.如果真结束
载入 (窗口1, , 假)
销毁 ()

@小沫辅助