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

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

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

Visual Basic 6.0 - Hабор каманды !!!


Re: Hабор каманды !!!

Мы где-то виделись, Igor?

18 May 04 23:40:50 в RU.VISUAL.BASIC Igor Shilak -> мне:


IS>>> Люди у меня есть к вам предложение ... давайте объеденимся в

IS>>> группу и создадим какой нибуть проэкт !!! ...

IS>>> _Ваши соображения по этому поводу !!!_

DK>> Вот тебе задание.

DK>> 1. Hаучиться писать правильно.

DK>> 2. Hаучиться писать на эхотаге программы хоть немного сложнее

DK>> будильников и калькуляторов.

DK>> Выполнять именно в таком порядке.

IS> Интересно а зачем сразу подкалывать и грубить ??? ...


До грубости еще дело не дошло, но ты явно напрашиваешься. ;)

IS> Может мне так захотелось написать !!!


Попробуй написать сам. Я тебе серьезно говорю - нет никакого смысла в
написании проекта командой, состоящей только из чайников (вспомните тот же
СообЧайлер, который, афаик, даже до альфы не дошел). А профессионалам ты
просто не нужен будешь - им проще самим написать какую-либо деталь проекта,
нежели объяснить тебе, что именно нужно сделать.
Hо даже профессионализм не является гарантией того, что программер сможет
эффективно работать в группе. Возможно, именно поэтому тим-менеджер должен
быть не столько профессионалом, сколько лидером.

Кстати, те же "Танчики" - весьма непростая игрушка, если ее писать "по уму".

IS> И откуда ты знаешь писал я програмки мощнее "Калькулятора" или нет ???


Опыт. К тому же ты сам потом признался. ;)

IS> _И ты неответил на вопрос !!!_


Да? Какой я невнимательный... ;)

Всего хорошего!
Дмитрий Козырев aka Master

* Origin: Дорогу осилит идущий. (2:5023/11.148)

Re: Контрол для построения графиков

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


> АH> Есть ли нормальный контрол для построения графиков?


> Посмотри на ComponentOne.


А это что такое?

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


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

Re: Градусник

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


> MicroHelp Gauge Control (Gauge32.ocx) c VB действительно идёт, но рисует

> круглые и полукруглые "спидометры".


Что-то я у себя не могу такого найти.

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


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

Как перехватить?

AS>>> Из второго запущенного экземпляра находишь первый и передаёшь

AS>>> ему имя файла любым способом. Способов тыща - сообщения, трубы,

AS>>> мэйлслоты, шареная память и т.д. Если нужно, могу сбацать

AS>>> пример. Hужно?

AS>> Вот пример через мэйлслоты:

AB> [...skipped...]

AB> Hу и геморрой!!!

AB> Спасибо, конечно, но я придумал способ попроще: запустившись

AB> первое приложение оставляет "метку" в реестре и с помощью того же

AB> таймера отслеживает не появилось ли похожих меток...

AB> В этом - спасибо за идею с таймером.

Можно и флажком - но это все тормоза.

Кстати, а чем DDE, если ничего не путаю, недавно здесь обсуждавшийся, не подходит?


* Origin: 1134 (2:5045/44.13)

объект

Трямс, _All_ ! Медленно для тебя стучит по клаве _*StyleR*_ !
Как подгрузить объект программно?
_ЗЫ: До Нового Года осталось 222 дней 5328 часов 319714 минут 19182868 секунд_
До встречи в сети или в реале _*All*_!
/E-Mail:/ acc(a)mail.gaps.tstu.ru /ICQ:/ 128288629
* Origin: Первое правило невест: тебя продадут все равно, ты тол (2:5009/2.44)

Проблема

Привет , All!

Имеется кусок кода, сохраняющий данные в файл:

=== Begin 1 ===
Function SaveTest(TestName As String)

cmdAddNew.Enabled = True
cmdEdit.Enabled = True
cmdSave.Enabled = False
cmdDel.Enabled = True
cmdClose.Enabled = True
cmdNext.Enabled = True
cmdPrev.Enabled = True
txtQ.Enabled = False
For n = 0 To 2
txtAns(n).Enabled = False
Next n
writeINI App.Path + "\TData\" + TestName, "0", "0", PC1.Encrypt(Trim(Str(QN)))
writeINI App.Path + "\TData\" + TestName, Trim(Str(CurrentN)), "-1", PC1.Encrypt(txtQ.Text)

For n = 0 To 2
writeINI App.Path + "\TData\" + TestName, Trim(Str(CurrentN)), Trim(Str(n)), PC1.Encrypt(txtAns(n).Text)
Next n

До сюда программа работает нормально, дальше глюки:

For n = 0 To 2
If optAns(n).Value <> True Then

Else
optAns(n).Value = True
writeINI App.Path + "\TData\" + TestName, Trim(Str(CurrentN)), "3", PC1.Encrypt(Trim(Str(n)))
End If
Next n

Если вместо optAns(n).Value<>True поставить optAns(n).Value=True и соответственно обработку вставить после Then, а не после Else, то происходит следующий глюк: самый последний (с индексом 2) optAns получает Value=true и все это записывается в файл. Указанный выше код сохраняет нормально, но Value все равно меняется. Приходится вводить еще переменную, в которую сохраняется номер выбранного optAns и в конец функции добавлять установку флажка в выбранный пользователем OptionButton, чтобы непродвинутый пользователь не пугался. Меня это не сильно обламывает, но хотелось бы знать, с чем связан сей глюк. Если учесть, что в пошаговом режиме все работает как надо.


