[精华]一个好的注册程序（分享）

jygzcj

<p>为了大家查找，今天修改标题名称。注册程序</p><p></p><p>希望支持的朋友顶一下</p><p></p><p>共享一个注册程序要注册码的发送邮件到<a href="mailto:duke_zhang@126.com">duke_zhang@126.com</a></p><p>VBA密码IlMnNfE123456789</p><p> Oakx5r8T.rar (274 Bytes, 下载次数: 5047)

2006-12-5 19:39 上传

点击文件名下载附件
[建议]一个好的注册程序（分享）

<br/>

[此贴子已经被作者于2007-2-8 14:13:23编辑过]

[ 本帖最后由 jygzcj 于 2009-3-20 14:08 编辑 ]

Aeolian-Vox

既然是共享，还搞那么复杂？

Aeolian-Vox

用了C:、D:盘的SerialNumber做文章。

jygzcj

还通过注册表的。相关代码如下：

Private Declare Function HtmlHelp Lib "HHCtrl.ocx" Alias "HtmlHelpA" (ByVal hwndCaller As Long, ByVal pszFile As String, ByVal uCommand As Long, ByVal dwData As String) As Long
Declare Function RegDeleteKeyA Lib "advapi32.dll" (ByVal hKey As Long, ByVal sSubKey As String) As Long
Declare Function RegOpenKeyA Lib "advapi32.dll" (ByVal hKey As Long, ByVal sSubKey As String, ByRef hkeyResult As Long) As Long
Declare Function RegCloseKey Lib "advapi32.dll" (ByVal hKey As Long) As Long
Declare Function RegSetValueExA Lib "advapi32.dll" (ByVal hKey As Long, ByVal sValueName As String, ByVal dwReserved As Long, ByVal dwType As Long, ByVal sValue As String, ByVal dwSize As Long) As Long
Declare Function RegCreateKeyA Lib "advapi32.dll" (ByVal hKey As Long, ByVal sSubKey As String, ByRef hkeyResult As Long) As Long
Declare Function RegQueryValueExA Lib "advapi32.dll" (ByVal hKey As Long, ByVal sValueName As String, ByVal dwReserved As Long, ByRef lValueType As Long, ByVal sValue As String, ByRef lResultLen As Long) As Long

Public Const RK As String = "HKEY_CURRENT_USER"
Public Const P As String = "Software\Microsoft\RegSoftware\{WINNER868-SIMON868-W868-XIN868}\"
Public Const KeyName As String = "FileType"

Public Const KeyValue As String = "NO"
Public Const Demo As Long = 210

Function GetRegistry(Key, Path, ByVal ValueName As String)
    Dim hKey As Long, lValueType As Long, sResult As String, lResultLen As Long, ResultLen As Long, x, TheKey As Long

    TheKey = &H80000001
    If RegOpenKeyA(TheKey, Path, hKey) <> 0 Then x = RegCreateKeyA(TheKey, Path, hKey)
    sResult = Space(100)
    lResultLen = 100
    x = RegQueryValueExA(hKey, ValueName, 0, lValueType, sResult, lResultLen)
    If x = 0 Then GetRegistry = Left(sResult, lResultLen - 1) Else GetRegistry = "Not Found"
    RegCloseKey hKey
End Function

Function WriteRegistry(ByVal Key As String, ByVal Path As String, ByVal entry As String, ByVal value As String)
    Dim hKey As Long, lValueType As Long, sResult As String, lResultLen As Long, TheKey, x

    TheKey = &H80000001
    If RegOpenKeyA(TheKey, Path, hKey) <> 0 Then x = RegCreateKeyA(TheKey, Path, hKey)
    x = RegSetValueExA(hKey, entry, 0, 1, value, Len(value) + 1)
    WriteRegistry = (x = 0)
End Function

jygzcj

可将相关设置设在注册表特定的文件夹中，而不是OFFice指定的地方

sunch

注册程序写的不错，值得称赞，但对于VBA程序来说，很容易让人

破解，不用这么太费心思，看到你写的源码了，很规范，是个老手

了，向你学习，帮你顶起。

sunch

这是你注册的

sunch

写错了，这是我注册的

jygzcj

谢谢！！代码有个超级注册码就是zhangtianhe

就是万能注册码啊。哈哈

jygzcj

VBE工程密码为IlMnNfE123456789