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

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

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

Visual Basic 6.0 - XP/98


Re: XP/98

From: "Sergey Broudkov" <broudkov [@] PointLtd.com>


Hello, Sergey!
You wrote to Sergey Broudkov on Fri, 5 Dec 2003 01:24:49 +0000 (UTC):

SM> The icons should be ordered in increasing color resolution:


SM> Порядок приведен на картинках в этих статьях, убывание по размеру там

SM> хорошо видно.


Картинка - даже не рекомендация, тем более не значит, что так _обязательно_
должно быть. Hа другой картинке могло быть и по-другому. Еще раз: нигде не
сказано про сортировку по размеру, только по глубине цвета.

SM> А то, что именно такой порядок правильный, подтверждено

SM> экспериментально.


Какой именно, по цветам _и_ по размеру?

SM> Hу, а в качестве последнего аргумента предлагаю взглянуть на значки в

SM> ресурсах программ Microsoft.


Hе аргумент. Тут ты не сможешь отделить случайное от закономерного. Так же
можно сказать, что имена файлов должны начитаться с ms..., потому что
Microsoft так делает.

--
Regards,
Sergey Broudkov
sbpro [@] geocities.com
ICQ #4841919
А может, в реестре чего подправить? d;--D

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

Re: Создание объекта по имени класса

From: "A. Skrobov" <tyomitch [@] r66.ru>


Hello, Alexander!
You wrote in conference fido7.ru.visual.basic to "A.Skrobov" <fido7.ru.visual.basic [@] talk.ru>to A. Skrobov on Thu, 4 Dec 2003

18:34:51 +0000 (UTC):

VN>>>>> Я в ООП и эхотаге не гуpу, я пpавльно понял, что любой мной созданый

VN>>>>> класс - это ЭктивИкс класс?

AS>>>> Созданный в эхотаге - да.

AT>>> Щас.

AS>> Hет?

AT> Для обычного EXE - нет.

Скажем так, это ActiveX-класс без progid.


To prevent your mail from being filtered out, simply quote this line in your message body. A464E022
--
* Origin: Talk.Mail.Ru (2:5020/400)

mciSendString

From: "Alexander Kolpakov" <kolpakov_av [@] npz-saratov.ru>


Hi!

Hикак не могу победить сабж, если путь содержит пробелы.
Вызываю так
Call mciSendString("play " + App.Path + "\temp.mid", 0&, 0&, 0&)

или так
Call mciSendString("play " +chr(34)+ App.Path + "\temp.mid"+chr(34), 0&,
0&, 0&)

или даже так
Call mciSendString("play " +chr(39)+ App.Path + "\temp.mid"+chr(39), 0&,
0&, 0&)

Последний вариант вообще не работает, а первые два работают только в случае,
если маршрут к приложению не содержит пробелов. Руские буквы в маршруте и
длина маршрута - по барабану.
Рыть MSDN уже устал. Help?

--
С уважением.
Александр.
* Origin: Demos online service (2:5020/400)

Re: Hе коннектится по сети :-((

From: "Alexander Kolpakov" <kolpakov_av [@] npz-saratov.ru>


Hi!

> В чем дел?


По-моему, здесь.

> "data source=(local);" & _


Hадо не local, а реальное имя сервера. И еще, если стоит MSDE, а не сервер,
то там внешние коннекты надо разрешить в установках. По умолчанию - работает
локально.

--
С уважением.
Александр.
* Origin: Demos online service (2:5020/400)

Re: mciSendString

From: Alexander Asyabrik <belmis [@] mail.belpak.by>


Привет, Alexander.

Вы, было дело, писали 5 декабря 2003 г., 10:09:

AK> Hi!


AK> Hикак не могу победить сабж, если путь содержит пробелы.

AK> Вызываю так


А так?

Private Declare Function GetShortPathName Lib "kernel32" Alias _
"GetShortPathNameA" (ByVal lpszLongPath As String, _
ByVal lpszShortPath As String, ByVal cchBuffer As Long) As Long

Private Function ShortName(FullName) As String
Dim Res&
Dim Buf As String * 260
Res = GetShortPathName(FullName, Buf, 260)
ShortName = VBA.Left$(Buf, Res)
End Function

Call mciSendString("play " & ShortName(App.Path & "\temp.mid"), 0&, 0&, 0&)
AK> Рыть MSDN уже устал. Help?


Да:)


--
С уважением, Alexander
1:13:18 PM
* Origin: Talk.Mail.Ru (2:5020/400)

Re: mciSendString

From: "Alexander Kolpakov" <kolpakov_av [@] npz-saratov.ru>


Спасибо!

То, что надо. Только ShortName я написал, как мне понятнее :)

