[数据库保护]复制到第二台电脑无法运行，（已修改）

weikitwong

[数据库保护]在第二台电脑无法运行，

先直接运行数据库试下...

提示: "非法拷贝!"

再试下,找一个无用的EXE文件,改名123.exe,并放在C:\

很快你就明白了...

各位对不起了，因一直无法上存文件，我又太懒，一直不管。思路如下，请指教！

在打开数据库启动窗体时加载

Error GoTo Err_Command0_Click

Dim stAppName As String

stAppName = ""C:\123.EXE""　'可选择较复杂的路径杂较复杂的文件名，（exe文件是一个空壳无用文件）。

Call Shell(stAppName, 1)

it_Command0_Click:
    Exit Sub
Err_Command0_Click:
MsgBox "非法拷贝，无法进入。", vbExclamation, "提示！"　'找不到指定EXE文件同，自动退出！
DoCmd.Quit

fan0217

这是个方法，但不可靠，使用读取注册表相应值来保护非法复制似乎要安全的多，写入注册表时使用加密写入。还可以配合硬盘的ID来实现更复杂的保护，在论坛由这样的例子，可以搜索一下。