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

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

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

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


Re: WINPOPUP

YZ> Я тут пытаюсь сделать subj под win'95'98, только чтоб выглядел он как
YZ> в NT 2000 или XP, т.е. окошко с сообщением и кнопка ОК. Другие
YZ> подобные проги не подходят, т.к. педприятие здесь специффическое нужно
YZ> чтоб сообщение (только оно) писалось БОЛЬШИМИ БУКВАМИ.
ucase()

WBR! *Alex* aka *Prowler* _/e-mail:/_ /alex#madport.dp.ua/
/_SMS:_/ /prowler#sms.umc.com.ua/
> --=[ Guitar ]=-- --=[ PHP ]=-- --=[ UNIX ]=-- --=[ Alcatel ]=--
¦¦¦ Под солнцем снегом тая, Любить, измен не зная, - Ты умер бы от злой тоски!
* Origin: MadPort NodeStation (2:464/562)


Re: FileCopy информация

From: "Vladimir Ilyashenko"
Reply-To: "Vladimir Ilyashenko"

Здравствуй, A. Skrobov!

"_29_" _августа_ 2004 г. A. написал в на тему: *"Re: FileCopy информация"*

[Сокращено]
VI>> Т. е. если будет нарушена ТОЛЬКО контрольная сумма (байтик там
VI>> какой-нибудь на дискету неверно ляжет) то поймать эту ошибку нечем?
AS> В случае VERIFY ON или-как-там-его, при неверно лёгшем на дискету
AS> байтике таки должна возникнуть ошибка.

Именно нечто типа этого "VERIFY ON " я и искал, однако понял из ответов, что "ON ERROR" скорее всего будет достаточно. В конце концов дискета может пострадать и в пути, и от всего не предохранишься.

Всем спасибо!

Всего тебе наилучшего, A. Skrobov!
_ Владимир. _
/VERBA VOLANT, SCRIPTA MANENT/ <слова улетают, написанное остается>


* Origin: Privat (2:5080/1003 [@] fidonet)


Re: Модем и голосовые функции

Reply-To: "Terekhin Alexandr"

From: "Terekhin Alexandr"

Доброго времени суток, Gribkov!
Fri, 6 Aug 2004 11:55:06 +0000 (UTC) Вы писали to :

GM> Помогите, как вообще работать из VB c голосовыми функциями модема?
С сабжем столкнулся только сегодня утром.
Как я понял, для модемов двух разных производителей решения будут не
одинаковы.
Работать с голосовыми функциями модема можно не иначе как напрямую в порт
записывая _голосовые_ команды, и получая и анализируя отклики модема.
Иного решения я пока не вижу.
Ткните носом.

Хотя наверняка это делается красиво и элегантно с помощью TAPI.

GM> Может у кого есть какие-либо наработки в эту сторону, поделитесь,
GM> пожалуйста!

Почти универсальные голосывые команды.
ATA - ответ в голосовом режиме
ATD - набор в голосовом
ATH - разрыв связи
ATZ - сброс модема
ATVRX - приём голосовых данных
ARVTX - передача -//-
ATVLS - для выбора устройств ввода/вывода

Самая большая проблема с которой я столкнулся - мой Acorp не возвращает
"Connect" после поднятия трубки, и любой ввод в порт приводит к разрыву
связи.
Короче говоря ничего не получается ;)

www.providers.ru/articles/modem_bugrov/voice.html
--
____________________________________________________
Истина где-то рядом, Terekhin Alexandr. E-mail: didinst [@] rol.ru



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


Re: Модем и голосовые функции

Reply-To: "Gribkov M.N."

From: "Gribkov M.N."


Hу предположим, ни один аналоговый модем не может возвратить
что либо в случае ответа на том конце (речь идет об обычном соденении - на
вызываемом конце не модем),
так как вход модема асинхронный, определить ответ абонента можно только при
помощи иных, дополнительных
устройств... Hекоторые продвинутые модемы путаются что-то проверять, но
так называемый мониторинг тишины, который описан на приведенной вами
странице..

Hе совсем понятно, как правильно отправить голос в порт, то есть
имеется WAV файл с записью, как его отправить в порт-то?

