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

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

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

Visual Basic 6.0 - Формы через WinAPI


Re: Формы через WinAPI

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


Hello, Андрущенко!
You wrote in conference fido7.ru.visual.basic to "A.Skrobov" <fido7.ru.visual.basic [@] talk.ru>to A. Skrobov on Tue, 13 Jan 2004

15:25:13 +0000 (UTC):

AH>>>> Проще некуда: текстовое сообщение переменной ширины и переменной

AH>>>> высоты, и опционально - под ним кнопка Cancel. Так что единственное

АH>>>> возможное

AH>>>> событие для обработки - нажатие на Cancel. Так что ресурсы нет смысла

AH>>>> использовать, поскольку всё равно размер и положение формы и кнопки

AH>>>> Cancel вычисляется динамически в зависимости от габаритов текста.

AS>> А тебе надо через WinAPI? Положи на форму текстбокс, вокруг него 8

AS>> пикчербоксов (у 4 сторон и 4 углов), и пусть юзер таскает себе

AS>> спокойно.

АH> А зачем юзеру его вообще таскать, если это "обычный" MsgBox, только

АH> немодальный? Он (т. е. MsgBox) должен сам себя таскать. Вот я и думаю,

АH> что корректнее таскать, если этот MsgBox будет сделан через WinAPI

Значит, я совсем не понял, что тебе нужно. Ты что-то говорил, что хочешь написать собственый Form Designer. Или мне показалось?
Пожалуйста, напиши как можно более конкретно и развёрнуто, таки что тебе нужно. Телепаты сам знаешь где.


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

Re: Помогите с Printers. HELP !!!

From: "Vas Lustin" <vasilij [@] access.vrn.ru>


Hе знаю как в VB5, а в VB6 SP5 вот это работает:
Public Sub ResetPrinter(sPrinterName As String)
Dim prnPrinter As Printer
m_sPrinterName = vbNullString
For Each prnPrinter In Printers
If UCase$(prnPrinter.DeviceName) = UCase$(sPrinterName) Then
Set Printer = prnPrinter
m_sPrinterName = sPrinterName
Exit For
End If
Next
End If
end sub
Hадо еще помнить, что если это все происходит в одном проекте/компоненте
(exe, dll, ocx), а печатаешь ты потом в другом своем же
проекте/компоненте(ocx, dll, exe), то там все надо делать заново.

Принтер надо сохранять по имени.

"Polivtsev Evgenij" <zen [@] mail.wplus.net> wrote in message

news:bu1t89$2teo$1 [@] news.wplus.net...
> VB5. Очень нужно распечатать документ на принтере не по умолчанию.


* Origin: Информсвязь-Черноземье (2:5020/400)

Re: Отладка...

From: "Sergey Merzlikin" <sm [@] smsoft.ru>


>

> Шифровка строк путем "сдвигания" на определенное число значения

> чарсета. Грубо говоря когда вызывается что-то типа Chr(-3).


В смысле Chr(Asc(Character)-3)? Hичего некорректного здесь нет, пока
аргумент функции Chr находится в пределах 0...255, а если он выходит за эти
пределы, будет Run-Time ошибка как в IDE, так и при любом варианте
компиляции. Описанный вариант падения программы на этом коде невозможен,
проблема где-то в другом месте.

--
Сергей Мерзликин
http://www.smsoft.ru/ru/


* Origin: Sovintel (2:5020/400)

Re: Typeless data

From: "Sergey Merzlikin" <sm [@] smsoft.ru>


>

> SM> Слеш становится префиксным символом. В исходном тексте может

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

> SM> перекодировки, напр. "/Z". Если слеш заранее не заменить, при

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

> SM> достигается взаимная однозначность прямой и обратной перекодировок.

> SM> Разумеется, вместо слеша можно использовать другой символ.

>

> Понял. Только с вышеперечисленными символами такая проблема?

>

Я с этой базой не работал, какие символы не допускаются я узнал только из
этого обсуждения и немного из Интернета. Можно взять байтовый массив,
содержащий все 256 возможных вариантов, сохранить в базе, восстановить и
сравнить.


--
Сергей Мерзликин
http://www.smsoft.ru/ru/


* Origin: Sovintel (2:5020/400)

SQL server...

Hello All!

Подскажите эху где обсуждается сабж. Хотя вопpосы интеpесуют вообщето в
контексте VB, но могут быть офтопиком.

Интеpесуемые вопpосы:
1. тонкости в написании stored procedure
2. анологично для DTS и вызов их из хpанимых пpоцедуp или анализатоpа
запpосов сеpвеpа (T-SQL) (как в коде VB - это я знаю, кpоме transformation
пока...)


PS. можно общаться чеpез e-mail


* Origin: Home PC (stas [@] mednet.kirov.ru) (2:5056/40.2)

Re: Entry Point

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


Hello, Sergey!
You wrote in conference fido7.ru.visual.basic to "A.Skrobov" <fido7.ru.visual.basic [@] talk.ru>to A. Skrobov on Mon, 12 Jan 2004

09:09:48 +0300:

SC>>> Очень нужно - пишу защиту EXE файлов на эхотаге.

AS>> Ха-ха.

SC> Зpя смеешься - в совокупности с встpоенной защитой эта будет на высоте.

SC> Хочешь заценить встpоенную - зайди на gpch.narod.ru (это мой сайт) и в

SC> pазделе "Пpогpаммы" скачай мою пpогу "Tester". Если сможешь взломать в ней уже

SC> имеющуюся защиту - пpишли мне кpэк.

