在线求，如何给源码上加单码验证！单码通过才可以点击运行按钮

Mir2

.版本 2
.子程序 _按钮1_被单击, , , 登陆
.如果 (易游.卡密登录 (编辑框1.内容, “1.0”, 易游.获取机器码 ()) ＝ 1)
    .如果真 (易游.开启心跳包 () ＝ 1)
        登陆提示.标题 ＝ “登陆成功,到期时间： ” ＋ 易游.获取用户到期时间 ()
    .如果真结束
.否则
    登陆提示.标题 ＝ 易游.获取错误消息 ()
.如果结束


这个是单码模版！！！！！

做一个 必须先单码授权成功，然后才可以点击下面的 按钮—登录，单码没有授权程序，，不允许点击这个 按钮登录。
如果 单码没有授权，或者授权失败，，信息框提示 授权失败
有没有大神，在线等  直接给我发代码，我复制吧

龙墙

  

子程序名	返回值类型	公开	备 注
_按钮1_被单击			登陆

如果 (易游.卡密登录 (编辑框1.内容, “1.0”, 易游.获取机器码 ()) ＝ 1)
如果真 (易游.开启心跳包 () ＝ 1)
登陆提示.标题 ＝ “单码有效,到期时间： ” ＋ 易游.获取用户到期时间 ()
信息框 (“授权成功”, 0, , )
按钮_登陆.禁止=假

登陆提示.标题 ＝ “单码无效”+易游.获取错误消息 ()
信息框 (“ 授权失败”, 0, , )
按钮_登陆.禁止=真

.版本 2<br /> <br /> .子程序 _按钮1_被单击, , , 登陆<br /> <br /> .如果 (易游.卡密登录 (编辑框1.内容, “1.0”, 易游.获取机器码 ()) ＝ 1)<br />     .如果真 (易游.开启心跳包 () ＝ 1)<br />         登陆提示.标题 ＝ “单码有效,到期时间： ” ＋ 易游.获取用户到期时间 ()<br />         信息框 (“授权成功”, 0, , )<br />         按钮_登陆.禁止=假<br />     .如果真结束<br /> <br /> .否则<br />     登陆提示.标题 ＝ “单码无效”+易游.获取错误消息 ()<br />     信息框 (“ 授权失败”, 0, , )<br />     按钮_登陆.禁止=真<br /> .如果结束

牧羊人Cain

同求