Спасибо, Макс


"Terekhin Alexandr" сообщил/сообщила в новостях следующее:
news:cgcc97$h9k$1 [@] news.rol.ru...
> Доброго времени суток, Gribkov!
> Fri, 6 Aug 2004 11:55:06 +0000 (UTC) Вы писали to :
>
> GM> Помогите, как вообще работать из VB c голосовыми функциями модема?
> С сабжем столкнулся только сегодня утром.
> Как я понял, для модемов двух разных производителей решения будут не
> одинаковы.
> Работать с голосовыми функциями модема можно не иначе как напрямую в порт
> записывая _голосовые_ команды, и получая и анализируя отклики модема.
> Иного решения я пока не вижу.
> Ткните носом.
>
> Хотя наверняка это делается красиво и элегантно с помощью TAPI.
>
> GM> Может у кого есть какие-либо наработки в эту сторону, поделитесь,
> GM> пожалуйста!
>
> Почти универсальные голосывые команды.
> ATA - ответ в голосовом режиме
> ATD - набор в голосовом
> ATH - разрыв связи
> ATZ - сброс модема
> ATVRX - приём голосовых данных
> ARVTX - передача -//-
> ATVLS - для выбора устройств ввода/вывода
>
> Самая большая проблема с которой я столкнулся - мой Acorp не возвращает
> "Connect" после поднятия трубки, и любой ввод в порт приводит к разрыву
> связи.
> Короче говоря ничего не получается ;)
>
> http://www.providers.ru/articles/modem_bugrov/voice.html
> --
> ____________________________________________________
> Истина где-то рядом, Terekhin Alexandr. E-mail: didinst [@] rol.ru
>
>
>


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


DAO3.6 and Access

Привет All!

Есть таблица, в одном из столбиков к примеру:
1tralala
2TEst
3TEST111
4tralala
5test
6tralala
Хочется отфильтровать в другой рекордсет через .Filter по запросу на "test" 2,3,5 строки. Такое возможно?

А то что-то не хочется построчно с LCase и Intr'ом заморачиваться. Медлено будет!?

Буду благодарен любым советам.


Igor.

* Origin: Винни Пух ББС Тел. 381-567 (23:00-06:30) (2:5055/159)


Re: DAO3.6 and Access

From: "Gribkov M.N."


> Хочется отфильтровать в другой рекордсет через .Filter по запросу на
"test"
> 2,3,5 строки. Такое возможно?


Использовать предикат LIKE

То есть
Where Столбец LIKE '*TEST*'
Hу или без Where для свойства Filter. Другими словами перефразируя
Microsoft: в свойстве Filter можно
задавать столь сложные условия, сколько позволяет делать SQL.

> А то что-то не хочется построчно с LCase и Intr'ом заморачиваться. Медлено
> будет!?
Кстати, через Intr (и так далее) получается тоже вполне юзабельно.

Макс




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


property get/property let & udt

Hello All!

Возник такой вопрос: почему не меняется значение элемента udt через property let/get? Т.е. вот, к примеру, в таком случае (упростил малость):

Public Type TFoo
Foo as Long
Bar as Long
End Type

Public m_uFoo() as TFoo

Public Property Get Foo_Item(ByVal Index as Long) as TFoo
Foo_Item = m_uFoo(Index)
End Property

Public Property Let Foo_Item(ByVal Index as Long, ByRef new_Foo as TFoo)
m_uFoo(Index) = new_Foo
End Property

При подобном обращении:

SomeClass.Foo_Item(1).Foo = 1

Значение m_uFoo(1).Foo не изменяется! Меняется только если полностью заменить элемент m_uFoo(1), к примеру, так:

Dim uTempFoo as TFoo

uTempFoo.Foo = 1
SomeClass.Foo_Item(1) = uTempFoo

P.S. TFoo объявляется как public в классе, проект - AX exe.

Bye! Max Egorov

* Origin: Please believe me, the river told me... (2:5030/846.26)


Обойти узлы в деpеве

Hello, All

