[分享][数据库保护]复制到第二台电脑无法运行!(已修改)

weikitwong · 发表于 2006-3-17 18:06:00

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

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

提示: "非法拷贝!"

再试下,找一个无用的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

[此贴子已经被作者于2006-6-1 17:44:56编辑过]

laiguiyou · 发表于 2006-3-17 18:23:00

see

goodorbad · 发表于 2006-3-17 19:25:00

see see

goodorbad · 发表于 2006-3-17 19:26:00

不明白什么意思。

小明 · 发表于 2006-3-17 22:48:00

可以看看吗

小明 · 发表于 2006-3-17 22:50:00

看不懂

df · 发表于 2006-3-17 23:41:00

lzx-shmily · 发表于 2006-3-18 00:37:00

glw · 发表于 2006-3-18 04:24:00

look

qdjqx · 发表于 2006-3-18 05:56:00

帐号		自动登录	找回密码
密码			注册

群介绍
Access培训群 (792054000)
Access免费培训群2 (792054000)
Access经典源码培训群 (77130759)
Access源码技巧群 (138920637)
access vba (307776555)

主题相关群

地区相关群[您还没设置居住地]

[与其它组件] [分享][数据库保护]复制到第二台电脑无法运行!(已修改)

本帖子中包含更多资源

群介绍
主题无相 (随机显示版	同地区群块其他地区)