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

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

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

Visual Basic 6.0 - Пользовательский тип сохранить в реестре


Re: Пользовательский тип сохранить в реестре

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


Привет, A.Skrobov.

Вы, было дело, писали 11 апреля 2004 г., 19:38:

AS> Hичуть LSet не безопаснее CopyMemory.


Hе считая, конечно полного отсутствия вызовов API для копирования
Я это имел ввиду. Для многих CopyMemory - весьма неприятная вещь...

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

Re: Пользовательский тип сохранить в реестре

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


Привет, Master.

Вы, было дело, писали 11 апреля 2004 г., 16:30:


SH>> Hо как пользовательский тип загнать в массив байтов и обратно?


DK> CopyMemory. Hо строки придется обрабатывать отдельно.


А чем не подходит мой вариант с Lset (естественно, со строками
фиксированной длины)?


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

Re: Пользовательский тип сохранить в реестре

From: "A. Skrobov" <tyomitch [@] r66.ru>


Hello, Alexander!
You wrote in conference fido7.ru.visual.basic to "A.Skrobov"
<fido7.ru.visual.basic [@] talk.ru>to A. Skrobov on Sun, 11 Apr 2004

19:40:03 +0000 (UTC):

AS>> Hичуть LSet не безопаснее CopyMemory.

AA> Hе считая, конечно полного отсутствия вызовов API для копирования

AA> Я это имел ввиду. Для многих CopyMemory - весьма неприятная вещь...

Дело вкуса. Операции выполняются в точности те же. Отсутствие Declare -
единственная разница.


With best regards, A. Skrobov. E-mail: tyomitch [@] r66.ru
--
* Origin: Talk.Mail.Ru (2:5020/400)

если кто не знает вышел 6й сервиспак на MS VS

Hello All!

02 Apr 04 19:58, Genrih Rudenok wrote to All:

GR> Service Pack 6 for Visual Basic 6.0, Visual C++ 6.0 with Visual Source

GR> Safe 6.0d provides the latest updates to these products. It is

GR> recommended for all users of Visual Basic 6.0, Visual C++ 6.0 and

GR> Visual Source Safe 6.0.

[покусано]

Гм... Интересный такой sp. Стоит у меня из vs98 vb6 только (sp5), ну и куча из net2003... Так этот sp6 убил напрочь dao350.dll - vb6 просто не запускался, пришлось с диска копировать (новее нигде не нашел у себя) - v3.51.1608.0. Это так и должно быть? :) И надо ли новее dao350.dll (в какой-нибудь mdac_typ он может входит, в моих версиях нет?).

P.S. Или все же файл убился при uninstall-е софта от nokia... :)

Bye! Max Egorov

* Origin: Please believe me, the river told me... (2:5030/846.26)

заполнить и отсортировать ComboBox

From: "SK" <s___k [@] mail.ru>


Здравствуй, All!

Hадо заполнить и отсортировать 15 ComboBox. Какой самый быстрый способ для
этого?

Канкава Шалва. E-mail: s___k [@] mail.ru


* Origin: Demos online service (2:5020/400)

Re: проверка на создание файла

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

12 Apr 04 02:28:10 в RU.VISUAL.BASIC Roman Yuakovlev -> All:


RY> Каким образом наиболее быстро и надежно осуществить

RY> - что в директории X создался файл Y

RY> - что в директории X произошли изменения

RY> за исключением прогона dir$ по таймеру?


FindFirstChangeNotification

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

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

ms inet

Есть MS internet transfer control 5.0

Для исполнения .getheader сначала нужно исполнить .openurl

Каким образом с .openurl скачать только несколько байт, чтобы получить только headers?


ps. Интересуют и другие решения.

* Origin: 1134 (2:5045/44.13)

Re: Пользовательский тип сохранить в реестре

From: "A. Skrobov" <tyomitch [@] r66.ru>


Hello, Alexander!
You wrote in conference fido7.ru.visual.basic to "Sergei Ho"
<fido7.ru.visual.basic [@] talk.ru>to Sergei Ho on Sun, 11 Apr 2004

15:46:52 +0000 (UTC):

SH>> Подскажите как сохранить в реестре

SH>> данные пользовательского типа сложной структуры (строки, числа,

SH>> boolean). Hу и обратно прочитать в пользовательскую структуру. Я нашел

SH>> как сохранить в реестре byte массив. Hо как пользовательский тип

SH>> загнать в массив байтов и обратно?

AA> Кроме CopyMemory есть

AA> 1) более безопасный путь

[Sorry, skipped]
AA> LSet bd = yd

[Sorry, skipped]
AA> LSet yd2 = bd

Hичуть LSet не безопаснее CopyMemory.

AA> 2) менее безопасный путь

AA> lpData в RegSetValueEx и RegQueryValueEx объявить как ByRef lpData As

Any
AA> и передавать в них уже непосредственно саму переменную yd

Об этом, действительно, забыл ;-(


With best regards, A. Skrobov. E-mail: tyomitch [@] r66.ru
--
* Origin: Talk.Mail.Ru (2:5020/400)

Re: Пользовательский тип сохранить в реестре

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

11 Apr 04 12:39:29 в RU.VISUAL.BASIC Sergei Ho -> All:


SH> Hо как пользовательский тип загнать в массив байтов и обратно?


CopyMemory. Hо строки придется обрабатывать отдельно.

Вообще, структуру нативными средствами эхотага можно сохранить только в файле.

И еще: посмотри на сайте Edanmo (http://www.mvps.org/emorcillo/) библиотеку
для работы с Storage.

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

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

Re: Пользовательский тип сохранить в реестре

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


Привет, Sergei.

Вы, было дело, писали 11 апреля 2004 г., 11:39:

SH> Подскажите как сохранить в реестре

SH> данные пользовательского типа сложной структуры (строки, числа, boolean).

SH> Hу и обратно прочитать в пользовательскую структуру.

SH> Я нашел как сохранить в реестре byte массив.

SH> Hо как пользовательский тип загнать в массив байтов и обратно?


Кроме CopyMemory есть

1) более безопасный путь

Private Type YourData
s As String * 100 ' Fixedlength!
b As Boolean
l As Long
'etc
End Type

Private Type ByteData
' Вместо 106 ставишь реальный размер YourData
bytearray(106 - 1) As Byte
End Type

Private Sub Command1_Click()
Dim yd As YourData, bd As ByteData
Dim yd2 As YourData

yd.s = "Проверка передачи прошла успешно!"
LSet bd = yd
' в реестровую функцию RegSetValueEx передаем bd.bytearray(0)
' если lpData обявлена As Byte
' точно также и забираем в RegQueryValueEx
' Hо это все я опускаю, это ты уже имеешь.
LSet yd2 = bd
MsgBox yd2.s
End Sub

2) менее безопасный путь
lpData в RegSetValueEx и RegQueryValueEx объявить как ByRef lpData As Any

и передавать в них уже непосредственно саму переменную yd
--
С уважением, Alexander
5:35:58 PM
* Origin: Talk.Mail.Ru (2:5020/400)