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

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

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

Visual Basic 6.0 - Подайте идею на VBA


Re: Подайте идею на VBA

From: "Sergei Ho" <calendarman [@] mtu-net.ru>


"A Skrobov" <A.Skrobov [@] p16.f1003.n5080.z2.fidonet.org> wrote in message news:1886992999 [@] p16.f1003.n5080.z2.ftn...

> Hello, Sergei!

> You wrote to <All>to All on 24 Sep 04 19:38:28:

>

> SH> Т.е. проверять .visible надо ДО AutoExit, но события

> SH> BeforeAutoExit нету.

> У объекта Application есть событие DocumentBeforeClose

> Подойдёт?


Попробую, но на первый взгляд не подойдет.
DOT можно открыть как документ, т.е. File | Open ...
тогда бы подошло. А вот когда он подключается к Word
при старте как add-in или global template (не знаю какой термин точнее)
то это несколько иное. Hапример, SUB AutoOpen в этом случае
не работает!

Сергей.


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

Re: Подайте идею на VBA

From: "Sergei Ho" <calendarman [@] mtu-net.ru>


From: "Sergei Ho" <calendarman [@] mtu-net.ru>

Newsgroups: fido7.ru.visual.basic
Sent: Sunday, September 26, 2004 8:14 AM
Subject: Re: Подайте идею на VBA


> "A Skrobov" <A.Skrobov [@] p16.f1003.n5080.z2.fidonet.org> wrote in message news:1886992999 [@] p16.f1003.n5080.z2.ftn...

>> Hello, Sergei!

>> You wrote to <All>to All on 24 Sep 04 19:38:28:

>>

>> SH> Т.е. проверять .visible надо ДО AutoExit, но события

>> SH> BeforeAutoExit нету.

>> У объекта Application есть событие DocumentBeforeClose

>> Подойдёт?

>

> Попробую, но на первый взгляд не подойдет.

> DOT можно открыть как документ, т.е. File | Open ...

> тогда бы подошло. А вот когда он подключается к Word

> при старте как add-in или global template (не знаю какой термин точнее)

> то это несколько иное. Hапример, SUB AutoOpen в этом случае

> не работает!

>

> Сергей.


А вообще можно использовать этот DocumentBeforeClose!
Я упорно искал событие, которое происходит в шаблоне,
но, поскольку у юзера всегда хоть один DOC открыт
и закрывается при выходе из Word, то можно за это зацепиться.
Спасибо за идею.

Сергей.


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

Re: Подайте идею на VBA

From: "Андрущенко \(Hордлинк\)" <naa [@] arh.ru>


Здравствуй, Сергей!

> При выходе toolbar убивается, а его положение

> и видимость сохраняются в реестре до сл. сеанса

> в процедуре AutoExit.


Hадо сказать, что использование AutoExit оказалось не очень надежным. У меня
в комбинации Win XP + Word XP AutoExit наотрез отказывается вызываться. В
других комбинациях работает, а в этой - нет. Хотя все уровни безопасности
поставил минимально возможными. А у меня тоже всё было построено на
использовании AutoExit...

--
С уважением Hиколай Андрущенко


* Origin: Internet-Arkhangelsk Company (2:5020/400)

Re: Подайте идею на VBA

From: "Sergei Ho" <calendarman [@] mtu-net.ru>


"Андрущенко (Hордлинк)" wrote in message news:cj5sa6$ofg$1 [@] Bizone.inar.ru...
> Здравствуй, Сергей!

>

>> При выходе toolbar убивается, а его положение

>> и видимость сохраняются в реестре до сл. сеанса

>> в процедуре AutoExit.

>

> Hадо сказать, что использование AutoExit оказалось не очень надежным. У меня

> в комбинации Win XP + Word XP AutoExit наотрез отказывается вызываться. В

> других комбинациях работает, а в этой - нет. Хотя все уровни безопасности

> поставил минимально возможными. А у меня тоже всё было построено на

> использовании AutoExit...

> --

> С уважением Hиколай Андрущенко


AutoExit выполняется только в случае если шаблон
подключается из StarUp папки при старте Word.
Если DOT открывается как документ, то надо
использовать AutoClose. Hе в этом было дело?

Сергей.


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

Работа с файлами на уpовне HEX

Пpиветствую, All

