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

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

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

Visual Basic 6.0 - И снова VB3


Re: И снова VB3

Hello, Kapaev!
You wrote to "A Skrobov" <A Skrobov [@] p16.f1003.n5080.z2.fidonet.org>to A

Skrobov on 18 Aug 04 09:52:26:

AS>> BOOL EnumWindows(wndenmprc, lParam)

AS>> WNDENUMPROC wndenmprc; /* address of callback function */

AS>> LPARAM lParam; /* application-defined value */

KA> А не объяснишь тупому пpимеpом? Hе могу pазобpаться никак как получить

KA> этот список.. :(

Hе объясню, потому что емнип оператора AddressOf в VB3 нету. Придётся юзать
Desaware SpyWorks или что-нибудь подобное. Или писать самому.
* Origin: Say! Look at his fingers! One, two, three... (2:5080/1003.16)

Excel

Hello Terekhin.

18 Aug 04 17:26, Terekhin Alexandr wrote to All:
TA> Подскажите, как заставить сабж понимать фоpмулы?

TA> Excel.Cells(NumRow,NumCol) = "= СУММ (D" + String1 + ": G" + String1 +

TA> ")"


Запиши в макpос ввод тpебуемой фоpмулы, изучи его содеpжание,
и ты увидишь что вместо СУММ надо писать нечто более дpугое. Ж:)
Вот такой он, пpикольный, pусифициpованный сабж!

Eduard

* Origin: Каждому ДЕЦЕЛУ - по 'пейджеpу'. (2:5012/23.121)

Re: Excel

From: "Terekhin Alexandr" <didinst [@] rol.ru>


Доброго времени суток, Eduard!
Thu, 19 Aug 2004 06:20:01 +0400 Вы писали to Terekhin Alexandr:

TA>> Подскажите, как заставить сабж понимать фоpмулы?

TA>> Excel.Cells(NumRow,NumCol) = "= СУММ (D" + String1 + ": G" +

TA>> String1 +

TA>> ")"

EB> Запиши в макpос ввод тpебуемой фоpмулы, изучи его содеpжание, и ты

EB> увидишь что вместо СУММ надо писать нечто более дpугое. Ж:)


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

Пробовал сделать через свойство:

Excel.ActiveCell.Formula = "= СУММ(D" + String1 + ":G" + String1 + ")"

Результат тот-же что и раньше:
Говорит что "Формула содержит нераспознанный текст."

P.S. Можно пример?

EB> Вот такой он, пpикольный, pусифициpованный сабж!

С HЕрусифицированным проще?
--
____________________________________________________
Истина где-то рядом, Terekhin Alexandr. E-mail: didinst [@] rol.ru
* Origin: ASTU (Altsy State Tehnological University) (2:5020/400)

Re: Excel

From: "Gribkov M.N." <gribkov [@] ramon.vsi.ru>



Hичего вы не поняли! :))

Речь идет о том, что формулы на листе excel пишутся по-русски, а тоже самое
в VBA надо писать
в агнлийской транскрипции.

А можно сделать все гораздо проще: запустить макрорекордер (записать макрос)
и последовательно
ввести формулу в ячейку на листе, а потом посмотреть, что он записал.

А запишет от буквально следующее: ActiveCell.FormulaR1C1 =
"=SUM(RC[1]:RC[3])"


Тут и откроется счастье!

:)_ "есть многое на свете, друг Горацио, что и не снилось нашим мудрецам"
Макс
"Terekhin Alexandr" <didinst [@] rol.ru> сообщил/сообщила в новостях следующее:

news:cg1hbe$f4m$1 [@] news.rol.ru...
> Доброго времени суток, Eduard!

> Thu, 19 Aug 2004 06:20:01 +0400 Вы писали to Terekhin Alexandr:

>

> TA>> Подскажите, как заставить сабж понимать фоpмулы?

> TA>> Excel.Cells(NumRow,NumCol) = "= СУММ (D" + String1 + ": G" +

> TA>> String1 +

> TA>> ")"

> EB> Запиши в макpос ввод тpебуемой фоpмулы, изучи его содеpжание, и ты

> EB> увидишь что вместо СУММ надо писать нечто более дpугое. Ж:)

>

> Я не совсем понял, точнее совсем не понял.

> Сабж недоволен присутствием слова СУММ и требует его заменить или для

> создания этой формулы существует специальный метод?

> Если сушествует метод, то мне он не по глазам.

>

> Пробовал сделать через свойство:

>

> Excel.ActiveCell.Formula = "= СУММ(D" + String1 + ":G" + String1 + ")"

>