Вот задался такой задачкой: хочется чтобы пользователь мог по клавише (напpимеp +) пеpейти на следующее сообщение в деpеве.
Вpоде бы чего пpоще: взял и пpовеpил, если .ChildrenCount > 0, тогда пеpеходим на дочеpний узел и отобpажаем его, если нет тогда на следующий узел. Hо... Если чилдpенов много, то получится, что пользователь уйдёт по одной ветке деpева, а остальные не захватит.
Я уже втоpой день ломаю голову как оpганизовать последовательный обход узлов с захватом всех подчинённых, но не получается.
Максимум чего добился: сделал пpостую пpоцедуpу. Если у текущего элемента несколько чилдpенов то пpоход по всем с заходом в каждую ветку. Hо если у какждого последующего элемента подчинённый элемент только один, тогда после пpохода двух таких элементов я не могу веpнуться на уpовень выше двух элементов...
В общем запутался я совсем. Понимаю что нужно чеpез pекуpсию. Hо что-то не ваpит у меня сегодня (вчеpа тоже не ваpила.. :( ).

Пpимеp кода:
======= Сгpызено моей собакой ========
With SabjList
If .SelectedItem.key = "Root" Then Exit Sub
If .SelectedItem.Children.Count > 0 Then
.Nodes.Item(.SelectedItem.Children(1)).Selected = True
ElseIf .SelectedItem.Index < .SelectedItem.Parent.Children.Count Then
.Nodes.Item(.SelectedItem.Parent.Children.Item _
(.SelectedItem.Index + 1)).Selected = True
Else
.Nodes.Item(.SelectedItem.Parent).Parent.Children _
(.SelectedItem.Parent.Index + 1).Selected = True
^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
End If
End With
======= Сгpызено моей собакой ========

Пpи пpевышении .Nodes.Item(.SelectedItem.Parent).Parent.Children.Count
на подчёpкнутом вылетаю по ошибке.
Как быть? Может кто-нибудь подскажет?

Всех благ тебе, All.
ICQ 177792013 FmMB200016700
*Hа уши давит* - 09 - That's Rock N' Roll
* Origin: r-demidow.front.ru/FBR/index.htm (2:5015/112.35)


Re: Сертификат

From: "Sergei Ho"

"Eugene Smelik" wrote in message news:1093860938 [@] p47.f32.n5061.z2.ftn...
> Hi, Sergei.
>
> SH> Макросы или шаблон с программами VBA можно
> SH> подписать своей самодельной цифровой подписью,
> SH> которую можно экспортировать в файл с расширением *.cer.
> SH> Т.е. сделать свой сертификат. Можно ли его как-то автоматом
> SH> установить в систему юзера, чтобы избегнуть объяснения ему
> SH> как и чего с ним делать? Hу или полуавтоматом?
> SH> Мол щас тебя спросят, так ты скажи "да".
> SH> Это нужно чтобы упростить установку ему моего шаблона с макросами.

> Mожет попробывать надстройки?

Что это такое? Я тут нашел было некий пример
www.planet-source-code.com/vb/scripts/ShowCode.asp?txtCodeId=40696&lngWId=1
с отсылкой на ActiveX, который умеет работать с сертификатами
www.chilkatsoft.com/ChilkatCert.asp

Hо так и не нашел по указанной ссылке Chilkat Certificate component.

Возможно есть где-то класс по работе с сертификатами.

Проблема не в том, чтобы скрытно всунуть в систему сертификат,
а в том чтобы его импорт прошел с наименьшим числом вопросов, предупреждений,
и кнопок, на которые придется жать юзеру. Эти диалоги пугают и путают юзера.

Сергей.


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


Re: Сертификат

From: "Sergei Ho"

> Проблема не в том, чтобы скрытно всунуть в систему сертификат,
> а в том чтобы его импорт прошел с наименьшим числом вопросов, предупреждений,
> и кнопок, на которые придется жать юзеру. Эти диалоги пугают и путают юзера.
>
> Сергей.

Уточнение:
Я имею в виду, что программа-установщик, в ходе инсталляции
еще и сертификает юзеру установит. Хотя возможны варианты...

Сергей.


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



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