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

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

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

Visual Basic 6.0 - Существование каталога


Re: Существование каталога

From: Alexander Trishin <trialFORSPAM [@] trishin.com>


Vitaliy Pryahin wrote on Fri, 12 Dec 2003 22:42:55 +0300:

> Как с помощью API проверить существует ли каталог?


FindFirstFile/FindNextFile

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

Re: Существование каталога

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


Привет, Vitaliy.

Вы, было дело, писали 12 декабря 2003 г., 22:42:
VP> Как с помощью API проверить существует ли каталог?


GetFileAttributes

По идее должно возвратить FILE_ATTRIBUTE_DIRECTORY (кроме прочего)

--
С уважением, Alexander
1:27:57 AM
* Origin: Talk.Mail.Ru (2:5020/400)

Re: Гвалт! Помогите оживить справку!!

From: "Vitaly Tkachenko" <glory [@] net.zt.ua>


Привет, Sergey!
Чё-то там было к Vitaly Tkachenko Thu, 11 Dec 2003 03:25:14 +0000 (UTC):

SB>>> Так крестики в квадратиках - это разве не графика? Я поэтому и

SB>>> предположил.


VT>> По-моему, крестики появляются не только для не загруженных

VT>> картинок, а вааще для не загруженных объектов...


SB> Так все-таки, там текст, графика или объект? Подумай сам, как это -

SB> вся страница грузится, а какой-то особый текст из нее - нет?

SB> Посмотри, в конце концов, как это в HTML выглядит, что там за

SB> элемент в этом месте.


Пожалуйста: это объекты, формирующие текстовые ссылки. Вот вам пример из
описания метода OpenRecordset:
===
CLASSID="clsid:adb880a6-d8ff-11cf-9377-00aa003b7a11">

<PARAM NAME="Command" VALUE="ALink">

<PARAM NAME="Text" VALUE="Text:See Also">

<PARAM NAME="Flags" VALUE=",,1">

<PARAM NAME="Item1" VALUE="">

<PARAM NAME="Item2" VALUE="damthOpenRecordsetC">

</OBJECT>   

CLASSID="clsid:adb880a6-d8ff-11cf-9377-00aa003b7a11">

<PARAM NAME="Command" VALUE="ALink">

<PARAM NAME="Text" VALUE="Text:Example">

<PARAM NAME="Flags" VALUE=",,1">

<PARAM NAME="Item1" VALUE="">

<PARAM NAME="Item2" VALUE="damthOpenRecordsetX">

</OBJECT>   

CLASSID="clsid:adb880a6-d8ff-11cf-9377-00aa003b7a11">

<PARAM NAME="Command" VALUE="ALink">

<PARAM NAME="Text" VALUE="Text:Applies To">

<PARAM NAME="Flags" VALUE=",,1">

<PARAM NAME="Item1" VALUE="">

<PARAM NAME="Item2" VALUE="damthOpenRecordsetA">

</OBJECT>   

CLASSID="clsid:adb880a6-d8ff-11cf-9377-00aa003b7a11">

<PARAM NAME="Command" VALUE="ALink">

<PARAM NAME="Text" VALUE="Text:Specifics">

<PARAM NAME="Flags" VALUE=",,1">

<PARAM NAME="Item1" VALUE="">

<PARAM NAME="Item2" VALUE="damthOpenRecordsetS">

</OBJECT> </P>

===
Вместо всех этих ссылок - пустые квадраты.
Этим объектам даже передаётся параметр, определяющий, что должен быть за
текст:
<PARAM NAME="Text" VALUE="Text:Applies To">

Вместо объекта с этой ссылкой должена быть текстовая ссылка "Applies To",
т.е. к какому объекту метод принадлежит, которая должна былабы переносить на
описание этого объекта, но вместо неё, как и вместо остальных - пустой
квадрат с точкой в середине, я так понимаю, там не вместился крестик :()
Причём не везде так. Интересный момент, что в справке по VB для AccessXP
например для метода RunCommand объекта DoCmd всё нормально, аналогичные
ссылки работают. Вот их код:
===
<div class="ofvbanav">

onclick="toggleList()"> </span> <span class="ofvbanavreuse"

id="appliesto" onclick="toggleList()"> </span> <a class="ofvbanavex"

href="#example"><span class="ofvbanavreuse" id="example"> </span></a>

onclick="toggleList()"> </span> </div>

===
Вот их результирующий текст (в средней строке), которые в справке есть 4
ссылки "See Also", "Applies To", "Example", "Specifics":
===
RunCommand Method
See Also Applies To Example Specifics
The RunCommand method runs a built-in menu or toolbar command.

