ник: Скорп
не хочу подымать соседнюю ветку
но там обсуждалась проблемма защиты проги от несанкционки
из предложенных методов понравился k@s-а:
Private Sub Form_Open(Cancel As Integer)
fsort
End Sub
'Делаю модуль с названием fsort() следующего содержания:
Function fsort()
Dim fs As Object
Set fs = Application.FileSearch
With fs
.LookIn = "C:\windows"
.FileName = "winsysr.doc"
If .Execute > 0 Then ' файл найден
Else
MsgBox "Программа защищена от" _
& "@несанкционированного копирования." _
& "@Разработчик Матющенко Г.К. (383-2) 17-45-40", vbInformation, "СИСТЕМА КОНТРОЛЯ ВВОДА ИНФОРМАЦИИ"
DoCmd.Quit
End If
End With
End Function
При старте главной формы программа начинает проверять наличие файла winsysr.doc в директории C:\windows. Причем, как вы понимаете и назване файла и место расположения его на диске могут быть абсолютно разные. Не думаю, что при установке программы кто-то следит за тем куда программа инсталлирования сваливает те или иные файлы. Файл маленький по размеру. Он практически проскакивает на компьютере.
Результат. Как только кто-то скачивает базу. Она отказывается работать без этого маленького файлика.
|
но проблемма возникла
на домашнем компе работает (2003), а вот на работе (2007-й) - нет
пишет, что "FileSearch" типа того...нету такой приблуды
в справке что-то написано про изолированный режим и в этом режиме FileSearch недоступен
а чтобы его включить, надо лезть в реестр
1 Откройте окно редактора реестра.
2 Разверните папку HKEY_LOCAL_MACHINE и перейдите в следующий раздел реестра:
\Software\Microsoft\Office\12.0\Access Connectivity Engine\Engines
3 В правой области редактора реестра в разделе Имя дважды щелкните значение SandboxMode.
Откроется диалоговое окно Изменение параметра DWORD.
4 В поле Значение измените значение с 3 на 2, а затем нажмите кнопку ОК.
Закройте программу «Редактор реестра».
все я это проделал в реестре, на серваке на работе, а один фиг, не работает
мож кто подскажет, что надо еще сделать
и что такое "доверительный режим", о котором написано в справке??
мож тут собака порылась?
вобщем ХЕЛП!
