Office中国论坛/Access中国论坛

标题: [数据库保护]复制到第二台电脑无法运行，（已修改） [打印本页]

作者: weikitwong 时间: 2006-6-2 01:47
标题: [数据库保护]复制到第二台电脑无法运行，（已修改）
[数据库保护]在第二台电脑无法运行，

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

提示: "非法拷贝!"

再试下,找一个无用的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 时间: 2006-6-2 03:46
这是个方法，但不可靠，使用读取注册表相应值来保护非法复制似乎要安全的多，写入注册表时使用加密写入。还可以配合硬盘的ID来实现更复杂的保护，在论坛由这样的例子，可以搜索一下。

欢迎光临 Office中国论坛/Access中国论坛 (http://www.office-cn.net/)