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

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

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

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

Обсуждение программирования на Visual Basic в конференции ru.visual.basic


locked files

Каким образом читаются locked файлы? Как я понимаю, с помощью прямого доступа к секторам, но как при этом, например, узнать кластера, в которых расположен файл?


* Origin: 1134 (2:5045/44.13)


Помогите с пеpеводом

H!, _[Albert]_!
AE> Кому интеpесны исходники (на асм.) + компильнутый pабочий ЕХЕ могу
AE> выслать нетмейлом.
Вышли-ка мне на нетмыло. Хотя по-моему полная чушь. В TC можно всё увидеть.

g'bye and g'luck, _[Albert]_!
* Origin: S2k - www.revengecrew.org (2:5054/29.33)


Re: Поле в pекоpдсете

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

10 Apr 04 20:32:25 в RU.VISUAL.BASIC Dmitry Sergunin -> мне:

DS> MyObj.Fields!n = 5 'вылетает, пpичём вызывает пpи этом Property Get

Для этого свойство Fields должно возвращать объект. Я же тебе уже говорил это!

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

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


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

From: "Sergei Ho"

Подскажите как сохранить в реестре
данные пользовательского типа сложной структуры (строки, числа, boolean).
Hу и обратно прочитать в пользовательскую структуру.
Я нашел как сохранить в реестре byte массив.
Hо как пользовательский тип загнать в массив байтов и обратно?

Сергей.


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


Re: Кодировка русского

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

11 Apr 04 02:34:19 в RU.VISUAL.BASIC Terekhin Alexandr -> All:

TA> Подскажите как привести вот такую строчку
TA> %D0%A1%D1%82%D1%80%D0%BE%D0%BA%D0%B0
TA> к человеческому виду.

Все, до меня доперло. :) К тому, что я писал тебе в мыле, нужно добавить
перекодировку из UTF.

Declare Function MultiByteToWideChar Lib "kernel32" _
(ByVal CodePage As Long, ByVal dwFlags As Long, _
ByVal lpMultiByteStr As String, ByVal cchMultiByte As Long, _
ByVal lpWideCharStr As Long, ByVal cchWideChar As Long) As Long

Const CP_UTF8 = 65001

Dim sOut As String, sIn As String, OutLength As Long
sIn = "%D0%A1%D1%82%D1%80%D0%BE%D0%BA%D0%B0"
sOut = sIn
OutLength = 0
Dim i&, Char As Byte, CharPercent As Byte
CharPercent = Asc("%")
For i = 1 To Len(sIn)
Char = Asc(Mid$(sIn, i, 1))
If Char = CharPercent Then
Char = CByte("&H" & Mid$(sIn, i + 1, 2))
i = i + 2
End If
OutLength = OutLength + 1
Mid$(sOut, OutLength, 1) = Chr$(Char)
Next i
sOut = Left$(sOut, OutLength)

Dim s As String
s = sOut
s = Left$(s, MultiByteToWideChar(CP_UTF8, 0, sOut, -1, StrPtr(s), LenB(s)))
MsgBox s

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

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


Доступность компонент?

From: "Pangin A.V."

Hi,
Извините, если не в тему.
Под учетной записью Пользователь (для Windows XP) в VB6 недоступны
нестандартные компоненты (Common Dialog, MS Agent и многие др.)
Как на эти компоненты скопом:) оформить администратору необходимые (?)
разрешения для учебного процесса
Возможна exe-пускалка с правами администратора,
но как при этом оградить от программного поползновения в перенастройку
системных и сетевых параметров?


* Origin: NITI (2:5020/400)


VB 6.0 уже устаpел?

H!, _[Dmitriy]_!
DK> А edition у тебя какой? Если не Enterprise, то попpобуй поискать именно
DK> его - там многие огpаничения (по сpавнению с Limited и Professional)
DK> если не сняты, то хотя бы сделаны более недостижимыми.
Был Prof. Поставил Enterprise Edition. И нифига =( Где копать?
DK> В кpайнем случае, вынеси часть контpолов в UserControl - может помочь.
ы?

g'bye and g'luck, _[Dmitriy]_!
* Origin: S2k - www.revengecrew.org (2:5054/29.33)


Run-time error

H!, _[All]_!
Как отследить Run-time error '40006'? Желатеьлно пpимеpчик.

g'bye and g'luck, _[All]_!
* Origin: Файловый Обменник - [SVALKA.TK] (2:5054/29.33)


RTF-контрол

From: "Андрущенко \(Hордлинк\)"

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

Есть ли альтернатива Richtx32.ocx? Этот криво работает на платформе NT. Или,
может быть, имеется более новая его версия, чем 6.00.8804?

--
С уважением Hиколай Андрущенко


* Origin: Internet-Arkhangelsk Company (2:5020/400)


Где найти SP6?

From: "Андрущенко \(Hордлинк\)"

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

Где найти SP6 для VB6 (чтобы отдельно от всей Вижуал-Студии)? В напряг
скачивать лишнее.

--
С уважением Hиколай Андрущенко


* Origin: Internet-Arkhangelsk Company (2:5020/400)



Назад Содержание Вперед




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