Триальная версия программы

@Август_раш · Регистрация: 30.07.2013

Студворк — интернет-сервис помощи студентам

День добрый...Подскажите возможно ли в Access, сделать триалку, т.е допустим ставим определенную дату и как время подошло к этой дате, пользователю выходит сообщение о том что пробная версия закончилась

@ltv_1953 · 15.08.2013, 08:59

Возможно. Вариантов много. Прописываете дату в некую таблицу, свойство ... (как больше нравится).
1. При открытии базы в открытии стартовой форме или в AutoExec сравниваете текущую дата с прописанной.
2. В каждую форму в ее открытие прописываете такую проверку.

@Agapov_stas · 15.08.2013, 10:04

Сообщение от Август_раш

допустим ставим определенную дату и как время подошло к этой дате

Обходится очень просто, - меняя дату на ПК.
Если именно по дате прям уж хочется, то сверять дату интернета а не системную.
Я обычно делаю на количество запусков(+ естественно защита от Shift и mde)

P.S. если работа студенту, то я обычно даже не делаю защиты ни по дате ни по количеству запусков. Достаточно при запуске БД выводить сообщение о том, что разработчик Вы(Shift + MDE остается). Вряд ли студент понесет с данным сообщением работу преподавателю

@Август_раш · 15.08.2013, 10:12 **[ТС]**

Сообщение от Agapov_stas

Обходится очень просто, - меняя дату на ПК.

Так то да...Ну постоянно дату менять тоже не вариант

Если именно по дате прям уж хочется, то сверять дату интернета а не системную.

Я обычно делаю на количество запусков(+ естественно защита от Shift и mde)

защита от Shift у меня уже сделана,. mde если честно только видел краем глаза, как делается еще не изучал (да и считаю что mde делать нужно, когда проект будет полностью готов)

Можете примеры: сверять дату интернета и количество запусков показать

@Agapov_stas · 15.08.2013, 10:18

Сообщение от Август_раш

Ну постоянно дату менять тоже не вариант

Почему же постоянно? Достаточно один раз сменить на месяц/2 недели назад. И все.

Сообщение от Август_раш

mde если честно только видел краем глаза, как делается еще не изучал

Делается в три клика мышью(Сервис-->Служебные программы-->Создать MDE файл)

Сообщение от Август_раш

Можете примеры: сверять дату интернета и количество запусков показать

Сверку с датой в интернете так сходу не найду, но примеров очень много в интернете.
А по количеству записей:
1. Создаете свойство с именем "myProperty". Выполняется один раз при создании.

Кликните здесь для просмотра всего текста

Visual Basic
1
2
3
4
5
Public Sub crProperty()
    Dim prp As Property
    Set prp = CurrentDb.CreateProperty("myProperty", dbInteger, 0)
    CurrentDb.Properties.Append prp
End Sub

2. Далее при открытии главной формы проверяете значение свойства и добавляете к нему единицу. После достижения указанного значения(например 3 раза) выдаете сообщение(ну или просто закрываете БД)

Кликните здесь для просмотра всего текста

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
Private Sub Form_Load()
DoCmd.SelectObject acTable, "Таблица", True
DoCmd.RunCommand acCmdWindowHide
DoCmd.ShowToolbar ("Menu Bar"), acToolbarNo
DoCmd.ShowToolbar ("Database"), acToolbarNo
DoCmd.ShowToolbar ("Web"), acToolbarNo
DoCmd.ShowToolbar ("Formatting (Form/Report)"), acToolbarNo
DoCmd.ShowToolbar ("Form View"), acToolbarNo
 
    Dim prp As Property, db As Database
    Set db = CurrentDb
    Set prp = db.Properties("myProperty")
    
    If prp.Value > 3 Then
    MsgBox ("Данная БД разработана на заказ!Обратиться к разработчику можно по электронной почте EMail: Тут Ваша почта...")
    DoCmd.Quit
    Else
    prp.Value = prp.Value + 1
    End If
End Sub

