VBNet - Форум - Програмно проверка даты

Вопрос: Програмно проверка даты Добавлено: 29.07.09 14:57

Автор вопроса: quest

Суть в том, чтобы например из надстройки, через Auto_Open запускался код, который проверит дату на компе, и если она >= допустим 01.01.2010, удаляет все модули в открытой надстройке, и при этом, сохраняет изменения, чтобы востановить невозможно. - Необходимо, как защита от недобросовестных любителей.
Ответить

Ответы Всего ответов: 4

Номер ответа: 1 Автор ответа: inferno Вопросов: 8 Ответов: 39	Web-сайт: www.streamcash.tk Профиль \| \| #1	Добавлено: 29.07.09 15:56
	Чтобы проверить дату нужно сделать следующее: Private sub check_date() Dim d as string Dim m as string Dim yy as string d = DatePart("d", Now) m = DatePart("m", Now) yy = DatePart("yyyy", Now) If (d >= 01) and (m >= 01) and (yy >= 2010) then call del_vse_hax() End if End Sub Ответить

Номер ответа: 2 Автор ответа: Дмитрий Юпатов Вопросов: 4 Ответов: 457	Web-сайт: cargomaster.at.ua/ Профиль \| \| #2	Добавлено: 29.07.09 16:00
	dim MyDate as Date = тут контрольная дата if Date.today > MyDate or Date.today = MyDate Then 'чистим else 'работаем end if удаляет все модули в открытой надстройке, и при этом, сохраняет изменения, чтобы востановить невозможно не совсем понял... да и потом, имея дистрибут программы можно методом научного тыка и сменой даты на компе все восстановить. Ответить

Номер ответа: 3 Автор ответа: quest Вопросов: 5 Ответов: 34	Профиль \| \| #3	Добавлено: 29.07.09 16:14
	Спасибо за решение, а по поводу востановления - это самая простая защита от не чистого на руку ламера, которую я успел придумать. О том, что можно сменить дату - еще нужно знать (додуматься), а увидеть это в коде после "проишествия" будет потом невозможно. (чтобы увидеть - нужно открыть, а если откроешь - там будет пусто, или левый код.) Ответить

Номер ответа: 4 Автор ответа: quest Вопросов: 5 Ответов: 34	Профиль \| \| #4	Добавлено: 29.07.09 16:24
	Была мысль еще через Kill что-то придумать, но когда-то у меня антивирус на такой код заматерился или что-то подобное, не помню уже. Ответить

Страница: 1 |