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

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

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

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


Re: Алгоритм base64

From: "A. Skrobov"

Hello, Terekhin!
You wrote in conference fido7.ru.visual.basic to "All"
to All on Wed, 7 Jul 2004 17:13:29 +0000
(UTC):

TA> ...как быть?..
[Sorry, skipped]
TA> Можно как нибудь обойтись без строк?
Разбиваешь на группы по 3 байта, каждая группа легко переводится в 4
символа:
Encode3 = Base64Char((Group \ 65536) And 255) & Base64Char((Group \ 256) And
255) & Base64Char(Group And 255)
Обратно так же.


With best regards, A. Skrobov. E-mail: tyomitch [@] r66.ru



--

* Origin: Talk.Mail.Ru (2:5020/400)


Re: Какая кнопка нажата?

From: "Андрущенко \(Hордлинк\)"

Здравствуйте, A. Skrobov!

> можно приспособить это что-то. Только зачем? Чем так плохо свойство
> IsCancel?

Да ничем не плохо. Просто сейчас его еще нет, и его нужно вставлять. А зачем
вставлять, если, к примеру, казенными средствами и так всё казённо
обрабатывается? Возвращает же ф-ция MsgBox значение нажатой кнопки? А чем
моя форма хуже MsgBox?...

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


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


Re: запуск VB+mdb-базы с CD-ROM'a

From: "Stas Tyurin"

DK> Факи читать надо! :)

DK> ============================== Смотри ниже
DK> ===============================
DK> Как работать с mdb базой, расположенной на Read/Only диске (CD-Rom)?

DK> Alexander Trishin:
DK> Set db = OpenDatabase (..., True, True)
DK> То есть Exclusive=True и ReadOnly = True
DK> ============================== Смотри выше
DK> ===============================

Спасибо, уже разобрался: в свойствах data control стояло readonly=false.

* Origin: FidoNet Online (2:5020/400)


Re: createКружочекRegion

From: "A. Skrobov"

Hello, Dmitriy!
You wrote in conference fido7.ru.visual.basic to "A.Skrobov"
to A. Skrobov on Tue, 06 Jul 2004 20:55:37
+0400:

AS>> Чтобы убрать дырку, сделай просто прямоугольный регион по размеру
AS>> формы.
DK> Зачем? Hа "чистой" форме GetWindowRgn возвращает ноль, вот нулем и
DK> будем регион сбрасывать.
Ух ты, а я даже и не знал... Спасибо :-)
А вот вычетать из NULL кружочек почему-то не выходит :-(
Так что прямоугольный регион по размеру формы всё равно придётся создавать.
И получается без разницы - NULLом сбрасывать, или им :-|


With best regards, A. Skrobov. E-mail: tyomitch [@] r66.ru



--

* Origin: Talk.Mail.Ru (2:5020/400)


Re: вопрос по работе с сетью - портами

From: "A. Skrobov"

Hello, Genrih!
You wrote in conference fido7.ru.visual.basic to "All"
to All on Tue, 06 Jul 2004 08:56:00 +0400:

GR> если надо подробнее - есть игра работает по порту 44405 надо
GR> отлавливать пакеты от нее и немного подправлять или дополнять
GR> куда рыть - что читать - или примеры в студию
Юзай Винсок: справка в МСДH, примеров в инете навалом, на vbrussian.com даже
статья есть.
Хинт: ставишь свою прогу сервером на 44405 порт и подключаешься игрой к ней,
а прогой уже - туда, куда нужно. И перекидываешь пакеты, поправляя как надо.


With best regards, A. Skrobov. E-mail: tyomitch [@] r66.ru



--

* Origin: Talk.Mail.Ru (2:5020/400)


Re: Какая кнопка нажата?

From: "A. Skrobov"

Hello, Андрущенко!
You wrote in conference fido7.ru.visual.basic to "All"
on Wed, 7 Jul 2004 13:54:33 +0000 (UTC):

АH> Вызываю я из своей программы свою модальную форму. Hа ней, естественно,
АH> есть кнопки "OK" и "Cancel". Могу ли я стандартным способом определить
АH> в программе, по какой из этих кнопок завершена форма? Или я должен
АH> вставлять в форму доп. свойства вроде "IsCancel" и проверять в
АH> программе эти свойства?
Покажи обработчики этих кнопок. Если что-то вроде
=========Beginning of the citation==============
Private Sub cmdOK_Click
Call SaveSetting (App.Title, "Section", "Key", txtValue.Text)
cmdCancel_Click
End Sub

Private Sub cmdCancel_Click
Unload Me
End Sub

=========The end of the citation================
(т.е. стандартно), то никак. Если у тебя там есть что-то дополнительное,
можно приспособить это что-то. Только зачем? Чем так плохо свойство
IsCancel?


With best regards, A. Skrobov. E-mail: tyomitch [@] r66.ru



--

* Origin: Talk.Mail.Ru (2:5020/400)


Алгоритм base64

From: "Terekhin Alexandr"

Добрых дней, приятных ночей All!
Hужна помощь.
Сложность в том, что нужно "сростить" несколько двоичных чисел (по 6 бит).
000010 и 000111 => 000010000111 таким образом,
а далее "порезать" на куски по 8 бит, преобразовать в байты и записать в
файл...

...как быть?..

=========Beginning of clipboard==============
Dim intPos, intNumb As Integer, strOut, strOutA As Integer, intVar As
Integer, byStep As Byte, strEx As String
Dim strExt(1 To 10) As String
Private Sub Command1_Click()
byStep = 0
intPos = 1
If intPos + 3 <= Len(Input) Then
Do
For intNumb = intPos To intPos + 3
intVar = Asc(Mid(Input, intNumb, 1))
If (intVar > 43) And (intVar < 58) Then strOut = intVar + 4
If (intVar > 57) And (intVar < 96) Then strOut = intVar - 65
If intVar > 96 Then strOut = intVar - 71
If intVar = 43 Then strOut = 62
If (intVar = 47) Then strOut = 63
byStep = byStep + 1
strOutA = strOut
Do
strOut = strOutA
strOutA = Int(strOutA / 2)
strExt(byStep) = Trim(strExt(byStep) + Trim(Str(strOut - strOutA *
2)))
Loop Until strOutA <= 1
strExt(byStep) = Trim(strExt(byStep) + Trim(Str(strOutA)))
If Len(strExt(byStep)) < 6 Then
Do
strExt(byStep) = strExt(byStep) + "0"
Loop Until Len(strExt(byStep)) = 6
End If
strExt(byStep) = StrReverse(strExt(byStep))
Next intNumb
intPos = intNumb
Loop Until (intNumb >= Len(Input))
Else
MsgBox "Пусто"
End If
For strOutA = 1 To Len(Input)
strEx = strEx + strExt(strOutA)
Next strOutA
Output = strEx
End Sub
=========The end of clipboard================

Можно как нибудь обойтись без строк?

--
__________________________________________________
Истина где-то рядом, Terekhin Alexandr. E-mail: didinst [@] rol.ru


* Origin: Алт (2:5020/400)


Какая кнопка нажата?

From: "Андрущенко \(Hордлинк\)"

Здравствуйте, All!

Вызываю я из своей программы свою модальную форму. Hа ней, естественно, есть
кнопки "OK" и "Cancel". Могу ли я стандартным способом определить в
программе, по какой из этих кнопок завершена форма? Или я должен вставлять в
форму доп. свойства вроде "IsCancel" и проверять в программе эти свойства?

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


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


странное либо с ide либо с vb5sp3

Конструкция If myfunction(myargument) = False then lalala1 else lalala2

При возвращении false перескакивает на lalala2 :((

В чем причина? Я из-за этого столько времени и нервов потратил. :(

Конструкция If Not(myfunction(myargument)) then lalala1 else lalala2
работает, как часы.

ps. Это частный случай, раньше никогда такого не замечал, false возвращается совершенно однозначно, проверено дебагером.


* Origin: 1134 (2:5045/44.13)


полное завеpшение pаботы пpогpаммы

??>>>> Если приложение не выгружается, значит у него есть ссылки на
??>>>> неразрушенные объекты. И пока эти ссылки будут присутствовать,
??>>>> приложение будет висеть в памяти.
AT>>> Я бы сказал есть загруженные формы, ссылки на другие обьекты не
AT>>> держат процесс.
RY>> Каким образом это все делать?
RY>> Формы выгружаю все, делаю End - все равно exe после запуска
RY>> остается занят. :(
AS> В смысле, после завершения End-ом? Значит, дело не в нём. Кто-то
AS> другой его занимает.

Hе знаю, в памяти куча копий программы была. В ide все закрывалось.

После того, как добавил в выгрузку все таймеры остановить и все формы выгрузить - дуло исчезло (при простом анлоадинге программа не закрывается, но все выгрузки стоят перед End-ом)


* Origin: 1134 (2:5045/44.13)



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