@ltv_1953 · 15.08.2013, 10:20

Сообщение от Agapov_stas

Обходится очень просто, - меняя дату на ПК.

Вот этого делать не стоит, с большой вероятность начнутся проблемы с софтом, на который ограниченная по времени лицензия. В нем, как правило, зашита проверка на не уменьшение системной даты в последовательности вызовов. Можно и в свою программу такую проверку встроить.

@Agapov_stas · 15.08.2013, 10:23

Сообщение от ltv_1953

Вот этого делать не стоит, с большой вероятность начнутся проблемы с софтом, на который ограниченная по времени лицензия.

Пока проблем не было. И я говорю о возможности, а не о "стоит или не стоит".
Тем более сейчас речь идет о MS Access(или Вы о нем же?).

@ltv_1953 · 15.08.2013, 10:37

Нет. Речь о других программах. Были проблемы у ушлых пользователей с антивирусами и другими, с ограниченной по времени лицензией. Первый раз с такой защитой у MS столкнулся, когда смотрел пробную версию Висты и у NOD была. С тех пор менять системную дату не рискую. Т.е. речь о том, что изменив системную дату ушлый пользователь скорей всего получит проблемы с другим софтом.

@Август_раш · 15.08.2013, 10:40 **[ТС]**

Даже если пользователь поменяет дату на компе, и перестанет работать какая то еще программа(не Access), "ему хошь не хошь" придется поменять ее обратно, чтобы заработали другие программы

Добавлено через 2 минуты
согласен с ltv_1953,

@Agapov_stas · 15.08.2013, 10:40

Сообщение от ltv_1953

Нет. Речь о других программах.

Что ж, пока, видимо, мне везло. Никаких проблем не встречалось.
Но, спасибо за опыт, буду иметь ввиду.

@Август_раш · 15.08.2013, 10:44 **[ТС]**

Agapov_stas, ваш пример конечно изучу (по количеству запусков) интересный вариант, но все же нужно по определенной дате , так как просчитать количество входов до поставленной даты не реально, а нужно чтобы через месяц она перестала работать

@ltv_1953 · 15.08.2013, 10:46

Сообщение от Август_раш

"ему хошь не хошь" придется поменять ее обратно, чтобы заработали другие программы

Если бы просто дату поменять, софт приходилось переустанавливать, сначала вычистив упоминания о нем в реестре.

mobile · 15.08.2013, 10:50

По опыту знаю, что очень низка вероятность того, что сворованная программа будет безошибочно работать у кого-либо, кроме заказчика. Все-таки не коробочная версия, полноценного тестирования не проходила. Поэтому в коммерческом плане выгоднее не делать защит, кроме как от дурака. Пусть воруют

. Если интересно, к тебе же прибегут за дополнениями и исправлениями.

@Agapov_stas · 15.08.2013, 10:59

Сообщение от Август_раш

но все же нужно по определенной дате

Кликните здесь для просмотра всего текста

Visual Basic
1
2
3
4
5
6
7
8
9
Option Compare Database
Const strDate = "15.08.2013"
 
Private Sub Form_Load()
If strDate < Date Then
MsgBox ("Плати деньгу!")
DoCmd.Quit
End If
End Sub

Но, как уже и говорил, обходится легко.

@Август_раш · 15.08.2013, 11:33 **[ТС]**

Сообщение от ltv_1953

Если бы просто дату поменять, софт приходилось переустанавливать, сначала вычистив упоминания о нем в реестре.

Да и с таким сталкивался, очень печально

, особенно если программа тяжелая и очень долго ставится

Добавлено через 16 минут

Сообщение от Agapov_stas

Кликните здесь для просмотра всего текста

Visual Basic
1
2
3
4
5
6
7
8
9
Option Compare Database
Const strDate = "15.08.2013"
 
Private Sub Form_Load()
If strDate < Date Then
MsgBox ("Плати деньгу!")
DoCmd.Quit
End If
End Sub

Но, как уже и говорил, обходится легко.

