Техническая поддержка :

Современные решения

для защиты Windows программ

и восстановления исходного кода
Автор: Гайдар Магдануров. Дата публикации: 20.08.2004

Пишем анализатор текстовой информации



Меня просят как можно более понятнее объяснить метод написания анализатора текста, как-то: проектов VB. Как могу просто - объясняю. Например вам нужно определить какие объекты(компоненты), включены в данный проект. Для этого можно написать следующую программу:

Создаем Standard EXE, форму и на нее лист-бокс. Теперь напишем код:

Выполним основную функцию в процедуре:

CODE NOW!

'Для работы процедуре нужно передать имя файла
Private Sub FindOCX(FileName)

'Открываем файл
Open FileName For Input As #1

'Считываем все символы из файла
txt = Input$(LOF(1), 1)

'Закрываем файл
Close #1

'Цикл
Do

'Ищем ; т.к. объекты в проекте идут после этого символа
p = InStr(p + 1, txt, ";")

' Если не найдено, то заканчиваем поиск
If p <> 0 Then n = InStr(p, txt, Chr(13)) Else Exit Sub

' Если не найдено символа перевода строки, то тоже выходим
If n = 0 Then Exit Sub

'Получаем имя файла компонента
mOCX = Mid(txt, p + 2, n - p - 2)

'Добавляем в список
List1.AddItem mOCX
Loop
End Sub




Вот и все. Если вы хотите также определить ссылки References, то вместо ; поставьте \system32\, а вместо chr(13) поставьте #.

Надеюсь я вам помог. Будут вопросы - пишите gmsvb@yandex.ru



Комментарии

отсутствуют

Добавление комментария


Ваше имя (на форуме):

Ваш пароль (на форуме):

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

Комментарий:





Главная     Программы     Статьи     Разное     Форум     Контакты