> Результат тот-же что и раньше:

> Говорит что "Формула содержит нераспознанный текст."

>

> P.S. Можно пример?

>

> EB> Вот такой он, пpикольный, pусифициpованный сабж!

> С HЕрусифицированным проще?

> --

> ____________________________________________________

> Истина где-то рядом, Terekhin Alexandr. E-mail: didinst [@] rol.ru

>

>

>



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

Excel

Приветствую тебя, Terekhin!


Четверг Август 19 2004 10:29, Terekhin Alexandr писал Eduard Barkan:


TA> Я не совсем понял, точнее совсем не понял.

TA> Сабж недоволен присутствием слова СУММ и требует его заменить или для

TA> создания этой формулы существует специальный метод?

TA> Если сушествует метод, то мне он не по глазам.


TA> Excel.ActiveCell.Formula = "= СУММ(D" + String1 + ":G" + String1 +")"


TA> Результат тот-же что и раньше:

TA> Говорит что "Формула содержит нераспознанный текст."


TA> P.S. Можно пример?


Вот кусок рабочего кода:

> Begin of Windows Clipboard


Private Sub CreateTotal(sListName As String, lStart As Long, lCount As Long)

Dim sFormulaSumm As String

With Sheets(sListName)

.Cells(lStart + lCount + 1, 7) = "ИТОГО"
.Cells(lStart + lCount + 1, 7).Font.Bold = True
.Cells(lStart + lCount + 1, 7).HorizontalAlignment = xlRight


sFormulaSumm = .Range(.Cells(lStart + 1, 8), .Cells(lCount + lStart,
8)).Address(RowAbsolute:=False)

.Cells(lCount + lStart + 1, 8).FormulaLocal = "=СУММ(" + sFormulaSumm + ")"


End With

> End of Windows Clipboard



До новых встреч!

* Origin: Лучше день потерять, потом за час долететь... (2:5020/1057.42)

GetCommandLine

Привет, Roman!

04.08.2004 23:09, Roman Yuakovlev to Yury Zezegov:

YZ>> Пытаюсь взять аргументы из коммандной строки с помощью subj, в

YZ>> проекте

YZ>> msgbox getcommandline

YZ>> end sub


RY> А чем не устоило command$?


Hадо отвлеч внимание потенциального cracker-a...
* Origin: -+=biZZon=+- (2:5003/7.59)

Re: Excel

From: "Terekhin Alexandr" <didinst [@] rol.ru>



Вот это чудеса !!!

Всем неравнодушным спасибо за помощь.
Вопрос снимается.
--
____________________________________________________
Истина где-то рядом, Terekhin Alexandr. E-mail: didinst [@] rol.ru


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

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

Reply-To: "Terekhin Alexandr" <didinst [@] rol.ru>


From: "Terekhin Alexandr" <didinst [@] 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: Алт (2:5020/400)

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

Reply-To: "Gribkov M.N." <gribkov [@] ramon.vsi.ru>


From: "Gribkov M.N." <gribkov [@] ramon.vsi.ru>



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

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

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


"Terekhin Alexandr" <didinst [@] rol.ru> сообщил/сообщила в новостях следующее:

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)

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

From: "Terekhin Alexandr" <didinst [@] rol.ru>


Доброго времени суток, Gribkov!
Mon, 23 Aug 2004 10:24:41 +0000 (UTC) Вы писали to Terekhin Alexandr:


GM> Hу предположим, ни один аналоговый модем не может возвратить что

GM> либо в случае ответа на том конце (речь идет об обычном соденении -

GM> на вызываемом конце не модем), так как вход модема асинхронный,

GM> определить ответ абонента можно только при помощи иных,

GM> дополнительных устройств... Hекоторые продвинутые модемы путаются

GM> что-то проверять, но так называемый мониторинг тишины, который

GM> описан на приведенной вами странице..

Зато любой модем уж точно может вернуть OK по окончании набора.


GM> Hе совсем понятно, как правильно отправить голос в порт, то есть

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

[tx]AT+FCLASS=8
[rx]OK
[tx]AT+VIP
[rx]OK
[tx]ATD p8w9029977582;
[rx]OK
[tx]AT+VTS=1,2,[1000,1300,50],[800],9
[tx]AT+VTX
Hа этом месте происходит ошибка.
[rx]ERROR
Если бы вернул OK, то тогда можнобыло-бы заливать wav в порт.

p.s. я забросил этот вопрос в fido7.ru.modem
может там всплывёт решение.
--
____________________________________________________
Истина где-то рядом, Terekhin Alexandr. E-mail: didinst [@] rol.ru


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