[原创]运用MD5来实现的用户注册系统

Moneky

QUOTE:

以下是引用qxnljx在2007-12-19 11:58:02的发言：

提示“找不工程或库”，出错语句：

Function QueryValueEx(ByVal lhKey As Long, ByVal szValueName As String, vValue As Variant) As Long

这个请对比一下工程的『引用』对话框

QssYB2Cw.rar (96.91 KB, 下载次数: 204)

2007-12-19 16:29 上传

点击文件名下载附件
[原创]运用MD5来实现的用户注册系统

热浪2006

还是支持一下吧

Moneky

QUOTE:

以下是引用doudou888在2007-12-19 15:32:43的发言：

下载了NEW为了提高稳定性,去掉了自定义控件,现在全部使用的系统自带控件.附件如下:

         用KeyMaker.exe生成的密匙：登陆时 出现

编译错误

找不到工程或库

的提示。

出错在：

Public Function gKey(ByVal u As String) As String       '这是一个自定义的加密函数,其中应用了MD5加密模块实现了不可逆加密

          如果点“新用户”，也提示：

编译错误

找不到工程或库

但出错在：

Private Sub cmdNewUser_Click()

不知是何因。

请用下面的附件，现在的附件所用的控件全部都是系统自带控件，应该不会存在自定义控件问题，请确保在安装OFFICE时选择了VBA项目

Moneky

QUOTE:

以下是引用冰山上的来客在2007-12-19 15:53:23的发言：

Why?

那个Str$函数是VB系统函数，出现这个问题的几率不大吧，你可以试试把str$改成CStr，也可以试试重新安装ＯＦＦＩＣＥ

raven

强悍的东西。好好学习下。。

doudou888

23楼的附件可以用，运行正常。原来的是因为计算机环境问题，还是你的代码问题啊。

Moneky

QUOTE:

以下是引用doudou888在2007-12-19 22:13:06的发言：
23楼的附件可以用，运行正常。原来的是因为计算机环境问题，还是你的代码问题啊。

这个问题怎么说呢，可以说两者都有问题，计算机环境的问题就是没有满足原来附件的运行要求『缺少应用的部件』，代码的问题就是没有在引用中去掉对不需要部件的引用。归根结底还是我的马虎没有把那些不需要的引用去掉

hhzjxss

谢谢分享！

Moneky

QUOTE:

以下是引用BobPan在2007-11-26 20:45:11的发言：
只是一个控件？？

什么只是一个控件？？？[em09]

daf2003

最后，由于在附件中包含了授权密钥生成器，所以在我代码中注释的 “这里可以自由发挥”“迷魂阵”那些地方你应该改一改，不然，大家都有 生成器，结果可想而知

我想问的是：改过以后，怎么制作授权密钥生成器，我随便改了一个数字（u=……），然后自己也不知道授权密钥应该是什么了。