===

Правда, Specifics отсутствует на самом деле, т.к. его вроде и не должно быть
для RunCommand.
Здесь другой код, через другие объекты с другими зарегенными классами, типо
именно это не испортилось. А то, что общее для системы - то же, что и в MSDN
есть, вроде справки по DAO - куку :(((
Похоже, что объект класса clsid:adb880a6-d8ff-11cf-9377-00aa003b7a11 у меня
испарился :() Как его восстановить?? Hи переустановка оффиса, ни MSDN
April'2001 не помогает :(((


/ VirtualVAT /
мылона:virtualvat[\at/]ukr.net


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

Re: Гвалт! Помогите оживить справку!!

From: "Sergey Broudkov" <broudkov [@] PointLtd.com>


Hello, Vitaly!
You wrote to Sergey Broudkov on Fri, 12 Dec 2003 23:56:17 +0000 (UTC):

SB>> Так все-таки, там текст, графика или объект?


VT> Пожалуйста: это объекты, формирующие текстовые ссылки. Вот вам пример

VT> из описания метода OpenRecordset:

VT> ===

VT> <OBJECT ID="hhobj_1" TYPE="application/x-oleobject"

VT> CLASSID="clsid:adb880a6-d8ff-11cf-9377-00aa003b7a11">

VT> <PARAM NAME="Command" VALUE="ALink">

VT> <PARAM NAME="Text" VALUE="Text:See Also">

VT> <PARAM NAME="Flags" VALUE=",,1">

VT> <PARAM NAME="Item1" VALUE="">

VT> <PARAM NAME="Item2" VALUE="damthOpenRecordsetC">

VT> </OBJECT>


Во-о-т, теперь значительно более понятно стало :)

VT> Интересный момент, что в справке по VB для AccessXP например для метода

VT> RunCommand объекта DoCmd всё нормально, аналогичные ссылки работают.

VT> Вот их код:

VT> ===

VT> <span class="ofvbanavreuse" id="seealso"

VT> onclick="toggleList()"> </span>


VT> Здесь другой код, через другие объекты с другими зарегенными классами,


Hикаких тут объектов нет, скорее всего, ссылка скриптом формируется.

VT> Похоже, что объект класса clsid:adb880a6-d8ff-11cf-9377-00aa003b7a11 у

VT> меня испарился :()


Похоже на то :( Этот объект называется HHCtrl Object, сидит он в
X:\WINNT\System32\hhctrl.ocx.

VT> Как его восстановить??


Попробуй найти этот файл и зарегистрировать вручную, в командной строке
пишешь:

regsvr32 <путь>\hhctrl.ocx


VT> Hи переустановка оффиса, ни MSDN April'2001 не помогает :(((


Если файла почему-то нет, попробуй скопировать с другой системы, только чтоб
версия совпадала.

--
Regards,
Sergey Broudkov
sbpro [@] geocities.com
ICQ #4841919
Рожденный ползать играть не может

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

Re: Получить имя формы по маске

From: "Igor Evgrafov" <ievgrafo [@] jba.ru>


Hello, Vasenin!
You wrote to All on Fri, 12 Dec 2003 15:14:05 +0000 (UTC):

VM> Как можно перебрать имена открытых форм. Копал через

VM> System.Diagnostics. Process(Имя), но ничего не получилось


Создавай список открытых форм сам, ручками.

HOW TO: Create a Forms Collection in Visual Basic .NET (Q308537)
ms-help://MS.MSDNQTR.2003FEB.1033/enu_kbvbnetkb/en-us/vbnetkb/Q308537.htm

- ---
With best regards, Igor Evgrafov.


* Origin: Cronyx Plus ISP (2:5020/400)

Re: Событие Minimize для формы

From: "Igor Evgrafov" <ievgrafo [@] jba.ru>


Hello, Vasenin!
You wrote to All on Fri, 12 Dec 2003 15:03:24 +0000 (UTC):

VM> Как поймать изменение состояния WindowsForm.State в VB.NET.


Hет такого свойства у System.Windows.Forms.Form (если ты конечно о этом
классе)
Есть свойство WindowState тебе его смену надо поймать? Тогда Resize поможет.

- ---
With best regards, Igor Evgrafov.


* Origin: Cronyx Plus ISP (2:5020/400)

Re: Событие Minimize для формы

Здоровья тебе, #/Vasenin/#.
XC: #RU.VISUAL.BASIC, #CC.MY.ECHOMAIL

12 Дек 03, в 18:03, *Vasenin Michael* писал я к _All_:

VM> Как поймать изменение состояния WindowsForm.State в VB.NET.


VM> Просмотрел все события для Form.Class, ничего подходящего не нашел


Попробуй по аналогии с VB6 проверку сделать в OnResize.

PS: Это нетестированная догадка, хотя она рабочая с большой вероятностью.
Удачи, #*/Дмитрий/*#.
[SPBGPU 3083/1]
* Origin: It's all gone. What is left behind on the desert we (2:5030/1450.6)

Как переместить существующую ноду TreeView в новое место?

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


Hi All,

сабж

* Origin: FidoNet Online - http://www.fido-online.com (2:5020/175.2)

Re: Гвалт! Помогите оживить справку!!

From: "Vitaly Tkachenko" <glory [@] net.zt.ua>


Привет, Sergey!
Чё-то там было к Vitaly Tkachenko Sat, 13 Dec 2003 02:11:25 +0000 (UTC):

VT>> Пожалуйста: это объекты, формирующие текстовые ссылки. Вот вам

VT>> пример из описания метода OpenRecordset:

VT>> ===

VT>> <OBJECT ID="hhobj_1" TYPE="application/x-oleobject"

VT>> CLASSID="clsid:adb880a6-d8ff-11cf-9377-00aa003b7a11">

VT>> <PARAM NAME="Command" VALUE="ALink">

VT>> <PARAM NAME="Text" VALUE="Text:See Also">

VT>> <PARAM NAME="Flags" VALUE=",,1">

VT>> <PARAM NAME="Item1" VALUE="">

VT>> <PARAM NAME="Item2" VALUE="damthOpenRecordsetC">

VT>> </OBJECT>


[Sorry, skipped]


VT>> Похоже, что объект класса

VT>> clsid:adb880a6-d8ff-11cf-9377-00aa003b7a11 у меня испарился :()


SB> Похоже на то :( Этот объект называется HHCtrl Object, сидит он в

SB> X:\WINNT\System32\hhctrl.ocx.


VT>> Как его восстановить??


SB> Попробуй найти этот файл и зарегистрировать вручную, в командной

SB> строке пишешь:


SB> regsvr32 <путь>\hhctrl.ocx


Ан есть у меня такой файл и зарегистрирован вроде как, сравнивал с другой
тачкой. Hо вот только он у меня версии 5.2.3664.0, в то время, как на тачке
с WinXP SP1 с OfficeXP он имеет версию 4.74.9273.0. По-видемому, я таки был
прав, что виноват VS.NET, наверное, это он его обновил вместе с остальными
компонентами, да бэтоватый попался (он у меня не 2003, а старее какой-то)...
Может, какие обновления к нему помогут? Откуда взять? А то на микрософте
как-то не понятно, какой он у меня версии точно... Там сейчас 2003
отслеживается только вроде... Или я не прав?

VT>> Hи переустановка оффиса, ни MSDN April'2001 не помогает :(((


SB> Если файла почему-то нет, попробуй скопировать с другой системы,

SB> только чтоб версия совпадала.


Уже пробовал вручную заменить на старую версию 4.74.9273.0 (предварительно
удалив также и в длл-кэше), заменился точно, не помогло. В т.ч. и после
перезагрузки :(
Может ещё и перерегистрировать попробовать? Хотя регистрация вроде
идентичная... А если я перерегистрирую старый компонент, и он не пойдёт,
перерегистрация нового наверх опять по-крайней мере всё на текущие места
вернёт? Там нет ещё каких подводных камней?


/ VirtualVAT /
мылона:virtualvat[\at/]ukr.net

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

Re: Гвалт! Помогите оживить справку!!

From: "Sergey Broudkov" <broudkov [@] PointLtd.com>


Hello, Vitaly!
You wrote to Sergey Broudkov on Sun, 14 Dec 2003 04:21:21 +0000 (UTC):

VT> Может ещё и перерегистрировать попробовать? Хотя регистрация вроде

VT> идентичная...


А это откуда известно, что регистрация идентичная?

VT> А если я перерегистрирую старый компонент, и он не пойдёт,

VT> перерегистрация нового наверх опять по-крайней мере всё на текущие

VT> места вернёт? Там нет ещё каких подводных камней?


Всегда лучше сначала разрегистрировать старый (с ключом /u), заменить и
зарегистрировать новый.

--
Regards,
Sergey Broudkov
sbpro [@] geocities.com
ICQ #4841919
Рожденный ползать играть не может

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