好友
阅读权限25
听众
最后登录1970-1-1
|
楼主|
XKQ
发表于 2015-5-6 17:45
源码不是补充到帖子里了吗,易语言的程序搞成txt都不成样子了,至于崩来崩去,应该是那个自绘的问题...
发点关键代码就行了
.版本 2
.支持库 dp1
.支持库 exui
.支持库 EThread
.子程序 注册成功
.判断开始 (取数据摘要 (到字节集 (取数据摘要 (压缩数据 (到字节集 (编辑框EX1.内容))))) = 编辑框EX2.内容)
注册中.标签EX1.标题 = 到文本 ({ 210, 209, 179, 201, 185, 166, 215, 162, 178, 225 })
延时 (1000)
注册中.销毁 ()
处理事件 ()
标签EX4.可视EX = 真
标签EX5.可视EX = 真
超级按钮EX1.可视EX = 真
超级按钮EX2.可视EX = 真
超级按钮EX3.可视EX = 真
滑块条EX1.可视EX = 真
窗口.标签EX1.可视EX = 假
窗口.标签EX2.可视EX = 假
窗口.标签EX3.可视EX = 假
窗口.编辑框EX1.可视EX = 假
窗口.编辑框EX2.可视EX = 假
窗口.按钮EX1.可视EX = 假
写到文件 (取运行目录 () + 到文本 ({ 109, 46, 100, 97, 116 }), #THESHOW)
置文件属性 (取运行目录 () + 到文本 ({ 109, 46, 100, 97, 116 }), 1 + 2 + 4)
C = -1
_超级按钮EX1_左键单击 ()
窗口.时钟1.时钟周期 = 500
.默认
启动线程 (&注册, , )
.判断结束
.版本 2
.支持库 dp1
.支持库 exui
.支持库 spec
.子程序 注册
.如果真 (到字节集 (取数据摘要 (到字节集 (编辑框EX1.内容))) = 到字节集 (编辑框EX2.内容))
信息框 (“注册成功!”, 0, , )
置入代码 ({ 1 })
置入代码 ({ 2 })
kill ()
结束 ()
.如果真结束
.判断开始 (压缩数据 (到字节集 (取数据摘要 (到字节集 (取数据摘要 (压缩数据 (到字节集 (编辑框EX1.内容))))))) = 压缩数据 (到字节集 (编辑框EX2.内容)))
置入代码 ({ 201 })
置入代码 ({ 89, 185, 0, 0, 0, 0, 201 }) ' leave pop eax leave
取子程序地址 (&注册成功)
置入代码 ({ 255, 224 }) ' jmp eax
置入代码 ({ 201 })
.默认
置入代码 ({ 89, 185, 0, 0, 0, 0, 201 })
C = 取子程序地址 (&注册失败)
置入代码 ({ 255, 224 }).版本 2
.支持库 dp1
.子程序 _注册中_将被销毁
.如果真 (全局_注册码 ≠ 取数据摘要 (到字节集 (取数据摘要 (压缩数据 (到字节集 (aas))))))
全局_暗装 = 255
返回 ()
.如果真结束
全局_暗装 = 300
.版本 2
.如果真 (全局_暗装 ≠ 300)
跳转1 (&ret, &跳转2)
|
|