[分享][數(shù)據(jù)庫保護]復制到第二臺電腦無法運行!(已修改)

weikitwong

[數(shù)據(jù)庫保護]在第二臺電腦無法運行，

先直接運行數(shù)據(jù)庫試下...

提示: "非法拷貝!"

再試下,找一個無用的EXE文件,改名123.exe,并放在C:\

很快你就明白了...

各位對不起了，因一直無法上存文件，我又太懶，一直不管。思路如下，請指教！

在打開數(shù)據(jù)庫啟動窗體時加載

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

[此貼子已經(jīng)被作者于2006-6-1 17:44:56編輯過]

laiguiyou

see

goodorbad

see see

goodorbad

不明白什么意思。

小明

可以看看嗎

小明

看不懂

df

a

lzx-shmily

s

glw

look

qdjqx

ok