云网络验证易语言【扣点系统】~纯易语言源码

z042871

cloudlib.fne     链接：http://pan.baidu.com/s/1bpmiMDp 密码：v9ry
cloudlib_static.lib  链接：http://pan.baidu.com/s/1nu9oHyL 密码：un80
.版本 2
.支持库 cloudlib
.支持库 eAPI
.支持库 spec

.程序集 窗口程序集1
.程序集变量 当前版本, 文本型

.子程序 __启动窗口_创建完毕
.局部变量 软件编号, 整数型
.局部变量 传输密码, 文本型

置入代码 ({ 235, 16, 86, 77, 80, 114, 111, 116, 101, 99, 116, 32, 98, 101, 103, 105, 110, 0 })  ' VMP过程加密开始
软件编号 ＝ 1
传输密码 ＝ “110”
当前版本 ＝ “3.1”
.判断开始 (云自动注册 (软件编号, “Cloud.ini”, 传输密码, 到整数 (&错误容纳函数), , 假) ＝ 真)
    编辑框_注册码.内容 ＝ 取软件信息 (200)
    验证通过调用函数 ()
.默认
    编辑框_注册码.内容 ＝ 取软件信息 (200)
    初始化 (软件编号, 传输密码)
.判断结束
置入代码 ({ 235, 14, 86, 77, 80, 114, 111, 116, 101, 99, 116, 32, 101, 110, 100, 0 })  ' VMP过程加密结束

.子程序 初始化, , , 4.1更新
.参数 软件编号, 整数型
.参数 传输密码, 文本型

置入代码 ({ 235, 16, 86, 77, 80, 114, 111, 116, 101, 99, 116, 32, 98, 101, 103, 105, 110, 0 })  ' VMP过程加密开始
标签_提示.标题 ＝ “初始化中...”
.判断开始 (云初始化 (软件编号, 1, 传输密码, 到整数 (&错误容纳函数), , ) ＝ 真)
    标签_提示.标题 ＝ “请输入注册码”
.默认
    标签_提示.标题 ＝ “初始化失败！”
.判断结束
置入代码 ({ 235, 14, 86, 77, 80, 114, 111, 116, 101, 99, 116, 32, 101, 110, 100, 0 })  ' VMP过程加密结束

.子程序 _按钮_注册_被单击, , , 2.8更新

置入代码 ({ 235, 16, 86, 77, 80, 114, 111, 116, 101, 99, 116, 32, 98, 101, 103, 105, 110, 0 })  ' VMP过程加密开始
按钮_注册.禁止 ＝ 真
按钮_试用.禁止 ＝ 真
.判断开始 (云注册 (编辑框_注册码.内容) ＝ 真)
    验证通过调用函数 ()
.默认
    按钮_注册.禁止 ＝ 假
    按钮_试用.禁止 ＝ 假
    信息框 (取操作提示信息 (), 0, )
.判断结束
置入代码 ({ 235, 14, 86, 77, 80, 114, 111, 116, 101, 99, 116, 32, 101, 110, 100, 0 })  ' VMP过程加密结束

.子程序 _按钮_试用_被单击, , , 2.8更新

置入代码 ({ 235, 16, 86, 77, 80, 114, 111, 116, 101, 99, 116, 32, 98, 101, 103, 105, 110, 0 })  ' VMP过程加密开始
按钮_注册.禁止 ＝ 真
按钮_试用.禁止 ＝ 真
.判断开始 (云试用注册 () ＝ 真)
    验证通过调用函数 ()
.默认
    按钮_注册.禁止 ＝ 假
    按钮_试用.禁止 ＝ 假
    信息框 (取操作提示信息 (), 0, )
.判断结束
置入代码 ({ 235, 14, 86, 77, 80, 114, 111, 116, 101, 99, 116, 32, 101, 110, 100, 0 })  ' VMP过程加密结束

.子程序 _按钮_扣点_被单击, , , 2.8更新

.判断开始 (云扣点 (编辑框_注册码.内容, ) ＝ 真)
    信息框 (取操作提示信息 (), 0, )
.默认
    信息框 (取操作提示信息 (), 0, )
.判断结束


.子程序 _按钮_解绑_被单击