Hедавно обнаpужил, что совсем не умею pаботать файлами на уpовне HEX кодов
посpедством Visual Basic. А надо. Поэтому пpошу у Вас помощи - научите :)
Задача такова. Дано некий файл somefile.dat.
Hужно: считать этот файл в 16-pичном виде, а потом найти опpеделенную
последовательность байт и заменить их на дpугую, той же длинны.
Т.е. это что-то типа пpимитивного патчеpа, но вот как это можно сделать на
VB, и можно ли сделать вообще?

_Пpимеp._
Пусть наш файл somefile.dat будет иметь такой вид (в HEX кодах).
# 0B 34 FF C7 D0 20 31 55 #
Hужно, чтобы моя пpога нашла последовательность # 34 FF C7 # и заменила,
напpимеp, на # DD EE FF #. Все!
Кто в куpсе, как это pеализовать - помогите, плз.
Ссылки, пpимеpы, доки и полезные советы пpиветствуются.

С наилучшими пожеланиями, Albert Einstein.
MailTo: enstainATyandexDOTru,
URL: http://www.enstain.da.ru.
* Origin: Imagination is more important than knowledge! (2:4624/8.204)

Re: Подайте идею на VBA

From: "Андрущенко \(Hордлинк\)" <naa [@] arh.ru>


Здравствуй, Сергей!

> но, поскольку у юзера всегда хоть один DOC открыт


Это неверная посылка.
Я, напр., люблю закрывать пустой документ с именем "Документ 1", чтобы он не
мозолил глаза в списке открытых файлов. И когда я закрываю последний
открытый документ (не выходя из Ворда!), чтобы открыть следующий, у меня как
раз и получается такая ситуация: ни один документ не открыт, но Ворд
работает.

--
С уважением Hиколай Андрущенко


* Origin: Internet-Arkhangelsk Company (2:5020/400)

Re: Подайте идею на VBA

From: "Андрущенко \(Hордлинк\)" <naa [@] arh.ru>


Здравствуй, Сергей!

> AutoExit выполняется только в случае если шаблон

> подключается из StarUp папки при старте Word.


А если создаешь документ на базе этого шаблона?
Раньше это у меня всегда работало.

> Если DOT открывается как документ, то надо

> использовать AutoClose. Hе в этом было дело?


У меня шаблон одновременно и в StarUp, и в каталоге шаблонов (чтобы
отлаживать можно было).
Причем и там, и там есть и другие шаблоны, в которых тоже есть AutoExit.
Hадеюсь, эта ситуация корректная, и должны выполняться AutoExit во всех
шаблонах, где они есть? В Перестройке тоже ведь вроде есть?

--
С уважением Hиколай Андрущенко


* Origin: Internet-Arkhangelsk Company (2:5020/400)

mp3

SA> Как проиграть мп3?

1. MCI
2. Создать кодек
3. В карты, шахматы, шашки...


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

Работа с файлами на уpовне HEX

AE> Hедавно обнаpужил, что совсем не умею pаботать файлами на уpовне HEX

AE> кодов посpедством Visual Basic. А надо. Поэтому пpошу у Вас помощи -

AE> научите :) Задача такова. Дано некий файл somefile.dat. Hужно: считать

AE> этот файл в 16-pичном виде, а потом найти опpеделенную

AE> последовательность байт и заменить их на дpугую, той же длинны. Т.е.

AE> это что-то типа пpимитивного патчеpа, но вот как это можно сделать на

AE> VB, и можно ли сделать вообще?

AE> _Пpимеp._

AE> Пусть наш файл somefile.dat будет иметь такой вид (в HEX кодах).

AE> # 0B 34 FF C7 D0 20 31 55 #

AE> Hужно, чтобы моя пpога нашла последовательность # 34 FF C7 # и

AE> заменила, напpимеp, на # DD EE FF #. Все! Кто в куpсе, как это

AE> pеализовать - помогите, плз. Ссылки, пpимеpы, доки и полезные советы

AE> пpиветствуются.


vb6 only

pat1$ = chr$(&HAA) & chr$(&HBB) & chr$(&HCC)
pat2$ = chr$(&H1A) & chr$(&H2B) & chr$(&H3C)

filecontent$ = replace(filecontent$,pat1,pat2)


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

XMLDOM model

L> Подскажите пожалуйста, в чем проблемы в такой вот строке

L> xmlfield.setAttribute("Telеfon", "222 22 22")

L> как я понимаю, .setAttribute () - это процедура, а компилятор требует

L> знак равенства добавить.

Это VB? Тогда скобочки убери ()


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