e盾网络验证纯自绘定制版模板【检测OD程序限制多开】

易语言 2020-02-20 13:53:03

e盾网络验证纯自绘定制版模板【检测OD程序限制多开】

DLL_Handle = _LoadLibrary (取指针_字节集型 (#Ex_DLL), 0, 0)
全局_初始化 (DLL_Handle, 真, #Ex_Dir, , { }, “微软雅黑”, , , 5, , #Ex_Mou, #Ex_Mou)
Window_Handle = 窗口_创建 (, “琳琳开源”, , , 305 + 32, 440 + 32, 假, , , , 真)
Window.挂接窗口 (, Window_Handle, #Ex_Dir2, , , 4735031, #标题栏_关闭按钮 + #标题栏_设置按钮, 255, , , 假, , 0, 真)
窗口_标题.创建 (Window_Handle, 10, 6, 220, 30, “ 琳琳开源”, RGB2ARGB (#红色, ), , , , , , “微软雅黑”, 14, #字体风格_加粗, , , , , , )
.计次循环首 (2, n)
组件_页面_句柄 [n] = 组件_页面 [n].创建 (Window_Handle, 0, 40, 305, 400, “”, , , , , , , , RGB2ARGB (#黑色, 0), RGB2ARGB (0, 0), , , 假)
.计次循环尾 ()
组件_图片框.创建 (Window_Handle, (305 - 112) ÷ 2, 20 + 40, 112, 112, #pic, RGB2ARGB (#白色), RGB2ARGB (#白色), RGB2ARGB (#白色), 1)
组件_编辑框 [1].创建 (组件_页面_句柄 [1], 20, 200, 305 - 40, 26, “请输入充值卡号”, RGB2ARGB (#白色), RGB2ARGB (4735031, 255), , , , , , 32, , #文本对齐_居中)
' 组件_按钮 [1].创建 (组件_页面_句柄 [1], 35, 340, 305 - 70, 40, “登 录”, RGB2ARGB (#白色, ), , 16, , , , )
' 组件_按钮 [2].创建 (组件_页面_句柄 [1], 35, 295, 305 - 70, 40, “解 绑”, RGB2ARGB (#白色, ), , 16, , , , )
组件_按钮 [1].创建 (组件_页面_句柄 [1], 35 - 8, 300, (305 - 70) ÷ 2, 40, “登 录”, RGB2ARGB (#白色, ), , 16, , , , )
组件_按钮 [2].创建 (组件_页面_句柄 [1], 35 + (305 - 70) ÷ 2 + 8, 300, (305 - 70) ÷ 2, 40, “解 绑”, RGB2ARGB (#白色, ), , 16, , , , )
组件_超链接.创建 (组件_页面_句柄 [1], 35, 360, 305 - 70, 26, “琳琳开源”, RGB2ARGB (#红色, ), , , , , , “微软雅黑”, 14, #字体风格_加粗, #文本对齐_居中, , , , , )
组件_超链接.默认颜色 (RGB2ARGB (#红色, ))
组件_超链接.热点颜色 (RGB2ARGB (#绿色, ))
组件_超链接.访问后颜色 (RGB2ARGB (#白色, ))
组件_超链接.事件_被单击 (&超链接, )
组件_选择框 [1].创建 (组件_页面_句柄 [1], 40, 255, (305 - 80) ÷ 2, 20, “记住密码”, RGB2ARGB (#白色))
组件_选择框 [2].创建 (组件_页面_句柄 [1], 40 + (305 - 80) ÷ 2, 255, (305 - 80) ÷ 2, 20, “自动登陆”, RGB2ARGB (#白色))
组件_按钮 [1].事件_被单击 (&事件_登陆被单击)
组件_按钮 [2].事件_被单击 (&事件_解绑被单击)

.如果真 (记住密码 = 真)
组件_编辑框 [1].内容 (读配置项 (取特定目录 (3) + “\浪屿内部.ini”, “浪屿”, “激活码”, “”))
调试输出 (组件_编辑框 [1].内容 ())
.如果真结束
验证_初始化 (文本_释放文本 (“E22EB3668E9A5A6769DAEDA75998FCB7B2252AA396B47451”), 6666, 2, , , , )
验证_设置机器码特征 (位或 (#机器码_物理硬盘序列号, #机器码_计算机名, #机器码_内存容量, #机器码_CPU序列号, #机器码_CPU核心数, #机器码_磁盘逻辑序列号, #机器码_内存容量), )
当前版本 = 2
服务器版本 = 验证_读服务器软件版本 ()
调试输出 (服务器版本)
.如果真 (当前版本 < 服务器版本 且 服务器版本 ≠ 0)
信息框_Ex (Window_Handle, “☆当前版本: [ ” + 到文本 (当前版本) + “.0 ]” + #换行符 + #换行符 + “☆最新版本: [ ” + 到文本 (服务器版本) + “.0 ]” + #换行符 + #换行符 + “点击确定版本自动更新!” + #换行符 + #换行符 + “浪屿官网:www.baidu.com ”, , “版本更新通知”, #信息图标, , , , , , )
新版下载地址 = 到文本 (文件_下载服务器文件 (“update.txt”))
.如果真 (寻找文本 (新版下载地址, “htt”, , 真) ≠ -1 且 新版下载地址 ≠ “”)
文件下载地址 = 新版下载地址
Start_ing ()