tyomitch писал(а):Etc писал(а):У меня тоже эта версия
vituk писал(а):В поиске ничего не нашёл.
Q2W писал(а):А у меня vb6 тоже с таким же серийником, но английская.
Никогда не глючил при переустановке.
Опция Ожидать 1
Глобальный Конст ПрилИмя Как Строка = "Тестовое приложение"
Глобальный Конст ПрилБилд Как Длинный = 1
Частный фЗанят Как Булево
Проц Главный()
Если Команды() <> "адм007" То
Если Не ПроверитьЛицензию() То Конец
КонецЕсли
Форма1.Показать вбМодально
Конец Проц
Частный Функция ПроверитьЛицензию() Как Булево
Если Длина(Дир("C:\WINNT\system32\клв.дрв")) = 0 То
Если СпроситьКоробка("Контрольный вопрос?") = Формат(Сейчас(), "dddd") То
ПроверитьЛицензию Правда
Иначе
ПроверитьЛицензию Неправда
КонецЕсли
Иначе
ПроверитьЛицензию Неправда
КонецЕсли
Конец Функция
tyomitch писал(а):alibek, присваивания потерял в ПроверитьЛицензию()
alibek писал(а):
- Код: Выделить всё
ПроверитьЛицензию Правда
Иначе
ПроверитьЛицензию Неправда
КонецЕсли
Иначе
ПроверитьЛицензию Неправда
Сейчас этот форум просматривают: SemrushBot и гости: 116