Visual Basic 6.0 - Hажатая/отжатая кнопка
Hажатая/отжатая кнопка
АH>> Как правильно реализовать кнопку, которая при одном нажатии на
АH>> неё отображается нажатой, при другом - отжатой?
TA> Может что-нибудь наподобие
TA> Command1.Enabled = Not(Command1.Enabled)
Сколько раз ты сможешь нажать такую кнопку? Максимум - один. ;)
* Origin: 1134 (2:5045/44.13)
Re: Key Press
From: "A. Skrobov" <tyomitch [@] r66.ru>
Hello, Terekhin!
You wrote in conference fido7.ru.visual.basic to "All"
<fido7.ru.visual.basic [@] talk.ru>to All on Thu, 13 May 2004 11:40:12 +0000
(UTC):
TA> Hужно отловить нажатие клавиш за пределами проекта
TA> Сделал так:
[Sorry, skipped]
TA> Работает только внутри пректа. Как быть?
GetAsyncKeyState
With best regards, A. Skrobov. E-mail: tyomitch [@] r66.ru
--
* Origin: Talk.Mail.Ru (2:5020/400)
Alexander Asyabrik - belmis [@] mail.belpak.by - свинья
From: Mike <mikeNOS [@] skeptik.net>
Прошу прощения за оффтопик. И даже знаю, что, скорее всего, буду отключен
от этой эхи. Тем не менее считаю должным, чтобы все знали: Alexander
Asyabrik - подонок и свинья. Когда я намекнул ему на не совсем корректное
поведение в эхе, он в ответ подписал меня на несколько списков рассылки. В
частности, парочку порнушных. Только вот он еще оказался и идиотом, потому что
1) Все уважающие себя рассылки шлют confirmation на тот email, который был
подписан. Пока ты не ответишь на confirmation, кликнув по специально
сгенерированному линку, никакой подписки не будет.
2) В confirmation указывается IP-адрес, с которого произведена подписка.
Примерно так:
> The response will finalise your subscription to our
> mail list - 'Sex Library Pornletter'. Thank you.
[skip]
> To UN-Subscribe, return to:
> http://www.path.to/unsubscribeform-ifNotThis.htm
> Report Time: 13/05/2004 - 10:40
> subscriber route: 194.226.120.190
194.226.120.190 - это тот самый IP, который стоит в хедерах писем от
Alexander Asyabrik, полученных мной мылом. Так что сейчас об этом узнает и
Белпак, и БелМИС.
--
Best regards
(M)ike
При ответе на e-mail убрать из адреса NOS
* Origin: Best antimagic/antiUFO cure: http://skeptik.net (2:5020/400)
Re: HEX in VB
From: Alexander Trishin <trialFORSPAM [@] trishin.com>
Dima Grinenko wrote on Sat, 08 May 2004 23:20:47 +0400:
> AT> Surprise, surpise. Даже шестнадцатеpисные числа в памяти компьютеpа
> AT> хpанятся с помощью все тех же ноликов и единичек. :)
> Surprise. Компьютеp понимает только язык асемблеpа :)
> Surprise. Бинаpный тип унивеpсален, однако своего имени там не увидишь. Да и
> методов pаботы с бинаpным сложением в ВБ нет. Hапишешь?
Hу это... Садись, два :)
--
AT
* Origin: Demos online service (2:5020/400)
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)
Re: Key Press
From: "A. Skrobov" <tyomitch [@] r66.ru>
Hello, Terekhin!
You wrote in conference fido7.ru.visual.basic to "A.Skrobov"
<fido7.ru.visual.basic [@] talk.ru>to A. Skrobov on Fri, 14 May 2004 00:28:39
+0000 (UTC):
AS>> GetAsyncKeyState
TA> Про неё я ничего не нашёл.
TA> Попробовал тупо заменить GetKeyboardState на GetAsyncKeyState :
TA> ничего не вышло. Возращает массив, все элементы которого 0.
TA> Можно про неё ну хоть чуть-чуть поподробнее
TA> Hу хотя-бы Declare
Мой пример лежит на http://vbrussian.com/download.asp?Type=Example&ID=71
Вот оттуда кусок:
=========Beginning of the citation==============
Private Declare Function GetAsyncKeyState Lib "user32" (ByVal vKey As Long)
As Integer
[Sorry, skipped]
Private Sub tmrExit_Timer()
Dim tidCurrent As Long
[Sorry, skipped]
If GetAsyncKeyState(vbKeyControl) And &H8000 Then
If GetAsyncKeyState(vbKeyTilde) And &H8000 Then
tidCurrent = GetWindowThreadProcessId(GetForegroundWindow, 0)
AttachThreadInput tidCurrent, GetCurrentThreadId, 1
Me.Show
SetForegroundWindow Me.hWnd
Me.SetFocus
AttachThreadInput tidCurrent, GetCurrentThreadId, 0
tmrAutoHide.Enabled = True
End If
End If
End Sub
=========The end of the citation================
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.
Вы, было дело, писали, 17:33 14.05.04:
TA> AA> Любой архиватор именно этим и занимается, но только вот в результате
TA> AA> _бинарные_ данные.
TA> Копаться в закодированном как в массиве бит? Интересно девки пляшут ;)
Что уж так сразу и "бит"? C _байтами_ повеселее будет "плясать":-)
Да и при работе байтовыми массивами скорость операций всегда выше,
нежели чем со строками.
--
Alexander,
ЧЕЛОВЕК
* Origin: Talk.Mail.Ru (2:5020/400)