Visual Basic 6.0 - Как заставить мигать лампочки на клаве под 9х-ХР

Привет всем!

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

--

Максим Кнышов [ knyshow#mail.dsip.net ] [ http://gbu.dvostok.com ]

Последняя версия программы Golden BackUp ( http://gbu.dvostok.com ) - 0.0.188 Beta 9





* Origin: КПКП "Транс Агентство" (2:5020/400)


Доброе время суток, Dmitriy!
GoldED/W32 3.0.1

По сообщениям контрразведки Dmitriy Kozyrev написал Sergey Chubchenko:








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

С уважением, Artem Levchenko aka AGS aka Globalizator.

* Origin: Возвpащается мyж внезапно домой из Интеpнета... (2:5020/2501.256)




Привет всем!

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

--

Максим Кнышов [ knyshow#mail.dsip.net ] [ http://gbu.dvostok.com ]

Последняя версия программы Golden BackUp ( http://gbu.dvostok.com ) - 0.0.188 Beta 9





* Origin: КПКП "Транс Агентство" (2:5020/400)


Доброе время суток, Dmitriy!
GoldED/W32 3.0.1

По сообщениям контрразведки Dmitriy Kozyrev написал Sergey Chubchenko:








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

С уважением, Artem Levchenko aka AGS aka Globalizator.

* Origin: Возвpащается мyж внезапно домой из Интеpнета... (2:5020/2501.256)




Привет всем!

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

--

Максим Кнышов [ knyshow#mail.dsip.net ] [ http://gbu.dvostok.com ]

Последняя версия программы Golden BackUp ( http://gbu.dvostok.com ) - 0.0.188 Beta 9





* Origin: КПКП "Транс Агентство" (2:5020/400)


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









улетает к такой-то матери.

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

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


04 маpта 04 Максим Кнышов написал Всем в тему Как заставить мигать лампочки на
клаве под 9х-ХР
Работаем с индикацией клавиатуpы

Чтобы активиpовать или деактивиpовать индикацию Num Lock, Caps Lock или Scroll
Lock на клавиатуpе, надо использовать API функцию SetKeyboardState. В этой
функции используется такой тип данных как Byte. Visual Basic поддеpживает этот
тип данных, но вместо него мы будем пеpедавать пользовательский тип данных, в
котоpом будет содеpжаться массив с состоянием клавиш. Сначала создадим новый
пpоект и объявим API функцию, константы и пользовательский тип данных в коде
фоpмы:

Private Declare Function SetKeyboardState Lib "user32" (kbArray As
KeyboardBytes) As Long ' вместо типа данных Byte мы ставим пользовательский тип
'данных KeyboardBytes

Private Const VK_NUMLOCK = &H90
Private Const VK_CAPITAL = &H14
Private Const VK_SCROLL = &H91

Private Type KeyboardBytes
kbByte(0 To 255) As Byte
End Type

Private kbArray As KeyboardBytes

Тепеpь добавим в массив kbArray состояния клавиш Num Lock, Caps Lock или Scroll
Lock. Hо пpежде этого добавьте на фоpму таймеp (Tmr) с интеpвалом 300 и в
событие Timer напишите:

Private Sub Tmr_Timer()
kbArray.kbByte(VK_NUMLOCK) = (Rnd * 1) \ 1
kbArray.kbByte(VK_CAPITAL) = (Rnd * 1) \ 1
kbArray.kbByte(VK_SCROLL) = (Rnd * 1) \ 1
SetKeyboardState kbArray
End Sub

Тепеpь всё готово. После запуска вашего пpоекта индикатоpы Num Lock, Caps Lock
и Scroll Lock будут беспоpядочно мигать. Это будет пpоисходить потому, что
значение состояния клавиши у нас получается pавным либо 0, либо 1 (из - за
функции лучайных чисел Rnd).

P.S. Под NT/XP лампочки мигать не будут, но значение кнопок изменятся будет.

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




Hello, Alexander!
You wrote to Sergey Broudkov on Thu, 4 Mar 2004 07:03:18 +0000 (UTC):



Ты за тредом не следишь.



Правильно, и напомню.




Да конечно, может. А смысл?

--
Regards,
Sergey Broudkov
sbpro [@] geocities.com
ICQ #4841919
А может, в реестре чего подправить? d;--D

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




Привет, Sergey.

Вы, было дело, писали 4 марта 2004 г., 19:59:





_Я_ отвечал на вопрос про RegMon и FileMon, а _ты_ по поводу _моего_
ответа придумал "крутую" историю про хакеров с DiscMon-ом. Кто из нас
не следит?

PS Чтой-та вы тут такие колючие все? Hа любое сообщение одна только
реакция: "Ты, ламерюга, не въезжаешь!"


--
С уважением, Alexander
8:16:52 PM
* Origin: Talk.Mail.Ru (2:5020/400)




Привет, Master.

Вы, было дело, писали 4 марта 2004 г., 17:36:







С этакой матерью ты явно погорячился :))

Ты всерьез считаешь, что при дефрагментации или перемещении папки
происходит перемещение "чистых" данных, а кластерные остатки при этом
инициализируются? Для того и существуют кластеры, чтобы ОС обращалась
к каждому их них как чему-то целому. Убежден, что
утилы-дефрагментаторы таскают именно кластеры, а то и целые их блоки.

Кстати, вынужден напомнить, что при перемещении папки ее файлы на
самом деле вообще физически не перемещаются. Единственное, что
происходит это изменение _информации_ о расположении файлов.

Чтобы не швыряться просто словами, провел пару простых тестов:

1 эксперимент:
в остаточном пространстве кластера, занимаемого исполнимым файлом были
дописаны произвольные данные (пардон, слово "Master", многократно).
Было проведена полная дефрагментация диска (чуть дождался, блин:)
утилитой SpeedDisc из комплекта NU2002. Результат: весь блок данных
оказался на месте (то есть непосредственно за концом файла).

2 эксперимент:
подготовка произведена та же. Папка с упомянутым файлом была
многократна перемещена в пределах диска. Результат: тот же.


PS Для некоторых крутых хакеров из конфы на всякий случай уточняю, что
я комментировал высказывание по поводу "перемещении папки программы
или дефрагментации диска", а не по поводу _копирования_ и пр. пр. пр.
--
С уважением, Alexander
8:24:32 PM
* Origin: Talk.Mail.Ru (2:5020/400)