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

для защиты Windows приложений

и восстановления исходного кода

Visual Basic 6.0 - Закодировать текстовый файл


Re: Закодировать текстовый файл

From: Alexander Asyabrik <belmis [@] mail.belpak.by>


Привет, A.Skrobov.

Вы, было дело, писали 15 мая 2004 г., 13:12:

AS> Любопытная фишка. А конкатенировать байтовые массивы тоже так запросто можно?

Только если предварительно поместить их в Variant

Dim a() As Byte, b() As Byte, c, d
a = "Объединение ":b = "2-x массивов"
c = a:d = b
a = c & d
MsgBox a

Конечно это изврат, но как демонстрация...


AS> Или, ммм... заменить все подстроки вида ?было? на ?стало?, где ? -

AS> произвольный символ? (цель та, чтобы не нашлось стандартной функции, и

AS> заменять пришлось руками)


Я, извини, не понял в чем тут проявляется разница в работе со строками
и массивами. Мы же вроде об этом гутарили? А тут вроде явная задача
для регулярных выражений.

AS> Безусловно, есть и у строк преимущества. Вон, в делфи есть и length-prefixed,

AS> и zero-terminated строки, потому что у обоих типов есть свои преимущества и

AS> недостатки. И никто, казалось бы, не кричит, что одни из них всегда круче

AS> других, и другие надо выбросить, а те оставить.


Очень было бы неплохо иметь и в VB zero-terminated ANSI строки, но
ведь нету же. Поэтому в тех случаях, когда такие все-таки нужны,
байтовые массивы очень неплохая им альтернатива и я не единственный,
кто ими пользуется очень активно (например для работы с API, бинарными
файлами или для простого создания буферов в памяти, без использования
"глобальных" функций, и тд). И уж точно не я тот человек, который
кричит, что строки в VB лишние. Меня опять тут с кем-то перепутали :-(

BTW Мы не слишком отклонились от Subj?


--
С уважением, Alexander
5:28:33 PM
* Origin: Talk.Mail.Ru (2:5020/400)

Re: VB & ASM

Мы где-то виделись, Zhmurov?

16 Apr 04 19:11:49 в RU.VISUAL.BASIC Zhmurov Kirill -> All:


ZK> Интересно можно ли в проект на ВБ вставить процедуру на АСМ?


Лучше напиши библиотечку на масме.

Всего хорошего!
Дмитрий Козырев aka Master

* Origin: Дорогу осилит идущий. (2:5023/11.148)

Re: TreeView

Мы где-то виделись, Andrey?

17 Apr 04 18:01:44 в RU.VISUAL.BASIC Andrey Kovalev -> All:


AK> Поcоветyйте вьюхy, в котоpой не было бы этих недоcтатков или может можно

AK> иcходники где наpыть?


VSFlexGrid7?

Всего хорошего!
Дмитрий Козырев aka Master

* Origin: Дорогу осилит идущий. (2:5023/11.148)

Re: TreeView

Мы где-то виделись, Alex?

19 Apr 04 18:16:40 в RU.VISUAL.BASIC Alex Mazaev -> Alexei Gunyakov:


AG>> Хотелось бы привязать popup menu по нажатии правой кнопки мыши на

AG>> узле дерева-- сабж(стандартный ActiveX от Микрософт). Как это сделать?

AG>> Если есть похожий ActiveX сторонних производителей, то как это сделать в

AG>> них? Заранее спасибо.

AM> Private Sub tv_MouseDown(Button As Integer, Shift As Integer, x As Single,

AM> Y As Single) If Button = vbRightButton Then

AM> If tv.SelectedItem.Key = "A" Then


Лучше HitTest.

Всего хорошего!
Дмитрий Козырев aka Master

* Origin: Дорогу осилит идущий. (2:5023/11.148)

Re: Фокус

Мы где-то виделись, Danil?

19 Apr 04 20:12:57 в RU.VISUAL.BASIC Danil Belyaev -> All:


DB> Как все же получить hWnd окна с фокусом, будь то текстовое поле или целое

DB> окно?


Что-нибудь типа GetFocus... х.з.

Всего хорошего!
Дмитрий Козырев aka Master

* Origin: Дорогу осилит идущий. (2:5023/11.148)

Re: сpочно нужен контpол!

Мы где-то виделись, Vladimir?

20 Apr 04 00:26:08 в RU.VISUAL.BASIC Vladimir Korinenko -> All:


VK> Hужен контpол, чтоб пpоигpывал анимиpованые гифы. Есть такие? Где дают?


См. на www.vbrussian.com.

А Яндекс тебе даст ссылки и на другие аналогичные контролы, благо, их много.
:)

Всего хорошего!
Дмитрий Козырев aka Master

* Origin: Дорогу осилит идущий. (2:5023/11.148)

Re: Скpыть

Мы где-то виделись, Alexander?

21 Apr 04 16:38:10 в RU.VISUAL.BASIC Alexander Abramencov -> All:


AA> Есть exe-файл сделанный в VB. Как сделать, чтобы exe-файл не был виден в

AA> пpоцессах по нажатию Ctrl+Alt+Del?


Звезду героя хочешь? За непрочтение оффтопик-листа.

Всего хорошего!
Дмитрий Козырев aka Master

* Origin: Дорогу осилит идущий. (2:5023/11.148)

Re: Реестp

Мы где-то виделись, Alexander?

21 Apr 04 16:41:09 в RU.VISUAL.BASIC Alexander Abramencov -> All:


AA> Как записать/пpочесть стpоковой паpаметp из сабжа?


Дык елы-палы. :) У каждого программиста среди "кирпичиков" обязательно
валяется в том числе и сабжевый модуль. Если у тебя нет - попробуй написать
сам или возьми готовый, например, мой:
http://mastershome.net.ru/vbfaq/d22.htm

Всего хорошего!
Дмитрий Козырев aka Master

* Origin: Дорогу осилит идущий. (2:5023/11.148)

Re: Выкл. компа из FAQ

Мы где-то виделись, Alexander?

21 Apr 04 21:45:34 в RU.VISUAL.BASIC Alexander Abramencov -> All:


AA> Почитал VB FAQ. Хотел попpобывать выключить комп, один фиг ничего не

AA> выходит. ОС Win98.

AA> Вызываю так:

AA> Call ExitWindowsEx(EWX_SHUTDOWN or EWX_FORCE, &HFFFFFFFF)

^^^^^^^^^^
Рекомендую выставить в 0. К сожалению, последних хидеров из Platform SDK у
меня нет, не могу посмотреть, какому reason соответствуют значения -1 и 0.

AA> Пpосто завеpшает сеанс и всё.


Посмотри вот этот пример:
http://mastershome.net.ru/vbfaq/d15.htm

Всего хорошего!
Дмитрий Козырев aka Master

* Origin: Дорогу осилит идущий. (2:5023/11.148)

Re: CodePage autodetect

Мы где-то виделись, Сулейманов?

23 Apr 04 08:26:22 в RU.VISUAL.BASIC Сулейманов Тимур -> All:


СТ> Подскажите пожалуйста, где бы раздобыть алгоритм,

СТ> позволяющий определить кодировку символов в произвольном тексте:

СТ> DOS 866 или WIN 1251?


По относительной частоте символов ,->


Всего хорошего!
Дмитрий Козырев aka Master

* Origin: Дорогу осилит идущий. (2:5023/11.148)