А как сделать что бы из таблички бралась дата Например: (Табл: "Сертификат" код, ДатаСертификата)
а табличку скрыть, чтобы пользователь вообще думал что такой нет, если вдруг все таки откроет программу каким либо способом

@Agapov_stas · 15.08.2013, 11:49

Сообщение от Август_раш

А как сделать что бы из таблички бралась дата Например: (Табл: "Сертификат" код, ДатаСертификата)

Visual Basic
1
2
3
4
5
6
Private Sub Form_Load()
If CurrentProject.Connection.Execute("Select Top 1 ДатаСертификата From Сертификат").Fields(0) < Date Then
MsgBox ("Плати деньгу!")
DoCmd.Quit
End If
End Sub

@CountMay · 15.08.2013, 11:52

Можно предложить иной вариант для развития trial версии - ставить просто ограничение на число записей. Так или иначе Ваша программа создаёт какую-то таблицу, данные и т.п. Сделать программное ограничение - не более, например, 100 записей в таблице. Хотите больше - платите, тогда за малую сумму разрешит 1000 записей, за бОльшую - сколько угодно и т.п.

@Август_раш · 15.08.2013, 12:02 **[ТС]**

Сообщение от CountMay

Можно предложить иной вариант для развития trial версии - ставить просто ограничение на число записей. Так или иначе Ваша программа создаёт какую-то таблицу, данные и т.п. Сделать программное ограничение - не более, например, 100 записей в таблице. Хотите больше - платите, тогда за малую сумму разрешит 1000 записей, за бОльшую - сколько угодно и т.п.

Тоже интересно, как вариант

@ltv_1953 · 15.08.2013, 12:05

Другой вариант с датой - писать ее не в таблицу, а в доп. свойства стартовой формы (tag). И проверять при открытии. Добраться до такой даты в откомпилированной базе будет очень сложно.

Visual Basic
1
2
3
4
5
6
Private Sub Form_Open(Cancel As Integer)
    If Date > CVDate(Me.Tag) Then
        Cancel = True
        Application.Quit
    End If
End Sub

@Август_раш · 15.08.2013, 14:40 **[ТС]**

Простите еще за вопрос
Может конечно я уже загоняться стал...(Просто интересно стало, да и научиться хочется).. как сделать, чтобы сообщение бралось из таблицы

Visual Basic
1
MsgBox ("из таблицы")

(Табл: "Сертификат" код, ДатаСертификата, Сообщение)
И вот что в этом сообщение написано будет выдавать пользователю