置入代码 ({ 235, 16, 86, 77, 80, 114, 111, 116, 101, 99, 116, 32, 98, 101, 103, 105, 110, 0 })  ' VMP过程加密开始
按钮_注册.禁止 ＝ 真
按钮_试用.禁止 ＝ 真
按钮_解绑.禁止 ＝ 真
.判断开始 (信息框 (“解绑成功后软件将自动关闭！” ＋ #换行符 ＋ “亲,您是否还继续解绑操作？”, #是否钮, “询问”) ＝ #是钮)
    .判断开始 (云解绑 (编辑框_注册码.内容) ＝ 真)
        信息框 (取操作提示信息 (), 0, )
        结束 ()
    .默认
        按钮_注册.禁止 ＝ 假
        按钮_试用.禁止 ＝ 假
        按钮_解绑.禁止 ＝ 假
        信息框 (取操作提示信息 (), 0, )
    .判断结束

.默认
    按钮_注册.禁止 ＝ 假
    按钮_试用.禁止 ＝ 假
    按钮_解绑.禁止 ＝ 假
.判断结束
置入代码 ({ 235, 14, 86, 77, 80, 114, 111, 116, 101, 99, 116, 32, 101, 110, 100, 0 })  ' VMP过程加密结束

.子程序 错误容纳函数
.参数 参数, 整数型

置入代码 ({ 235, 16, 86, 77, 80, 114, 111, 116, 101, 99, 116, 32, 98, 101, 103, 105, 110, 0 })  ' VMP过程加密开始
.如果真 (参数 ＝ 1)
    云定时信息框 (“Error,您的注册码已经过期！” ＋ #换行符 ＋ #换行符 ＋ “程序将在五秒后关闭!”, #错误图标 ＋ #系统等待, “提示”, , )
    结束 ()
.如果真结束
.如果真 (参数 ＝ 2)
    云定时信息框 (“Error,内部错误,或者非法使用！” ＋ #换行符 ＋ #换行符 ＋ “程序将在五秒后关闭!”, #错误图标 ＋ #系统等待, “提示”, , )
    结束 ()
.如果真结束
.如果真 (参数 ＝ 3)
    云定时信息框 (“Error,注册码在别处使用,被迫下线！” ＋ #换行符 ＋ #换行符 ＋ “程序将在五秒后关闭!”, #错误图标 ＋ #系统等待, “提示”, , )
    结束 ()
.如果真结束
.如果真 (参数 ＝ 5)
    云定时信息框 (“Error,注册码被锁定,被迫下线！” ＋ #换行符 ＋ #换行符 ＋ “程序将在五秒后关闭!”, #错误图标 ＋ #系统等待, “提示”, , )
    结束 ()
.如果真结束
.如果真 (参数 ＝ 6)
    云定时信息框 (“Error,该软件已停止服务,被迫下线！” ＋ #换行符 ＋ #换行符 ＋ “程序将在五秒后关闭!”, #错误图标 ＋ #系统等待, “提示”, , )
    结束 ()
.如果真结束
.如果真 (参数 ＝ 7)
    云定时信息框 (“Error,机器码或IP被封停,被迫下线！” ＋ #换行符 ＋ #换行符 ＋ “程序将在五秒后关闭!”, #错误图标 ＋ #系统等待, “提示”, , )
    结束 ()
.如果真结束
置入代码 ({ 235, 14, 86, 77, 80, 114, 111, 116, 101, 99, 116, 32, 101, 110, 100, 0 })  ' VMP过程加密结束

.子程序 _组合框_线路_列表项被选择

置入代码 ({ 235, 16, 86, 77, 80, 114, 111, 116, 101, 99, 116, 32, 98, 101, 103, 105, 110, 0 })  ' VMP过程加密开始
' 标签_提示.标题 ＝ “初始化中...”
' 调试输出 (组合框_线路.现行选中项)
.判断开始 (组合框_线路.现行选中项 ＝ 0)
    云置线路 (1)
.判断 (组合框_线路.现行选中项 ＝ 1)
    云置线路 (2)
.判断 (组合框_线路.现行选中项 ＝ 2)
    云置线路 (3)
.判断 (组合框_线路.现行选中项 ＝ 3)
    云置线路 (4)
.默认

.判断结束
置入代码 ({ 235, 14, 86, 77, 80, 114, 111, 116, 101, 99, 116, 32, 101, 110, 100, 0 })  ' VMP过程加密结束

.子程序 版本更新提示, , , 2.8新增加
.参数 版本号, 文本型
.参数 更新地址, 文本型
.参数 更新方式, 文本型
.局部变量 升级信息, 文本型

置入代码 ({ 235, 16, 86, 77, 80, 114, 111, 116, 101, 99, 116, 32, 98, 101, 103, 105, 110, 0 })  ' VMP过程加密开始
.判断开始 (版本号 ＝ 当前版本)
    升级信息 ＝ “该软件已经是最新版”
.默认
    升级信息 ＝ “该软件不是最新版”
.判断结束
信息框 (“验证信息:” ＋ 取到期时间 () ＋ #换行符 ＋ “升级信息:” ＋ 升级信息 ＋ #换行符 ＋ “软件公告:” ＋ 取软件信息 (1), 0, )
.如果真 (版本号 ≠ 当前版本)
    .判断开始 (到整数 (更新方式) ＝ 1)
        打开指定网址 (更新地址)
        结束 ()
    .默认
        打开指定网址 (更新地址)
    .判断结束

.如果真结束
置入代码 ({ 235, 14, 86, 77, 80, 114, 111, 116, 101, 99, 116, 32, 101, 110, 100, 0 })  ' VMP过程加密结束

.子程序 验证通过调用函数, , , 3.0新增

按钮_注册.禁止 ＝ 真
按钮_试用.禁止 ＝ 真
版本更新提示 (取软件信息 (2), 取软件信息 (3), 取软件信息 (4))
调试输出 (静态数据 ())

雨季没风

学习学习学习学习学习学习学习学习学习学习学习学习学习学习学习

z042871

杯具加杯具 发表于 2016-9-1 22:55
没图没真相，请按照版规上传相应图片

纯源码   没图~

w5685993

虽然是用的自己写的

yywyf0001

支持一下

a1515742

回复下载来看看

pj1143560

谢谢楼主分享！

ltg6688

回复下载来看看

13066627762

        热心回复！

20408912

4wyhwrhwrhwrhwrh

yy5201314

看看能不能用

zhichengishero

这些支持库是干吗用的？