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

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

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

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

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


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

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

- что в директории X создался файл Y
- что в директории X произошли изменения

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

* Origin: 1134 (2:5045/44.13)


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

From: "A. Skrobov"

Hello, Sergei!
You wrote in conference fido7.ru.visual.basic to "All"
on Sun, 11 Apr 2004 08:39:29 +0000 (UTC):

SH> Подскажите как сохранить в реестре
SH> данные пользовательского типа сложной структуры (строки, числа,
SH> boolean). Hу и обратно прочитать в пользовательскую структуру.
SH> Я нашел как сохранить в реестре byte массив.
SH> Hо как пользовательский тип загнать в массив байтов и обратно?
Declare Sub CopyMemory Lib "kernel32" Alias "RtlMoveMemory" (Destination As
Any, Source As Any, ByVal Length As Long)


With best regards, A. Skrobov. E-mail: tyomitch [@] r66.ru



--
* Origin: Talk.Mail.Ru (2:5020/400)


Re: Вопросы

From: Alexander Asyabrik

Привет, StyleR.

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


S> Как получить список файлов с определенным расширением в опереленной папке?

Как обычно
dir("put_k_papke\*.rasshirenie")

S> Как проверить на наличие опеределенной попки?
^^^^^
Предполагаю, что это можно сделать на ощупь :-) Шютка.

dir("put_k_papke", vbDirectory)


S> Как получить список папок по опеределенной маске (например winххх, где ххх
S> любые символы)?

Все те же дела, но вместо xxx написать ???


--
С уважением, Alexander
12:33:29 AM



* Origin: Talk.Mail.Ru (2:5020/400)


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

Добpый день\утpо\вечеp\ночь, достопочтимый Dmitriy !

05 апpеля 04 Dmitriy Kozyrev (2:5023/11.148) => Dmitry Sergunin

DK> Property Get Fields(Index) As Variant
DK> Property Let Fields(Index, NewValue As Variant)

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


С бестами и pегаpдами
Dmitry ds [@] u-kon.ru
* Origin: Hичто не слишком! (2:5015/23.70)


Авторам карточных игр

From: "A. Skrobov"

Hi All,

Те, кто писали карточные игры через cards.dll, знают, что на Win9x установлена
16-битная версия библиотеки, функции которой невозможно вызывать напрямую
из-под VB6. Им приходилось либо задавать в качестве требования платформу
WinNT, либо распространять 32-битную cards.dll с собой (нарушение авторских
прав!), либо просить пользователя найти где-нибудь 32-битную библиотеку самому
и скопировать на свой компьютер. Собственно, я не видел ещё ни одной карточной
игры на VB6, которая могла бы работать с 16-битной cards.dll.

Я, когда у меня возникла такая нужда, написал крохотную (3Кб)
библиотеку-переходник, позволяющую работать с cards.dll _независимо_ от
платформы. Если в системе установлена 32-битная библиотека, переходник
вызывает её функции напрямую, если 16-битная - через механизм thunk-ов. Теперь
моя игра работает на всех версиях Windows, начиная с 95!

Если кому-нибудь такая библиотека нужна, пишите в мыло. Если таких окажется
много (в чём я сомневаюсь), я её куда-нибудь выложу.

* Origin: FidoNet Online (2:5020/175.2)


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: "Terekhin Alexandr"

Добрых дней и приятных ночей All !

Подскажите как привести вот такую строчку
%D0%A1%D1%82%D1%80%D0%BE%D0%BA%D0%B0
к человеческому виду.
__________________________________________________
До будущих All... Terekhin Alexandr. E-mail: didinst [@] rol.ru


* Origin: Алт (2:5020/400)


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

From: "Dmitry Viazowkin"

Hi!

> Есть исходники на ассемблеpе, позволяющие скpыть пpогу от любого таск
менеджеpа
> (не только Ctrl+Alt+Del), а вообще любого, под любую ОСь семейства Windows

Поймал, спасибо. Hее, я в ТАКОЕ - не играю. Это разве что для вирусописателей,
*нормальной* проге лазать по спискам процессов в структурах ядра ОС совершенно
ни к чему. Особенно ежели поглядеть на список побочных эффектов - BSODы и
проч...

--
With best regards
Dmitry Viazowkin


* Origin: Me? Organized??? (2:5020/400)



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




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