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

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

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

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


Re: Как обнаружить процесс

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

02 Dec 04 15:01:54 в RU.VISUAL.BASIC Terekhin Alexandr -> Aleksey Kochkin:

TA> ' А вот так вообще ошибка ;(
TA> 'lngEnum = EnumWindows(AddressOf Callback1_EnumWindows, 0)

Hет, это правильная строка. Как тебе уже сказали, нужно вынести
callback-функцию за пределы модуля формы в обычный модуль.

А глюк у тебя, думаю, из-за того, что первый параметр функции EnumWindows
объявлен ByRef. Видел я несколько раз такие вредные декларации, возможно, у
тебя такая же.

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

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


Re: Прозрачный контейнер

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

02 Dec 04 00:12:04 в RU.VISUAL.BASIC Sergey Broudkov -> мне:

SB> Hо осталась одна проблема. Чтобы получиить битмап, надо сначала нарисовать
SB> контрол в исходном виде, где фон залит цветом маски. Только потом можно
SB> взять этот битмап, сделать регион и применить. В результате в лучшем
SB> случае получается мигание, когда виден фоновый цвет, а в худшем -
SB> неправильная перерисовка, когда либо то, что нужно, вырезается, либо
SB> наоборот, не вырезается то, что не нужно. Проблема бы решалась выводом
SB> контрола в какой-нибудь посторонний DC, не на экран, но, к сожалению,
SB> VB-шные окна не обрабатывают WM_PRINT или WM_PRINTCLIENT :(

А стандартные окна Windows (EDIT, STATIC, BUTTON) поддерживают это сообщение?

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

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


Re: автообновляемый рекордсет

From: "Gribkov M.N."


> Set con = New ADODB.Connection
> pat = "Provider=Microsoft.Jet.OLEDB.4.0;Persist Security
> Info=False;Data Source=base.mdb"
> con.ConnectionString = pat
> con.Open
> Set acv = New ADODB.Recordset
> acv.ActiveConnection = con
> acv.Properties("IRowsetIdentity") = True
> acv.Open "select * from account", , adOpenKeyset, adLockOptimistic
> Set DataGrid1.DataSource = acv
> Меняем руками в базе - видим результат в гриде.

Чудеса!!! И правда работает. И где вы раньше-то были. Я эти вопросы по
всем конференциям отправлял. Hи одного путного ответа!!!
Тем более, что связался с AdoDc, ох и гадость, просто слов нет...

Увы, но это работает только в связке с Майкросовтовским гридом, в связке с
TrueDbGrid, автоматически не обновляется. Сам грид приходится рефрешить
вручную.
Hо все равно, ситуация сильно упрощается, неожиданно так...

Спасибо!!!

Удачи, Макс


* Origin: CenterTelecom Voronezh ISP (2:5020/400)


Как обнаружить процесс

TA>> Попробовал сделать через GetWindowText, но ничего хорошего у меня
TA>> не получилось... Всё упёрлось в добывание hwnd окон. Сделал с
TA>> EnumWindows обратным вызовом, и жестоко обламался. VB ругается на
TA>> AddressOf а без него безмолвно погибает успев добавить в
TA>> листбокс всего один элемент - свойство caption формы.
SB> Сдается мне, у тебя VB5. Там ИМХО AddressOf еще не придумали. Или,
SB> судя по твоему коду, callback-функция у тебя в коде той же формы, из
SB> которой ты ее вызываешь, а должна быть в отдельном модуле (именно
SB> модуле, *.bas)
#%$ [@] %!!! Каждому, кто мнит себя экспертом - на досуге считать различия между VB5 и VB6, уже их всех по сто раз пережевывали. Есть в VB5 AddressOf


* Origin: 1134.moveax.ru (2:5045/44.13)


Поиск

AE>>> 4) Функцию InStr не пpедлагать! (Hету ее в 5-м VB). 5) 6-й ВБ
AE>>> тоже не пpедлагать ;)
RY>> Функция INSTR есть в VB5 и в любом MS-BASIC, начиная с QBasic и
RY>> QuickBasic. Регистр в VB5 задается последним флагом.
AS> Функция INSTR есть в любом бейсике вообще, не ограничиваясь только
AS> продуктами MS, и афаик даже в ANSI-бейсике. В частности, она есть в
AS> basica, gwbasic, и VB начиная с версии 1.0 И в чью только шальную
AS> голову могла закрастся мысль об её отсутствии? :-/
В basic для ZX-Spectrum нету. В Basic для Радио-86РК - нету.

;)


* Origin: 1134.moveax.ru (2:5045/44.13)


Поиск

Hello Albert.

01 Dec 04 18:46, you wrote to all:

AE> Кодеpы, подскажите какой-нить пp0двинутый алгоpитм поиска гpуппы
AE> символов (стpоки) в дpугой стpоке. Т.е. у меня есть текст "Съешь еше
AE> этих твеpдых невкусных булочек", нужно узнать есть ли в этом
AE> тексте слово "еще" или нет. Задачи: 1) В случае успеха должно
AE> возвpащать True 2) Ели такой стpоки нет, соответственно False 3)
AE> Должно быть _HЕ_ чувствительно к pегистpу символов в тексте и искомой

AE> стpоке.
AE> 4) Функцию InStr не пpедлагать! (Hету ее в 5-м VB).

а функция Mid там есть? если есть, то в чем проблема?

или можешь извратнуться - импортировать функцию strstr из CRTDLL :)

Vladimir

* Origin: (2:5020/829.610)


Поиск

Hello Max.

02 Dec 04 18:18, you wrote to Albert Einstein:

AE>> стpоке.
AE>> 4) Функцию InStr не пpедлагать! (Hету ее в 5-м VB).
AE>> 5) 6-й ВБ тоже не пpедлагать ;)

AE>> Буду благодаpен за помощь.
MI> Регулярные выражения?

а где они там в vb?

Vladimir

* Origin: (2:5020/829.610)


Re: Поиск

Hello, Vladimir!
You wrote to "Max Irgiznov" to
Max Irgiznov on 03 Dec 04 20:06:04:

MI>> Регулярные выражения?
VK> а где они там в vb?
В vbscript.dll (надо подключить в референсах)
* Origin: My poor mouth can't say that. No Sir. (2:5080/1003.16)


Re: Поиск

Hello, Vladimir!
You wrote to "Albert Einstein" Einstein [@] p204.f8.n4624.z2.fidonet.org>to Albert Einstein on 03 Dec 04
20:06:22:

VK> или можешь извратнуться - импортировать функцию strstr из CRTDLL :)
Едва ли выйдет - она cdecl
* Origin: And when I need help, then I let him come out. (2:5080/1003.16)


Re: Прозрачный контейнер

Hello, Dmitriy!
You wrote to to Sergey Broudkov on 03 Dec 04 10:18:50:

SB>> но, к сожалению, VB-шные окна не обрабатывают WM_PRINT или
SB>> WM_PRINTCLIENT :(
DK> А стандартные окна Windows (EDIT, STATIC, BUTTON) поддерживают это
DK> сообщение?
Имхо всё, что принтскринится - его обрабатывает... С трудом верится, что
стандартные контролы VB - нет. Сергей, хорошо проверял? :-)
Hа самом деле, а что мешает создать свой DC и рисовать в нём? А ту же
процедуру отрисовки себя в произвольном DC вызывать из UserControl_Paint.
Единственное ограничение - что рисовать всё придётся через АПИ - в этом
случае вряд ли существенно, так?
* Origin: Luke Luck likes lakes. Luke's duck likes lakes. (2:5080/1003.16)



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