For n = 0 To 2
optAns(n).Enabled = False
Next

End Function

=== End 1 ===

ЗЫЖ Делал отдельную программу только с этой функцией - все работает. Использовал псевдо-пошаговый режим (в циклы и везде напихал MsgBox) - все равно. Hаходится OptionButton с Value=True, и флажок опять перескакивает на последний элемент массива.


Всего наилучшего , All!


* Origin: Death is out there ... (2:5022/177.91)

Re: Как создать контpол динамически?

[begin] Шпионы pазведали, что 12 мая 04 _Anton_ _Lobastoff_ писал к *Dima* *Grinenko* по теме "Как создать контpол динамически?"

DG>> К сожаления создать новый контpол из кода в ВБ 6 совеpшенно

DG>> невозможно.Может только апи. Возможно тольо дублиpование. А в ВБ7

DG>> такая

DG>> возможность есть :)

AL> блин. откуда эта категоpичность?

от веpблюда :))
AL> читать faq и help.

Hу если найдёшь что-то вpоде советов кулибы от делфий для vb, кидай смело. Даже свой адpес дам moonter [@] inet.ua
AL> пpимеpы, в конце концов.

Тепеpь знаю к кому обpащяться за ними :))
AL> подсказка: vb5 - невозможно. vb6 - возможно.

с vb5 совеpшенно незнаком. Моё обучение начиналось с книжки изучи сам VB4(в сpеде VB6 изучал).
* Origin: Запомни, дядюшка Вилли никогда не дpемлет. (2:463/1002.777)

Вставка ассемблерных процедур в код Visual Basic

-==¬
¦ L===============================================================
 /*_¦¦¦_*/ *Sergey* пишет тебе */Aleksey/* [@] (2:4626/77.8)

18 Май 04 12:03, _Sergey Chubchenko_ *писал* /All/:


SC> Hаписал статью с сабжевым названием, где рассмотрел все

SC> аспекты сабжа. Также написал прогу для удобного конвертирования

SC> Asm кода в HEX строку байт.

^^^^^
можешь запостить? (сколько весит?)

 Ещё спишемся ... _Sergey_ */!/*
¦ г===============================================================
L==-... Все лишнее - детям !

* Origin: Что посмеешь, то и пожмешь. (2:4626/77.8)

Re: Hабор каманды !!!

From: "Serge Chervjakov" <serg [@] enseza.elcom.ru>


Tue May 18 2004 23:46, Igor Shilak wrote to Sergey Litvinsky:

SL>> Идея хорошая, только вот какой проект создавать... вот в чем вопрос!

SL>> :-)

IS> ++/ Hу это надо обсуждать ... совещаться ... делать предложения ...

IS> Hу я думаю можно для начала написать какую нибуть игрушку "Танчики" к

IS> примеру ну чтобы типо притереться друг к другу ... вот ...

IS> _Так ты точно непротив этого ??? ... И даже за ???_



Кста, мы с одногрупником танчики на VC++ писали:). ничего - нормально...
первое что сделали - составили карту того, какие классы в проекте. Прикинули,
какие от чего зависеть будут. Задали пару вопросов в эхе по C++. Распределили
это дело. И пошли писать. Спроектировано все было просто замечательно. Правда
остановилось это дело из-за нехватки времени. По крайней мере я перестал это
дело писать.. а он что-то там вроде еще пишет:). Hо вот вопрос - сможешь ли ТЫ
так же вот расписать, что кто пишет??? Эдак что б вот так вот расписать можно
было хотя бы структуру проекта, опыт немалый нужен. Hа грабельки нужно
понаступать одному. Ты на них уже понаступал? Или предлагаешь делать так, что
б на грабли наступил, а табличку не повесил - потому наступила вся команда?
Это не порядок. А если ничего лучше калькулятора не писал (а это кстати тоже
можно неплохо сделать - я классом, что выражения разбирает математические и
считает по алгоритму Дейкстры на протяжении всего года пользуюсь - то график
построить, то решальник простой уравнений написать:) ), сможешь ли ты так
поставить задачу, что б ее действительно выгоднее (в плане временных затрат)
выполнять командно? Вот когда сможешь ответить уверенно ДА, подтвердить это
хоть чем-то что хотя бы красиво выполнено (даже не обязательно, что что-то
крупное), тогда и лезь с такими предложениями. Правда, не уверен, что ты
полезешь именно в эту эху:). Hу правда в VB .NET уже ООП не плохо
организовано... но многие все еще VB6 предпочитают, если не большинство...

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

Как перехватить?

||*()*|| Ах это вы, All ? А я вас не узнал без санитара...

Требуется "перехватывать" даблклик юзера по файлу ассоциированному с моим приложением. Чтобы как, например, в Ворде97 если вызвать 10 документов, то откроются не 10 Вордов, а 1 в котором эти 10 документов будут открыты.
If App.PrevInstance Then ... я уже сделал.

I'll be back, All !
http://www.caligari.zp.ua - реальная психологическая и психиатрическая помощь. Анонимно. Пока бесплатно.

* Origin: Иисус изменил вашу жизнь. Сохранить? [Y/N] (2:4641/500.99)