[求助]access中能否像exe文件一样编写注册码，防止拷贝使用

qiqixh

access中能否像exe文件一样编写注册码，防止拷贝使用

cg1

excel怎么编写注册吗？防止copy的？你先讲一下原理

qiqixh

不好意思，不清楚，望指教，另我指每张光盘只保证一个用户使用，强行注册，好像setup文件也不能保证，最好是在mdb中注册，读机器码，硬盘号，cpuid之类，望能多多指教！

guotianxin

使用Windows API读硬盘序列号，根据序列号生成注册码，就可以保证注册码唯一。
读硬盘序列号的源程序如下:
Private Declare Function GetVolumeInformation Lib "kernel32" _
Alias "GetVolumeInformationA" _
(ByVal lpRootPathName As String, _
ByVal lpVolumeNameBuffer As String, _
ByVal nVolumeNameSize As Long, _
lpVolumeSerialNumber As Long, _
lpMaximumComponentLength As Long, _
lpFileSystemFlags As Long, _
ByVal lpFileSystemNameBuffer As String, _
ByVal nFileSystemNameSize As Long) As Long

Function dhPrintVolInfo(Optional strDrive As String = vbNullString)

    ' Sample procedure demonstrating GetVolumeInformation API function.

    ' From "VBA Developer's Handbook"
    ' by Ken Getz and Mike Gilbert
    ' Copyright 1997; Sybex, Inc. All rights reserved.

    ' In:
    '   strDrive (Optional, default = vbNullString)
    '       String representing root directory of a drive
    '       (e.g. "C:\") or empty string for current drive.
    ' Out:
    '   Return Value:
    '       n/a
    ' Example:
    '   Call dhPrintVolInfo

    Dim strVolLabel As String
    Dim strFileSystem As String
    Dim lngVolumeSerialNumber As Long
    Dim lngMaximumComponentLength As Long
    Dim lngFileSystemFlags As Long

    ' Set up the buffers
    strVolLabel = Space(255)
    strFileSystem = Space(255)
   
    ' Call GetVolumeInformation
    If CBool(GetVolumeInformation(strDrive, _
     strVolLabel, Len(strVolLabel), _
     lngVolumeSerialNumber, _
     lngMaximumComponentLength, _
     lngFileSystemFlags, _
     strFileSystem, Len(strFileSystem))) Then
        
        ' Parse buffers
        strVolLabel = dhTrimNull(strVolLabel)
        strFileSystem = dhTrimNull(strFileSystem)
        
        ' Print information
'        Debug.Print strDrive, _
'         strVolLabel, _
'         Hex(lngVolumeSerialNumber), _
'         lngMaximumComponentLength
        dhPrintVolInfo = Hex(lngVolumeSerialNumber)
    End If
End Function
如果要获取C:\序列号，可这样调用：
dim snC
snC=dhPrintVolInfo("C:\")

qiqixh

谢谢，非常感谢，望以后多指点！

cnwang

http://www.china-askpro.com/msg44/qa00.shtml

huanghai

cnwang,那有什么好方法？

cnwang

看有无不能改的硬件ID，比如主板、CPU。。。。
系统中用到对外文件则可以公司名称做文章。

cavin88

感谢啊啊