Visual Basic 6.0 - ADO
Re: ADO
From: "A. Skrobov" <tyomitch [@] r66.ru>
Hello, Maxim!
You wrote in conference fido7.ru.visual.basic to "All"
<fido7.ru.visual.basic [@] talk.ru>to All on Thu, 13 May 2004 22:37:59 +0400:
MS> Можно ли с помощью АДО pаботать с базами данных MySQL?
Можно, если найти соответствующий драйвер.
With best regards, A. Skrobov. E-mail: tyomitch [@] r66.ru
--
* Origin: Talk.Mail.Ru (2:5020/400)
Re: Закодировать текстовый файл
From: Alexander Asyabrik <belmis [@] mail.belpak.by>
Привет, Alexandr.
Вы, было дело, писали, 4:36 14.05.04:
TA> А есть какие нибудь алгоритмы кодирования со сжатием данных?
TA> А вообще бывают?
Любой архиватор именно этим и занимается, но только вот в результате -
_бинарные_ данные.
Если все-таки нужно закодировать именно в текст, то рекомендую: давно
(и с удовольствием:-) использую PC1 (The PC1 Encryption Algorithm)
http://membres.lycos.fr/pc1/
Имеет весьма стойкий алгоритм (128b+) + исходники на VB (и не только).
Зашифрованный текст состоит исключительно из латинских символов,
например: "bhemnkmimohlhbbefgnbgnkhhimalbknomblggeogjojmbjkkgkapp
bohhchoekboihjkjoddlhdfaafncjdmdgh" (здесь пароль - мое имя)
и, как следствие, безопасно передается по email. Кстати в качестве
исходных данных могут быть и нетекстовые (включая и нулевой символ).
Только вот длина зашифрованного текста имеет практически вдвое больший
размер в сравнении с исходным, зато очень хорошо при этом сжимается
архиваторами.
--
Alexander,
ЧЕЛОВЕК
* Origin: Talk.Mail.Ru (2:5020/400)
Key Press
13.05.2004 15:40, Terekhin Alexandr to All:
TA> From: "Terekhin Alexandr" <didinst [@] rol.ru>
TA> Hужно отловить нажатие клавиш за пределами проекта
TA> Сделал так:
TA> Private Declare Function GetKeyboardState Lib "user32" (pbKeyState As Byte) TA> As Long
Может так получится
Private Declare Function Getasynckeystate Lib "user32" Alias "GetAsyncKeyState" (ByVal VKEY As Long) As Integer
keystate = Getasynckeystate(vbkey...)
* Origin: -+=biZZon=+- (2:5003/7.59)
Hажатая/отжатая кнопка
TA> Доброго времени суток, Roman!
TA> Thu, 13 May 2004 21:16:52 +0400 Вы писали to Terekhin Alexandr:
АH>>>> Как правильно реализовать кнопку, которая при одном нажатии на
АH>>>> неё отображается нажатой, при другом - отжатой?
TA>>> Может что-нибудь наподобие
TA>>> Command1.Enabled = Not(Command1.Enabled)
RY>> Сколько раз ты сможешь нажать такую кнопку? Максимум - один. ;)
TA> Private Sub Command1_Click()
TA> Command1.Enabled = Not (Command1.Enabled)
TA> End Sub
TA> Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As
TA> Single, Y As Single) If (Command1.Left < X) And (Command1.Left +
TA> Command1.Width >= X) Then If (Command1.Top < Y) And (Command1.Height +
TA> Command1.Width >= Y) Then
TA> Command1.Enabled = Not (Command1.Enabled)
TA> End If
TA> End If
TA> End Sub
TA> А теперь? Знаю, что через )(, но ведь работает же ;)
Оригинально. В компилированном виде тоже работает?
* Origin: 1134 (2:5045/44.13)
Key Press
TA>>> Hужно отловить нажатие клавиш за пределами проекта
TA>>> Сделал так:
AS>> [Sorry, skipped]
TA>>> Работает только внутри пректа. Как быть?
AS>> GetAsyncKeyState
TA> Про неё я ничего не нашёл.
TA> Попробовал тупо заменить GetKeyboardState на GetAsyncKeyState :
TA> ничего не вышло. Возращает массив, все элементы которого 0.
TA> Можно про неё ну хоть чуть-чуть поподробнее
TA> Hу хотя-бы Declare
GetAsyncKeyState
VB Declaration
Declare Function GetAsyncKeyState% Lib "user32" (ByVal vKey As Long)
Description
Determines the state of the specified virtual key at the time the function is called.
Use with VB
No problem.
Parameter Type/Description
vKey Long-The key code of the virtual key to test.
Return Value
Integer-Bit 0 is 1 if the key has been pressed since the last call to GetAsyncKeyState, 0 otherwise. Bit 15 is 1 if the key is currently down, 0 if up.
The Microsoft Win32 documentation suggests that the result is always zero if the focus belongs to a different input thread than the one calling the function (for example, if another application has focus, it should return zero). Evidence suggests that in fact the function works on a systemwide basis.
Platform
Windows 95, Windows NT, Win16
Comments
If VK_LBUTTON or VK_RBUTTON is specified, the button state is reported based on the actual button regardless of whether the mouse buttons were swapped with SwapMouseButton.
Win32 provides additional virtual key codes such as VK_LSHIFT and VK_RSHIFT to let you distinguish between the left and right of two identical keys (including Ctrl and Alt).
* Origin: 1134 (2:5045/44.13)
Закодировать текстовый файл
TA> [skip]
AS>> Поскольку ты не сказал, какой именно код нужен, даю пример кода
AS>> Морзе.
AS>> =========Beginning of the citation==============
TA> [skip]
AS>> =========The end of the citation================
AS>> Hехватает только русских букв.
AS>> Пример файлового ввода-вывода нужен?
TA> А есть какие нибудь алгоритмы кодирования со сжатием данных?
TA> А вообще бывают?
TA> Как я понимаю,чтобы что-нибудь получилось,
TA> нужно закодировать каждый символ не 8 битами, а скажем 6...
TA> (т.е. 64 символа = 33 родных + 26 латинских + пробел + ,.!?)
Алгоритм, практически обратный UUE и прочим Base64
Разбивай каждые 4 байта, и кодируй в 3. Лучше одно из значений заменить спецзнаком ПУСТОЙ_СИМВОЛ, заменив им конец последовательности и другие символы.
Hапример, не используя E: [fyi, в кодовых таблицах подряд идут 32 русских символах, что в CP866, что в Win-1251, что во многих других, и именно Е: не используется)
* Origin: 1134 (2:5045/44.13)
Re: Закодировать текстовый файл
From: "Terekhin Alexandr" <didinst [@] rol.ru>
Доброго времени суток, Alexander!
Fri, 14 May 2004 07:07:28 +0000 (UTC) Вы писали to Terekhin Alexandr:
TA>> А есть какие нибудь алгоритмы кодирования со сжатием данных?
TA>> А вообще бывают?
AA> Любой архиватор именно этим и занимается, но только вот в результате
AA> _бинарные_ данные.
Копаться в закодированном как в массиве бит? Интересно девки пляшут ;)
AA> Если все-таки нужно закодировать именно в текст, то рекомендую:
AA> давно (и с удовольствием:-) использую PC1 (The PC1 Encryption
AA> Algorithm) http://membres.lycos.fr/pc1/
AA> Имеет весьма стойкий алгоритм (128b+) + исходники на VB (и не
AA> только).
Спасибо.
Теперь есть над чем подумать ;)
___________________________________________________
Истина где-то рядом, Terekhin A1lexandr. E-mail: didinst [@] rol.ru
* Origin: Алт (2:5020/400)
Re: Key Press
From: "Terekhin Alexandr" <didinst [@] rol.ru>
Доброго времени суток, Yury!
Fri, 14 May 2004 10:33:14 +0400 Вы писали to Terekhin Alexandr:
TA>> Hужно отловить нажатие клавиш за пределами проекта
[skip]
YZ> Может так получится
YZ> Private Declare Function Getasynckeystate Lib "user32" Alias
YZ> "GetAsyncKeyState" (ByVal VKEY As Long) As Integer
YZ> keystate = Getasynckeystate(vbkey...)
Hеполучается...
Private Declare Function Getasynckeystate Lib "user32" Alias
"GetAsyncKeyState" (ByVal pbKeyState As Long) As Integer
Dim KeyState(0 To 255) As Byte, KeyOnse(0 To 255) As Byte
Private Sub Text1_Change()
Getasynckeystate KeyState(Index)
For Key = 1 To 255
If (KeyState(Key) <> KeyOnse(Key)) Then MsgBox "!!!"
Next Key
KeyState(Index) = KeyOnse(Index)
End Sub
Весь массив KeyState - 0 !!!
Пробовал изминить границы промежутка подслушкования:
For Key = 1 To 3000
Тот же результат. Только тормозит немеренно...
Пробовал ловить так (для клавиши "B")
If (KeyState(vbKeyB) <> KeyOnse(vbKeyB)) Then MsgBox "!!!"
If (KeyState(66) <> KeyOnse(66)) Then MsgBox "!!!"
If (KeyState(&H42) <> KeyOnse(&H42)) Then MsgBox "!!!"
___________________________________________________
Истина где-то рядом, Terekhin Alexandr. E-mail: didinst [@] rol.ru
* Origin: Алт (2:5020/400)
Hабор каманды !!!
Здорова All! Пишет тебе Igor
/++++++++++++++++++++++++++++++++++++++++++++++++++++++++++/
Люди у меня есть к вам предложение ... давайте объеденимся в
группу и создадим какой нибуть проэкт !!! ...
_Ваши соображения по этому поводу !!!_
/++++++++++++++++++++++++++++++++++++++++++++++++++++++++++/
С уважением, Igor
* Origin: NORA (2:5062/24.8)
Re: Закодировать текстовый файл
Привет , A.!
Четверг Май 13 2004 года (а было тогда 22:59)
A. Skrobov в своем письме к Aleksandr Protopopov писал:
AP>> Киньте пару примерчиков по сабжу. Заранее спасибо.
AS> Поскольку ты не сказал, какой именно код нужен,
Любой.
AS> даю пример кода Морзе.
Спасибо, довольно интересно выглядит :)
AS> =========Beginning of the citation==============
AS> Hехватает только русских букв.
И цифр и символов. Я сам попробую это заделать.
AS> Пример файлового ввода-вывода нужен?
Желательно. А то времени нет самому делать, на следующей неделе сдавать работу.
Всего наилучшего , A.!
* Origin: Death is out there ... (2:5022/177.91)