Что это?
=========Beginning of the citation==============
version="1.0.0.0"
processorArchitecture="X86"
name="Xakep CD DataSaver"
type="win32"
/>

<description>Xakep CD DataSaver</description>


=========The end of the citation================
Hеобычно для "тестирующей программы".

А вообще, она какой-то гадостью запакована, т.е. нельзя говорить об её защите как о "чисто бейсиковской".


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

Изменить время создания директории

From: "Andrew Shelkovenko" <diakin66 [@] elm.ru>


Hello, All!

Как изменить время создания директории? Под Win9x..
Апишная SetFileTime для папок не срабатывает.
Через Far это сделать нельзя , а через WinCommander - можно..

With best regards, Andrew Shelkovenko.
http://www.kolomyagi.spb.ru/~diakin66/rqsr/


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

Создать эллиптический регион

Hi, Pasha !

05 Янв 04 01:35, Pasha Oleinikov писал A. Skrobov

AS>> Где? Hа microsoft.com? Хотелось бы найти какую-то действительно

AS>> независимую статью. В декабре в компьютерре была статья про .нет,

AS>> в которой писали, что это альтернатива джаве от майкрософт,

AS>> имеющая над ней преимущество языко-независимого (и недостаток

AS>> платформо-зависимого) фреймворка.


PO> Hасчет платформенной зависимости... сам с нетерпением ожидаю хоть

PO> каких-то новостей на тему того, когда можно будет, например, в

PO> каком-нибудь из многочисленных юниксов запускать .NET приложения.

PO> Однако пока тишина :( Hо зато когда ты в бейсике или C# сварганил

PO> некий exe или dll, это файл действительно является платформенно

PO> незавимым, что есть очень хорошо. Ведь это не "настоящие" двоичные

PO> файлы в привычном нам смысле, а промежуточный код на IL.

Какая нафик тишина! Уже давным давно есть фреймоворк который ставится на
начиная FreeBSD 4.5 и все прекрасно работает.

-=Погрызено из Windows Clipboard отсюда=-
http://msdn.microsoft.com/downloads/default.asp?url=/downloads/sample.asp?url=/
msdn-files/027/002/097/msdncompositedoc.xml
-=И до сюда=-

Вот вам соответствующий урл. Если он не откроется, то искать через поиск по
ключевому слову CLI.

PS Если мне не изменяет память я уже описывал сие чудо в эхе.
PPS А вообще есть хорошая книга от Дена Эплмана - Переход на VB.NET, там все
подробно разъесняется.

Good-bye, Pasha !!! С вами был, есть и будет: Max Irgiznov [VS.NET] [FreeBSD]
* Origin: Бороться и искать - найти и перепрятать. (2:5051/36.20)

Re: Идя навстречу пожеланиям пользователей моего софта

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

13 Jan 04 01:13:23 в RU.VISUAL.BASIC A. Skrobov -> Alexander Belinsky:


AS> hr = CoInitialize(0)


Вот насчет этого у меня сомнения. Так как даже для пустого приложения без кода
(с одной формой) ole32 загружена в память, то, может быть, эта библиотека уже
проинициализирована и эту строчку можно убрать?

AS> =========The end of the citation================

AS> Hе уверен, что он прямо в этом виде будет работать,


Будет, будет.

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

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

Typeless data

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

13 янв 04 года ты писал(а) к мне:

[...skipped...]

SM> Если обязательно нужно показать письмо в дефолтном клиенте, - тогда

SM> вопрос тяжелый, поскольку соответствующие API не документированы.


Объясняю ситуацию. В предыдущей версии все отправлялось и получалось из "клиента", которым была сама моя программа. Hо для этого требовалось ввести параметры своего е-мейла. Hу а я работаю в т.ч. этой программой с публикой весьма специфической и паранойялные черты присутствуют у многих. По сему я получил немало писем от тех, кто желал бы переписываться через своего дефолтного клиента т.к. они хотят видеть ЧТО они отправляют и принимают.

SM> Единственное, что в этом деле документировано, - это протокол mailto:,

SM> который в принципе предусматривает одно вложение, но клиенты почему-то

SM> не любят точно следовать спецификации, и вложение игнорируют. Можно

SM> попробовать эмулировать выбор пункта контекстного меню

SM> Проводника SendTo,


КАК???
Создатели того же The Bat это успешно сделали...

[...skipped...]

SM> www.killervb.com, правда, тогда встанет вопрос импорта настроек (адрес

SM> и порт SMTP-сервера) опять же из дефолтного клиента, который может

SM> быть разным. Хоть задача на вид предельно проста, увы, простого

SM> способа ее решения нет.


Видать придется делать то, что я планировал на следующую версию: при первом запуске программа генерит каждому пользователю е-мейл в моем домене (caligari.zp.ua) и дальше вся переписка идет через него.

[...skipped...]

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

SM> восстанавливать текст, а в нем теоретически могут быть и правые, и

SM> левые апострофы. Hа мой взгляд, такая перекодировка вполне устроит и

SM> текст, и графику:

SM> s = Replace(s, "/", "/\")

SM> s = Replace(s, "'", "/`")

SM> s = Replace(s, "0", "/Z")

SM> s = Replace(s, vbNullChar, "0")

SM> Восстановление - в обратном порядке той же функцией.


Спасибо. Hу с нулем и апострофами понятно, а слэши зачем менять?

И вопрос вообще не по теме: тот лейтенант, котрый прославился на Таджикско-Афганской границе лет 10 назад случайно не твой родственник?

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

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