| Вопрос: Демо | Добавлено: 26.10.04 20:45 |
Автор вопроса:  Kevin Mitnik | ICQ: 205559551 |
| Можно ли сделать чтобы программа работала 30 дней со дня запуска??? |
| Ответы | Всего ответов: 15 |
|
Номер ответа: 1 Автор ответа:  AgentFire ICQ: 192496851 Вопросов: 75 Ответов: 3178 |
Профиль | | #1 | Добавлено: 26.10.04 22:11 |
Хе... 
1. Можно сохранить в реестр запись о том, что прога запускалась и когда 2. Сохранять эти изменения в отдельном файле(любом, даже системном, но так, чтоб потом Винда запускалась )
3. Записывать информацию в себя(в ЕХЕ) |
||
|
Номер ответа: 2 Автор ответа: AgentFireICQ: 192496851 Вопросов: 75 Ответов: 3178 |
Профиль | | #2 | Добавлено: 26.10.04 22:12 |
| А вообще отвечу прямо на вопрос: нельзя | ||
|
Номер ответа: 3 Автор ответа: AgentFireICQ: 192496851 Вопросов: 75 Ответов: 3178 |
Профиль | | #3 | Добавлено: 26.10.04 22:14 |
|
1. Реестр можно отследить прогой WinTools(за $0.50 продам серийник
2 и 3: это все отслеживается WinTools'ом 
Но врятли он широко распространен... |
||
|
Номер ответа: 4 Автор ответа:  someoneВопросов: 215 Ответов: 1596 |
Web-сайт: Профиль | | #4 | Добавлено: 26.10.04 23:25 |
|
Private Sub Form1_Load()
Dim A A = GetSetting (App.ExeName,"OnRun", "Starts", "1" If A = 1 Then App.SaveSetting App.ExeName, "OnRun", "Starts", "0" App.SaveSetting App.ExeName, "  ays", "Ostalos", "30"
End If Dim ORN ORN =GetSetting (App.ExeName, "OnRun", "Ostalos", "1" 
App.SaveSetting App.ExeName, "OnRun", "Ostalos", ORN -1 If ORN = 0 Then MsgBox "ГОСПОДА! ХАЛЯВА ОКОНЧЕНА!" End Else вот и все! |
||
|
Номер ответа: 5 Автор ответа: AlexF Вопросов: 20 Ответов: 113 |
Профиль | | #5 | Добавлено: 27.10.04 00:57 |
| kto znaet link link na WinTools? | ||
|
Номер ответа: 6 Автор ответа: night-rollВопросов: 36 Ответов: 326 |
Профиль | | #6 | Добавлено: 27.10.04 01:32 |
|
Option Explicit Private Declare Function GlobalAddAtom Lib "kernel32" Alias "GlobalAddAtomA" (ByVal lpString As String) As Integer Private Declare Function GlobalFindAtom Lib "kernel32" Alias "GlobalFindAtomA" (ByVal lpString As String) As Integer Private Const Pswd = "только 1 раз" ' – эту костнанту можно изменять как Вам надо Private Sub Form_Load() If GlobalFindAtom(Pswd) Then MsgBox "XPEH BAM": End Call GlobalAddAtom(Pswd) End Sub если не понятно могу пояснить. счастливые обладатели FAQ-a, разосланного мной могут найти этот код там. |
||
|
Номер ответа: 7 Автор ответа: someoneВопросов: 215 Ответов: 1596 |
Web-сайт: Профиль | | #7 | Добавлено: 27.10.04 11:07 |
|
если хошь - используй мой код. он на 30 запусков.
и скобки где надо поставь. Ну а с датой : похожий код. Сам догадаешься |
||
|
Номер ответа: 8 Автор ответа: someoneВопросов: 215 Ответов: 1596 |
Web-сайт: Профиль | | #8 | Добавлено: 27.10.04 11:08 |
|
и не app.savesetting а просто savesetting
спешил |
||
|
Номер ответа: 9 Автор ответа: sneРазработчик Offline Client ICQ: 233286456 Вопросов: 34 Ответов: 5445 |
Web-сайт: Профиль | | #9 | Добавлено: 27.10.04 11:39 |
| см. поиск по форуму, тема обсуждалась и ответ был отрицательный... Лучше сделать демо версию и версию нормальную... | ||
|
Номер ответа: 10 Автор ответа: BarsikРазработчик Offline Client ICQ: 343368641 Вопросов: 17 Ответов: 686 |
Web-сайт: Профиль | | #10 | Добавлено: 27.10.04 14:48 |
|
не.. все это нето.. все это можно отследить...
лучше вообще не увлекатся таким делом...тем более при FreeWare.. ну а если захотелось сделать платную программу то вам в сторону совета sne идти надо... |
||
|
Номер ответа: 11 Автор ответа: Black DragonICQ: 321186096 Вопросов: 30 Ответов: 347 |
Web-сайт: Профиль | | #11 | Добавлено: 27.10.04 21:38 |
|
Люди! А вы знаете, что функции GetSetting и SaveSetting - просто стандартные функции VB (к ним есть АПИ-эквиваленты) работы с РЕЕСТРОМ. Поэтому, Empro, твой совет тоже можно проследить!
А на счет "прямого" ответа Noviks: есть же на свете много Shareware-программ (и не только 30-дневок), т. е. МММОООЖЖЖНННООО!!! Но самое трудное состоит в том, чтобы отбить удовольствие ломания программы у большинства хакеров и ламеров. Ведь всем известно: Нет такой защиты, которую невозможно было бы взламать! А на счет night-roll'a... Ты можешь объяснить свой листинг? |
||
|
Номер ответа: 12 Автор ответа: ZagZagICQ: 295002202 Вопросов: 87 Ответов: 1684 |
Профиль | | #12 | Добавлено: 28.10.04 11:39 |
|
Да! SaveSetting
HKEY_CURRENT_USER\Software\VB and VBA Program Settings\...
По-моему, всетаки делать как сказал sne: Лучше сделать демо версию и версию нормальную...
Это наилучшее решение! Взломать невозможно! Только нужно продумать то, что уважающий себя пользователь качать демку навряд-ли захочет, лучше возьмет "у друга" полную версию
Надо продумать защиту от копирования! |
||
|
Номер ответа: 13 Автор ответа: BarsikРазработчик Offline Client ICQ: 343368641 Вопросов: 17 Ответов: 686 |
Web-сайт: Профиль | | #13 | Добавлено: 29.10.04 13:43 |
|
Надо продумать защиту от копирования!
это таже малина |
||
|
Номер ответа: 14 Автор ответа: night-rollВопросов: 36 Ответов: 326 |
Профиль | | #14 | Добавлено: 30.10.04 21:48 |
|
по поводу приведённого выше мной кода...
действует только если не перезагружать комп. И вообще, из всего вышесказанного, а так же по-моему мнению ясно одно: самый лучший способ создать Условно-Бесплатную программу - сделать две: ограниченную и полную. ну, это я повторяюсь, простите! создать её другим способом - бесполезно! я таких способов знаю как минимум 5, и поверьте ни один не отвечает всем критериям, тем более что хакеры - люди дотошные, им бы только взломать (сам не раз этим увлекался). Ломается всё! найти файл с информацией или ключ в реестре - дело времени и используемых средств. |
||
|
Номер ответа: 15 Автор ответа: BarsikРазработчик Offline Client ICQ: 343368641 Вопросов: 17 Ответов: 686 |
Web-сайт: Профиль | | #15 | Добавлено: 01.11.04 22:39 |
| вот и я о том-же | ||
Страница: 1 |