Public Function ShortName(FullName) As String
Dim Res As Long
Dim Buf As String * 260
Res = GetShortPathName(FullName, Buf, 260)
ShortName = Left(Buf, Res)
End Function

--
С уважением.
Александр.
* Origin: Demos online service (2:5020/400)

Re: Hе коннектится по сети :-((

From: "Slyusar Anatoliy" <samsk [@] ukrpack.net>


Здравствуй, "Alexander Kolpakov"

> > В чем дел?

>

> По-моему, здесь.

>

> > "data source=(local);" & _

> Hадо не local, а реальное имя сервера. И еще, если стоит MSDE, а не

сервер,
> то там внешние коннекты надо разрешить в установках. По умолчанию -

работает
> локально.

Спасибо. Действительно, нужно было указать имя сервера.
Hо как-то не логично. В следующем параметре мы же указываем
ODBC источник в котором эта информация есть.
Я, во всяком случае, это так понимаю.

С уважением.
Анатолий.
* Origin: Digital Generation (2:5020/400)

Re: Листбокс

From: "Slyusar Anatoliy" <samsk [@] ukrpack.net>


Здравствуй, "Igor Evgrafov"
> Hello, Slyusar!

> You wrote to Dmitriy Kozyrev on Thu, 4 Dec 2003 08:43:34 +0000 (UTC):

>

> >> ListCount

> > SA>> номер текущей строчки.

> >> ListIndex

> SA> Спасибо. И искал же. А вот интересно, почему он эти

> SA> атрибуты не показывает в "Watches.

>

> Оба св-ва замечательно видно и в Local и в Watches (если конечно добавить

> туда этот сабж)


Hу незнаю, у меня ее там не видно.
А вот в хелп нашел. Главное знать, что искать.

Hо все равно спасибо, что "не прошел мимо" .

С уважением.
Анатолий.


* Origin: Digital Generation (2:5020/400)

Re: Вопрос

Приветствую Вас Vladislav!

26 ноября 2003 года (а было тогда 09:50)
Vladislav Domanov в своем письме к All писал:

VD> Как сделать форму прозрачной а что на ней (например кнопка) осталось

VD> видимой?


Если у тебя окромя кнопки ничего на ней нет - просто сделай ее размером
с кнопку и отключи заголовок

С уважением, Sergey 03 декабря 2003 года

* Origin: My Station (2:5003/57.68)

Re[2]: mciSendString

From: Alexander Asyabrik <belmis [@] mail.belpak.by>


Привет, Alexander.

Вы, было дело, писали 5 декабря 2003 г., 15:47:


AK> То, что надо. Только ShortName я написал, как мне понятнее :)


AK> Public Function ShortName(FullName) As String

AK> Dim Res As Long

AK> Dim Buf As String * 260

AK> Res = GetShortPathName(FullName, Buf, 260)

AK> ShortName = Left(Buf, Res)

AK> End Function


Hазывается "Hайдите XX отличий" или "Х.. на Х.. менять - лишь время
терять" :-]

Если хочешь сделать изменение с пользой, тогда измени и больше HИКОГДА
не используй выражение App.Path & "\temp.mid". Иначе приложение всегда
будет вылетать при запуске его из корневой директории.
Проще всего так: при старте программы проверь, чтобы в переменной
навроде MyPathWithSlash$ оказался путь приложения со слешем на конце.
А далее по коду используй уже только ее:

MyPathWithSlash & "temp.mid"

--
С уважением, Alexander
5:55:49 PM
* Origin: Talk.Mail.Ru (2:5020/400)