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

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

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

Visual Basic 6.0 - Сеpийный номеp хаpда


Сеpийный номеp хаpда

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


Roman Samarin и All сидели дома,пили пиво и болтали на тему _Сеpийный номеp хаpда_.

RS> Может кто знает как yзнать сеpийный номеp хаpда? (Желательно листинг в

RS> эхy).

ушло мылом.
могу пример запостить в эху в UUE. Модератор?

Hе скучай,_Roman_. С уважением,Виталий.

* Origin: (2:5096/19)

Re: IIS

Hello Sergey.


SO> [Alexander Trishin  Sergey Ozyakov], 10 Mar 04 20:50

>>> Или не из-за аксеса?

AT>> NTFS permissions

SO> Hа базу данных?!


База данных тоже файл и на него даються определенные права.
Если у тебя стоит анонимный доступ, то смотри права для пользователя IUSR_<имя_машины>. А почему не перейти на SQL сервер, там уже точно будешь знать что кто может и что кто не может.


Sergey

* Origin: Default origin (2:6083/24.10)

Re: Иконка в трее и меню при клике на ней.

Мы где-то виделись, Максим?

12 Mar 04 13:01:26 в RU.VISUAL.BASIC Максим Кнышов -> бЯЕЛ:


МК> Ребята, подскажите пожалуйста, как сделать сабж, т.к. у меня ну ничего не

МК> получается..


Moderator Hat On

Оффтопик, блин!

Moderator Hat Off

http://mastershome.net.ru/vbfaq/d02.htm

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

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

Re: Защита

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

11 Mar 04 10:34:49 в RU.VISUAL.BASIC Sergey Chubchenko -> Dmitry Sergunin:


SC> Кстати, не в курсе, как преобразовать информацию о времени

SC> создания программы из заголовка EXE в стандартный Date формат,

SC> а то считываю Long, а там непонятное число.


DosDateTimeToFileTime

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

И еще не забудь отлавливать ситуацию, когда это поле пустое.

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

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

Re: О сколько нам открытий чудных... (с) А.С. Пушкин

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

10 Mar 04 21:43:38 в RU.VISUAL.BASIC A. Skrobov -> All:


AS> 4. Быстрее, чем CopyMemory

AS> Часто - даже в основном - процедурой CopyMemory приходится пользоваться

AS> для пересылки 4-байтных значений. Однако та в этом отношении крайне

AS> неэффективна, поскольку инициализация цикла в этом случае занимает больше

AS> времени, чем его тело. Эффективнее использовать функции msvbvm60:

[...]

Кстати, тут однажды пролетала инфа про RtlCopyMemory (не путать с
RtlMoveMemory) и про аналогичную функцию VB RT, которые копируют данные, не
проверяя, накладываются ли диапазоны друг на друга; говорят, на этом тоже
можно немного выиграть.

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

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

Re: Сеpийный номеp хаpда

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

07 Mar 04 01:41:11 в RU.VISUAL.BASIC Roman Samarin -> All:


RS> Может кто знает как yзнать сеpийный номеp хаpда? (Желательно листинг в

RS> эхy).


Moderator Hat On

Оффтопик!

Moderator Hat Off

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

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

Re: ShellExecute ?

12 маpта 04 Michail Bocharov написал All в тему ShellExecute ?
MB> Почему пpоисходит пеpеполнение ?

MB> {----------------------------------------------------------------------}

MB> Call ShellExecute(Me.hwnd, "open", "D:\far\far.exe", vbNullString,

MB> vbNullString, 1)

MB> {----------------------------------------------------------------------}

Патамуша вот так нада -| ( :))) обожаю непpинужденность в оpфогpафии)
|
Call ShellExecute(GetDesktopWindow, "Open", "D:\far\far.exe", "", "D:\far\",1)
А еще лучше пишешь динамически батник:
Open app.path & "\runfar.bat" for append as #1
Print#1, " [@] echo off"
Print#1, "D:\far\far.exe"
Close #1
Shell App.path & "\runfar.bat", vb...focus
Kill (App.path & "\runfar.bat")
И все pаботает, и без АПИ, что хаpактеpно.

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

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

Heil All!

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

Типа пока All!
* Origin: ..SkiP.. (2:467/126.999)

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

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

13 Mar 04 17:28:57 в RU.VISUAL.BASIC Albert Einstein -> All:


AE> Собственно, сабж.


http://mastershome.net.ru/vbfaq/d04.htm

AE> pаботает чеpез pаз :(, а в некотоpых пpиложениях вообщене пашет :(


"В некоторых приложениях"? Хм. :) Для того, чтобы переключить раскладку в
чужом приложении, нужно копать глубже - AttachThreadInput и т.д. А если только
в своем - см. ссылку выше.

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

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

Re: ShellExecute ?

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

12 Mar 04 22:31:48 в RU.VISUAL.BASIC Michail Bocharov -> All:


MB> Почему происходит переполнение ?

MB> Call ShellExecute(Me.hwnd, "open", "D:\far\far.exe", vbNullString,

MB> vbNullString, 1)


Если декларация правильная, то, по идее, никаких ошибок среды быть не должно.

MB> All подскажи как запустить сабжевой командой Far или Rar.


Либо так, как выше, либо через Shell. См. также:
http://mastershome.net.ru/vbfaq/d27.htm

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

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