Отправляет email-рассылки с помощью сервиса Sendsay

Технологии Программирования - Visual Basic

Рассылка закрыта

При закрытии подписчики были переданы в рассылку "Программирование на Visual Basic/Visual Studio и ASP/ASP.NET" на которую и рекомендуем вам подписаться.

Вы можете найти рассылки сходной тематики в Каталоге рассылок.

←   Октябрь 2001   →
 1
 2
 3
 4
 5
 6
 7
 8
 9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
Автор
Сергей

Статистика

7.043 подписчиков
-23 за неделю
←   Все выпуски   →

Технологии Программирования - Visual Basic


Служба Рассылок Subscribe.Ru
Технологии Программирования - Visual Basic  8/2001, 15 октября.
Здравствуйте, уважаемые подписчики рассылки "Технологии Программирования - Visual Basic". Читайте в этом выпуске:
   - Обновление раздела
   - Защита программ от копирования
   - API функция FlashWindow
   - Форум раздела
Обновление раздела
В раздел VB - Easy добавлены две статьи: "Защита программ от копирования" и "Отключаем показ PasswordChar во всех элементах TextBox".
В раздел Downloads к последней статье добавлен модуль, который можно быстро подключить к вашему проекту и работать с его функциями.
Защита программ от копирования
В этой стате речь пойдёт о защите вашей программы от копирования (этот способ не является универсальным и дальше вы поймёте почему). Для этого нам потребуется лишь одна API функция - GetVolumeInformation, описание которой вы можете посмотреть в соответствующем разделе. Допустим, что у нас есть установочный файл какой - то программы и мы распространяем его на дискетах или компакт - диске, надо сделать так, чтобы, если программу скопируют на жёсткий диск, другую дискету или перепишут на CD-R диск она не запускалась (установочная программа). И сразу мы сталкиваемся с первой проблемой - установочной программой, ведь кто - то может её сделать, а кто - то нет. Предположим, что мы создали свою установочную программу (на самом деле это легко) и теперь создадим функцию для получения серийного номера диска:

Function GetSerialNumber(strDrive As String) As String
Dim SerialNum As Long
Dim res As Long
Dim Temp1 As String
Dim Temp2 As String
Temp1 = String$(255, Chr$(0))
Temp2 = String$(255, Chr$(0))
res = GetVolumeInformation(strDrive, Temp1, Len(Temp1), SerialNum, 0, 0, Temp2, Len(Temp2))
GetSerialNumber = SerialNum
End Function

Теперь только остаётся при загрузке программы проверить серийный номер диска с кторого запускается программа с серийным номером оригинальной дискеты на которую была скомпелирована программа. Вот и ещё одна проблема - для каждого диска вам прийдётся компилировать программу с заранее узнаным серийным номером этого диска. У этого способа защиты много недостатков, если вы знаете как исправить некоторые из них, напишите мне.
API функция FlashWindow
Функция FlashWindow переключает окно из одного состояния в другое (активное - неактивное), и мигает заголовком окна.

Declare Function FlashWindow Lib "user32.dll" (ByVal hwnd As Long, ByVal bInvert As Long) As Long

hwnd - дескриптор окна, которое будет мигать.
bInvert - указывает состояние окна. Окно переключается из одного состояния в другое, если значение равно True. Если равно False, то окно возвращается в своё начальное состояние (активное или неактивное).

Функция возвращает состояние окна до вызова функции FlashWindow
Форум раздела
Имя: Bas
E-mail: nufer@yandex.ru
Вопрос: Кто-нибудь пытался сделать ping на VB? Подскажите плз... Ответить
Имя: Александр
E-mail: mihey_a@chat.ru
Вопрос: В начале 1999 года появился локализованный вариант VB 6.0, в котором переведены на русский язык только документация и справочная система (не полностью). Где нибудь в интернете есть эта документация? Ответить
Имя: Антон
E-mail: xantonx@mail.ru
Вопрос: Здравствуйте, не расскажите (с примером кода) как реализовать игру Крестики-нолики? Ответить
Благодарю за интерес к рассылке.
Автор рассылки: Александр
Сайт  рассылки: Технологии программирования - Visual Basic
http://subscribe.ru/
E-mail: ask@subscribe.ru 		Отписаться
Убрать рекламу 		Рейтингуется SpyLog
В избранное