易表在线答疑技术与交流用户社区 → 如何给自己编写的易表系统增加注册功能?


  共有9256人关注过本帖树形打印复制链接

主题:如何给自己编写的易表系统增加注册功能?

帅哥哟,离线,有人找我吗?
wjq1072
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:16190 积分:125850 威望:1 精华:0 注册:2006/8/12 12:29:00
  发帖心情 Post By:2017/1/20 8:29:00 [显示全部帖子]



 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:dinyuyu.egd

 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:dinyuyu注册机.egd



 回到顶部
帅哥哟,离线,有人找我吗?
wjq1072
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:16190 积分:125850 威望:1 精华:0 注册:2006/8/12 12:29:00
  发帖心情 Post By:2017/1/20 15:40:00 [显示全部帖子]

为系统增加注册功能

如果你希望为自己的系统增加注册功能,请参考以下资料:

ComputerID

RegisterCode

Register

EncryptString

DecryptString

Secret


 回到顶部
帅哥哟,离线,有人找我吗?
wjq1072
  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:16190 积分:125850 威望:1 精华:0 注册:2006/8/12 12:29:00
  发帖心情 Post By:2017/1/20 17:14:00 [显示全部帖子]

EncryptString

字符串加密函数,加密结果可以用DecryptString函数还原。

语法

EncryptString(String, Key)
String  要加密的字符串
Key    密钥字符串

加密示例:
EncryptString("易表","ABC")="D957BD65"

还原示例:
DecryptString("D957BD65","ABC")="易表"

加密与还原必须使用相同的密钥字符串。


DecryptString

还原EncryptString加密的字符串

语法

DecryptString(String, Key)
String  要还原的字符串
Key     密钥字符串

加密示例:
EncryptString("易表","ABC")="D957BD65"

还原示例:
DecryptString("D957BD65","ABC")="易表"

加密与还原必须使用相同的密钥字符串。


 回到顶部
帅哥哟,离线,有人找我吗?
wjq1072
  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:16190 积分:125850 威望:1 精华:0 注册:2006/8/12 12:29:00
  发帖心情 Post By:2017/1/20 21:31:00 [显示全部帖子]

再看看?
 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:易表二次注册.egd

 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:易表二次注册机.egd

如果想注册后不留痕迹,则注册按钮公式中加上删除“注册”表,公式如下:

If([第二列]=Left(EncryptString([第一列],"ABCD"),20),MsgBox("注册成功!",0) And ShowMainWindow() And OpenGrid("表1") And RemoveGrid("注册"),MsgBox("注册码错误!",0))

[此贴子已经被作者于2017/1/21 8:19:14编辑过]

 回到顶部
帅哥哟,离线,有人找我吗?
wjq1072
  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:16190 积分:125850 威望:1 精华:0 注册:2006/8/12 12:29:00
  发帖心情 Post By:2017/1/22 11:07:00 [显示全部帖子]

点击“进入系统”看看!

 回到顶部