Новые блоги и статьи Все статьи Все блоги /
Символьное дифференцирование igorrr37 13.02.2026 / * Логарифм записывается как: (x-2)log(x^2+2) - означает логарифм (x^2+2) по основанию (x-2). Унарный минус обозначается как ! */ #include <iostream> #include <stack> #include <cctype>. . .	Камера Toupcam IUA500KMA Eddy_Em 12.02.2026 Т. к. у всяких "хикроботов" слишком уж мелкий пиксель, для подсмотра в ESPriF они вообще плохо годятся: уже 14 величину можно рассмотреть еле-еле лишь на экспозициях под 3 секунды (а то и больше),. . .	И ясному Солнцу zbw 12.02.2026 И ясному Солнцу, и светлой Луне. В мире покоя нет и люди не могут жить в тишине. А жить им немного лет.	«Знание-Сила» zbw 12.02.2026 «Знание-Сила» «Время-Деньги» «Деньги -Пуля»
SDL3 для Web (WebAssembly): Подключение Box2D v3, физика и отрисовка коллайдеров 8Observer8 12.02.2026 Содержание блога Box2D - это библиотека для 2D физики для анимаций и игр. С её помощью можно определять были ли коллизии между конкретными объектами и вызывать обработчики событий столкновения. . . .	SDL3 для Web (WebAssembly): Загрузка PNG с прозрачным фоном с помощью SDL_LoadPNG (без SDL3_image) 8Observer8 11.02.2026 Содержание блога Библиотека SDL3 содержит встроенные инструменты для базовой работы с изображениями - без использования библиотеки SDL3_image. Пошагово создадим проект для загрузки изображения. . .	SDL3 для Web (WebAssembly): Загрузка PNG с прозрачным фоном с помощью SDL3_image 8Observer8 10.02.2026 Содержание блога Библиотека SDL3_image содержит инструменты для расширенной работы с изображениями. Пошагово создадим проект для загрузки изображения формата PNG с альфа-каналом (с прозрачным. . .	Установка Qt-версии Lazarus IDE в Debian Trixie Xfce volvo 10.02.2026 В общем, достали меня глюки IDE Лазаруса, собранной с использованием набора виджетов Gtk2 (конкретно: если набирать текст в редакторе и вызвать подсказку через Ctrl+Space, то после закрытия окошка. . .

@Август_раш 7 / 2 / 0 Регистрация: 30.07.2013 Сообщений: 93

	Триальная версия программы 15.08.2013, 08:43. Показов 2699. Ответов 20 Метки нет (Все метки) День добрый...Подскажите возможно ли в Access, сделать триалку, т.е допустим ставим определенную дату и как время подошло к этой дате, пользователю выходит сообщение о том что пробная версия закончилась 0

@ltv_1953 17536 / 7288 / 1663 Регистрация: 21.06.2012 Сообщений: 13,957
	15.08.2013, 08:59
	Возможно. Вариантов много. Прописываете дату в некую таблицу, свойство ... (как больше нравится). 1. При открытии базы в открытии стартовой форме или в AutoExec сравниваете текущую дата с прописанной. 2. В каждую форму в ее открытие прописываете такую проверку. 0

@ltv_1953 17536 / 7288 / 1663 Регистрация: 21.06.2012 Сообщений: 13,957
	15.08.2013, 10:37
	Нет. Речь о других программах. Были проблемы у ушлых пользователей с антивирусами и другими, с ограниченной по времени лицензией. Первый раз с такой защитой у MS столкнулся, когда смотрел пробную версию Висты и у NOD была. С тех пор менять системную дату не рискую. Т.е. речь о том, что изменив системную дату ушлый пользователь скорей всего получит проблемы с другим софтом. 1

@Август_раш 7 / 2 / 0 Регистрация: 30.07.2013 Сообщений: 93
	15.08.2013, 10:40 [ТС]
	Даже если пользователь поменяет дату на компе, и перестанет работать какая то еще программа(не Access), "ему хошь не хошь" придется поменять ее обратно, чтобы заработали другие программы Добавлено через 2 минуты согласен с ltv_1953, 0

@Август_раш 7 / 2 / 0 Регистрация: 30.07.2013 Сообщений: 93
	15.08.2013, 10:44 [ТС]
	Agapov_stas, ваш пример конечно изучу (по количеству запусков) интересный вариант, но все же нужно по определенной дате , так как просчитать количество входов до поставленной даты не реально, а нужно чтобы через месяц она перестала работать 0

mobile 26826 / 14506 / 3192 Регистрация: 28.04.2012 Сообщений: 15,782
	15.08.2013, 10:50
	По опыту знаю, что очень низка вероятность того, что сворованная программа будет безошибочно работать у кого-либо, кроме заказчика. Все-таки не коробочная версия, полноценного тестирования не проходила. Поэтому в коммерческом плане выгоднее не делать защит, кроме как от дурака. Пусть воруют . Если интересно, к тебе же прибегут за дополнениями и исправлениями. 0

@CountMay 6 / 6 / 0 Регистрация: 27.01.2012 Сообщений: 28
	15.08.2013, 11:52
	Можно предложить иной вариант для развития trial версии - ставить просто ограничение на число записей. Так или иначе Ваша программа создаёт какую-то таблицу, данные и т.п. Сделать программное ограничение - не более, например, 100 записей в таблице. Хотите больше - платите, тогда за малую сумму разрешит 1000 записей, за бОльшую - сколько угодно и т.п. 1