Техническая поддержка :

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

для защиты Windows программ

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

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


Ура!!

DK> http://mastershome.net.ru/vbfaq/
Дима, шикарно. Hадеюсь, у тебя хватит терпения этим постоянно заниматься.


* Origin: 1134 (2:5045/44.13)


Работа с файлами

AP> Какой нужен код чтобы прога копировала конкретный файл в конкретную
AP> папку. И в догонку где можно скачять MSDN.
1. FileCopy
WinAPI CopyFile

2. msdn.microsoft.com


* Origin: 1134 (2:5045/44.13)


RVB.FAQ

DK> В связи с обретением эхотажным faq-ом постоянного местопроживания
DK> эхоконференция RU.VISUAL.BASIC.FAQ утрачивает актуальность и будет
DK> снесена. Интернетчики урлу уже знают, а фидошникам могу высылать фак
DK> нетмейлом.
Да здравствует разум.

ps. Может faq следует дополнить всякими мелкими трюками, которые и все спрашивают, и внимания никто не обращает, ту же работу с binary файлами, или описание функций типа split и replace как неоценимой помощи в создании парсеров.

* Origin: 1134 (2:5045/44.13)


Защита

AA> Это все. Подробностей не имею. Так как и понятия, как это можно было
AA> бы организовать в эхотаге.
Ковырять исходники dos-навигатора и в нагрузку давать еще одну программу...


* Origin: 1134 (2:5045/44.13)


быстрое преобразование строки в массив байт

>> а просто, что-то вроде
>> dim x() as byte
>> x = mystr$
SM> Так ведь именно так оно и работает.
По-моему, я знаю, чего говорю. Именно так оно и не работает.


SM> Вышеприведенный код скопирует строку mystr в массив байт x. Поскольку
SM> VB хранит строки в кодировке Unicode, в массив запишется строка
SM> именно в этой кодировке. Если же нужна строка в кодировке ANSI,
SM> следует применять функцию StrConv:
SM> x = StrConv(mystr, vbFromUnicode)
А вот это уже не мысль. Это идея. Спасибо.


>> Естественно, без использования функций типа mid$, ибо на celeron
>> 2200 побайтовая обработка 700 кб файла через mid$ заняла более
>> получаса а через массив байт - менее секунды.
SM> А что за обработка, если не секрет? Может, ее надо иначе
SM> оптимизировать? Функция Mid работает, конечно, медленнее, чем доступ к
SM> элементу массива по индексу, но не настолько.

Hастолько.

700-тыс вырезаний символа - это 700тыс обращений к строке длиной 700тыс. Думайте сами, решайте сами, поиметь или не поиметь.

ps. Hу плюс IDE, в компилированном виде это побыстрее-бы было



* Origin: 1134 (2:5045/44.13)


Re: Пpивязка к системномy таймеpy.

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

18 Mar 04 23:25:27 в RU.VISUAL.BASIC Artem Prokhorov -> All:

AP> Вопpос такой. Как осyществить пpивязкy к системномy таймеpy.
AP> Т.е. гpyбо говоpя, как сделать так, чтобы на pазных машинах, с pазными
AP> пpоцессоpами пpогpамма с гpафическим выводом шла с одинаковой скоpостью.
AP> Сейчас междy вызовами основных пpоцедyp пpосто делается Tread.Sleep(n),
AP> где n - пpедyстановленная задеpжка в миллисекyндах, что вовсе не есть гyд.

Чуть-чуть изменю твое решение: а если замораживать основную нить из другой,
вспомогательной?

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

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


Re: RVB.FAQ

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

19 Mar 04 09:29:01 в RU.VISUAL.BASIC Roman Yuakovlev -> мне:

DK>> В связи с обретением эхотажным faq-ом постоянного местопроживания
DK>> эхоконференция RU.VISUAL.BASIC.FAQ утрачивает актуальность и будет
DK>> снесена. Интернетчики урлу уже знают, а фидошникам могу высылать фак
DK>> нетмейлом.
RY> Да здравствует разум.

:)

RY> ps. Может faq следует дополнить всякими мелкими трюками, которые и все
RY> спрашивают, и внимания никто не обращает, ту же работу с binary файлами,
RY> или описание функций типа split и replace как неоценимой помощи в создании
RY> парсеров.

Принято, сенкс.

RY> --- ...две насти рулез...

:)

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

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


Re: событие, происходящее при наведении мыши на часы в трее

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

19 Mar 04 09:47:08 в RU.VISUAL.BASIC Roman Yuakovlev -> All:

RY> Как поймать сабж?

Алгоритм тот же, что и для клика. Допустим, ты в форме пишешь:


Select Case ScaleX(X, Me.ScaleMode, vbPixels)
Case WM_LBUTTONDOWN
' клик левой кнопкой
Case WM_RBUTTONDOWN
' клик правой кнопкой
End Select

End Sub

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

А ты это хочешь сделать случаем не для показа своей всплывающей подсказки?

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

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


BadCopy

H!, _[Roman]_!
RY> on error resume next
RY> open "lalala" for binary
Спасибо, нет ли полного пpимеpа в тыpнете может?


g'bye and g'luck, _[Roman]_!
* Origin: Down/Upload Soft - [SVALKA.TK] (2:5054/29.33)


Re: событие, происходящее при наведении мыши на часы в трее

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

20 Mar 04 08:37:09 в RU.VISUAL.BASIC Roman Yuakovlev -> мне:

RY>>> Как поймать сабж?
DK>> Алгоритм тот же, что и для клика. Допустим, ты в форме пишешь:
RY> Дима, стой. Подожди.

RY> Hе в иконке в трее, у мя на нее класс есть - обэвэнтись нехочу, а именно у
RY> ЧАСОВ.

Мда, это плохо. Hасколько я помню, стандартными методами (SetWindowLong)
сабклассить окна чужих процессов нельзя. :( Т.е. придется писать хук на сях
(или воспользоваться уже готовым, например, видел что-то подобное на
vbrussian).

DK>> А ты это хочешь сделать случаем не для показа своей всплывающей
DK>> подсказки?
RY> Ты будешь смеяться, но вот тут ты прав. ;)

Раз уж пошла такая пьянка, то можно вместо стандартного прямоугольника
воспользоваться balloon - тултипами а-ля офис из набора comctl. С ними
разбирался Аркадий Оловянников, кажется, на том же сайте был его пример.

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

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



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