Visual Basic 6.0 - O ActiveX DLL
Re: O ActiveX DLL
Hello, Sergei!
You wrote to "A Skrobov" <A Skrobov [@] p16.f1003.n5080.z2.fidonet.org>to A
Skrobov on 15 Aug 04 12:30:46:
??>> Имхо в принципе путь неправильный - Сергею нужно защитьу от
??>> многократного использования, а ты предлагаешь по сути защиту от
??>> HСК. Hе говоря уже о том, что имя компьютера может и поменяться.
SH> Hет мне нужно именно блокировать использование DLL с другого компа.
SH> Я не понял, если GetDriveType возвращает DRIVE_REMOTE (= 4),
SH> то можно быть уверенным, что диск физичекси с другого компа?
Hет, я только что проверил на всякий случай. Создал на своей машине шару и
подключил как диск. GetDriveType вернуло, что диск сетевой.
* Origin: And our fish shook with fear. (2:5080/1003.16)
Re: Obfuscate для VBA Word
Hello, Sergei!
You wrote to <All>to All on 15 Aug 04 14:34:22:
SH> Кто-нибудь может посоветовать Obfuscate для VBA кода в Word?
Tools -> Project Properties -> Protection не подходит?
* Origin: The fat one has a yellow hat. (2:5080/1003.16)
ITypeInfo, ITypeLib
Hello!
Я тут в свободное время разобрался с сабжевыми интерфейсами на предмет
использования из эхотажных прог.
Они позволяют в рантайме получать информацию о любом объекте, поддерживающем
IDispatch - названия методов и свойств, списки параметров с именами, типами,
значениями по уполчанию и т.п.
Ещё они позволяют парсить TLB-шки, подобно тому, как это делает Object
Browser.
Подобная информация может быть получена и с помощью tlbinf32.dll, но тот
является частью Студии и запрещён к распространению. У меня же получается
zero dependency вариант: никакие дополнительные библиотеки за собой тащить
не надо.
Пример лежит на http://bbs.vbstreets.ru/download.php?id=1041
Кому-нибудь всё это интересно? Есть ли смысл доводить куски рабочего кода до
уровня реюзабельных компонентов? Или я только зря потерял время? :-)
* Origin: We looked! And we saw him! The Cat in the Hat! (2:5080/1003.16)
[VB.NET] ToolTip для DropDownList
From: "I.Pankov" <pankov [@] ensb.pssr.ru>
Добрый день!
Пролема в том, что текст не влазит в DropDownList. Хочу, чтобы в этом
случае, при наведении на элемент, текст целиком высвечивался в всплывающей
подсказке. Hо у item'ов DropDownList'а нет свойства ToolTip. Как тогда можно
такое реализовать?
Спасибо за будущую помощь.
Ivan.
PS Web-приложение, если это важно.
* Origin: A poorly-installed InterNetNews site (2:5020/400)
Re: горячие клавиши меню
From: Victor Kagramanyants <kagr [@] narzan.com>
On Thu, 12 Aug 2004 16:04:25 +0000 (UTC), Terekhin Alexandr wrote:
DF> Подскажите пожалуйста, как на пункт меню повесить тройную "горячую
DF> клавишу", например, Ctrl+Shift+Z ?
TA> Мне всегда было интересно попробовать, только руки не доходили ...
TA> Может это поможет:
TA>
TA> Function RegisterHotKey Lib "user32" Alias "RegisterHotKey" (ByVal hwnd As
TA> Long, ByVal id As Long, ByVal fsModifiers As Long, ByVal vk As Long) As Long
TA> Function UnregisterHotKey Lib "user32" Alias "UnregisterHotKey" (ByVal hwnd
TA> As Long, ByVal id As Long) As Long
Вы шо, люди не психуйте! :) Человеку надо Accelerator, а вы ему Hotkey.
Hotkey - это чтоб и при неавктивном приложении срабатывало. Оно ему надо?
Vic
* Origin: Demos online service (2:5020/400)
Re: O ActiveX DLL
Hello, Sergei!
You wrote to "A Skrobov" <A Skrobov [@] p16.f1003.n5080.z2.fidonet.org>to A
Skrobov on 13 Aug 04 07:27:49:
??>> Так тебе надо ограничить использование DLL-ки разными клиентами, или
??>> создание объектов - одним?
??>> Если второе, посмотри свойство Class.Instancing
SH> Мне надо ограничить число клиентов. Тот, кто первый ее захватил,
SH> тот и юзает ее без ограничений, а остальные гуляют.
Hу тогда с мутексами самое правильное. Только я так и не понимаю, как ты
будешь "обламывать" остальных клиентов. Разве что сделать класс
PublicNotCreatable и в отдельном глобальном классе сделать
функцию-создавалку.
* Origin: And then he was gone with a tip of his hat. (2:5080/1003.16)
Re: O ActiveX DLL
From: "Sergei Ho" <calendarman [@] mtu-net.ru>
"A Skrobov" <A.Skrobov [@] p16.f1003.n5080.z2.fidonet.org> wrote in message news:3987741768 [@] p16.f1003.n5080.z2.ftn...
> Hello, Sergei!
> You wrote to "A Skrobov" <A Skrobov [@] p16.f1003.n5080.z2.fidonet.org>to A
> Skrobov on 13 Aug 04 07:27:49:
>
> ??>> Так тебе надо ограничить использование DLL-ки разными клиентами, или
> ??>> создание объектов - одним?
> ??>> Если второе, посмотри свойство Class.Instancing
> SH> Мне надо ограничить число клиентов. Тот, кто первый ее захватил,
> SH> тот и юзает ее без ограничений, а остальные гуляют.
> Hу тогда с мутексами самое правильное. Только я так и не понимаю, как ты
> будешь "обламывать" остальных клиентов. Разве что сделать класс
> PublicNotCreatable и в отдельном глобальном классе сделать
> функцию-создавалку.
Можно хранить полный путь к клиенту в глобальной String в DLL?
Или вывешивать мьютекс последняя часть которого содержит этот путь.
Где-то у меня был пример, как из DLL получить инф. о клиенте.
Сергей.
* Origin: Demos online service (2:5020/400)
Win CGI
Я приветствую тебя All!
Подскажите пожалуйста как написать скрипт на VB чтобы он обрабатывался сервером и выдавал ответы пользователю через web интерфейс.
активикс не катит.
С глубочайшим уважением Sergey
* Origin: Latona (FidoNet 2:4651/18.50)
Re: горячие клавиши меню
From: "Denis Fedorez" <dan [@] intech.ru>
> 1) Дописать в заголовок меню: mnuItem.Caption = mnuItem.Caption & vbTab &
> "Ctrl+Shift+Z"
> 2) Ловить руками, в событии _KeyDown формы.
Спасибо, сделал именно так. Ловить оказалось несложно :-)
* Origin: Demos online service (2:5020/400)
Re: горячие клавиши меню
From: "Terekhin Alexandr" <didinst [@] rol.ru>
Доброго времени суток, Victor!
Fri, 13 Aug 2004 10:26:03 +0000 (UTC) Вы писали to Terekhin Alexandr:
DF>> Подскажите пожалуйста, как на пункт меню повесить тройную "горячую
DF>> клавишу", например, Ctrl+Shift+Z ?
TA>> Мне всегда было интересно попробовать, только руки не доходили ...
TA>> Может это поможет:
TA>> Function RegisterHotKey Lib "user32" Alias "RegisterHotKey" (ByVal
TA>> hwnd As
TA>> Long, ByVal id As Long, ByVal fsModifiers As Long, ByVal vk As
TA>> Long) As Long
TA>> Function UnregisterHotKey Lib "user32" Alias "UnregisterHotKey"
TA>> (ByVal hwnd
TA>> As Long, ByVal id As Long) As Long
VK> Вы шо, люди не психуйте! :) Человеку надо Accelerator, а вы ему
VK> Hotkey.
VK> Hotkey - это чтоб и при неавктивном приложении срабатывало. Оно ему
VK> надо?
Это у меня типа аллергии на Ctrl+Shift+..... ;)
Я-ж, писал, что давно хотел попробовать, да и только ;)
Между прочим пример работы с Hotkey здесь
http://www.vbnet.ru/forum/show.aspx/?id=3261
Там, как как я понимаю в Form_Unload
не хватает только
If UnregisterHotKey(Me.hWnd, &HBFFF&) <> 1 Then MsgBox "Криво завершаюсь $)"
--
____________________________________________________
Истина где-то рядом, Terekhin Alexandr. E-mail: didinst [@] rol.ru
* Origin: Алт (2:5020/400)