Как отследить запись в реестр Windows?????

[Memfivosfey]

Как отследить запись в реестр Windows производимую любой программой и в обязательном порядке её блокировать!!!! Помогите это очень нужно!!!! Буду сверх признателен!!

[alibek]

А поискать? Для кого GSerg старался?

[Memfivosfey]

Нашёл, но там только изменения раздела отслеживаються, а мне необходимо и ключей и разделов, с блокировкой онных.... Тобишь если реально, остановить на входе, ещё только при обращении....

[GSerg]

Грубо говоря, нереально
Только развесив разрешения доступа средставми винды.

[Memfivosfey]

А какже тогда работают программы типа АнтиСпай...., Реал тайм регистри мониторинг????

Хорошо, а если после записи в реестр, удалять ключ, это мне необходимо отсканить всё дерево ключей, сохранить, а потом при изменении сканить снова?

А если в таком случае функция, которая даёт ответ, просто в случае произведения записи в реестр вобще или в определённую ветв...

[GSerg]

Ну дык есть же параметр Key, и есть параметр SubTree.

[_Мика_]

Ну не каждую же секунду сканировать весь реестр и искать различия Кстати мне тоже этот вопрос интересен

[GM]

RegMon, к примеру юзает драйвер, для мониторинга. А так я делал с помощью RegNotifyChangeKeyValue.

[Memfivosfey]

GM По медленее пож., я записываю....

[Memfivosfey]

Помогите разобраться, вот выдрал код на сайте... чиво делаю не так не пойму, выдаёт ошибку: Expected Sub, Function or Property.

Не могу понять что за значение должно быть в RegProc

Код: Выделить всё

'Для тестирования примера необходимо:
'1. Запустить пример (F5)
'2. Запустить Regedit.exe (C:\Windows\Regedit.exe)
'3. Перейти в раздел реестра HKEY_CURRENT_USER\Software\
         VB and VBA Program Settings\
         Registry Notification
'4. Измените одно из значений или удалите этот раздел
'5. Вернитесь к примеру

Const HKEY_CLASSES_ROOT = &H80000000
Const HKEY_CURRENT_USER = &H80000001
Const HKEY_LOCAL_MACHINE = &H80000002
Const REG_NOTIFY_CHANGE_NAME = &H1
Const REG_NOTIFY_CHANGE_ATTRIBUTES = &H2
Const REG_NOTIFY_CHANGE_LAST_SET = &H4
Const REG_NOTIFY_CHANGE_SECURITY = &H8
Const REG_LEGAL_CHANGE_FILTER = (REG_NOTIFY_CHANGE_NAME Or _
         REG_NOTIFY_CHANGE_ATTRIBUTES Or _
         REG_NOTIFY_CHANGE_LAST_SET Or _
         REG_NOTIFY_CHANGE_SECURITY)
         
Private Declare Function RegNotifyChangeKeyValue Lib "advapi32" _
         (ByVal hKey As Long, _
         ByVal bWatchSubtree As Boolean, _
         ByVal dwNotifyFilter As Long, _
         ByVal hEvent As Long, _
         ByVal fAsynchronous As Boolean) As Long
         
Private Sub Form_Load()
    SaveSetting "Registry Notification", _
         "Hello", _
         "Testing", _
         "123"
    RegNotifyChangeKeyValue HKEY_CURRENT_USER, _
         True, _
         REG_LEGAL_CHANGE_FILTER, _
' В следующей строке, происходит ошибка
         AddressOf RegProc, _
         False
    MsgBox "Registry changed"
    Unload Me
End Sub


[GSerg]

Странный код.
Вообще-то, предпоследний параметр у этой функции принимает event HANDLE, а не указатель на callback.

Что-то не то ты нашёл
http://bbs.vbstreets.ru/viewtopic.php?p=54861#54861

[Ruslan Demidow]

RegProc - это твоя процедура, которая будет обрабатывать полученные данные. А AdressOf - адрес этой процедуры в памяти по которому будет совершён переход в случае срабатывания.
Т.е. в hEvent As Long должен стоять адрес твоей процедуры, которая обработает событие изменения значения в реестре.
Коряво конечно, но думаю я правильно понял код.

[GSerg]

Нет. Хотя код и пытается передать туда некий адрес, быть его там не может. Только HANDLE, и только от event'а.

[Sebas]

Кусок кода вырезан, нету функции ожидания после создания объекта оповещения...

[GSerg]

Почему?
RegNotifyChangeKeyValue и есть функция ожидания.

[Memfivosfey]

GSerg

А почему когда она выполняеться, весь проект в полном висяке?

[GSerg]

Потому что так и должно быть.

Ты что, так и не посмотрел тот линк, который я дал?

[Memfivosfey]

GSerg Дружище, я посмотрел твой линк и закачал , но дело в том, что я сейчас на работе.... Поэтому приходиться делать хитро, я весь день собираю инфу, а после дома, разгребаюсь и разбираюсь... Я уже распечатал около 10 страниц....

У меня задача, если реально, отследить любые, даже самые малые изменения по всему реестру. И если не предотвратить изменения, то хотя бы сразу убить!

Мне приходит сейчас в голову только рекурсия...... Хотя я совершенно не представляю, какой будет скорость?

Поэтому если есть идеи, как я могу в дальнейшем, как можно качественнее использовать твой контрол, что задействовать и т.п. пиши.... у меня в переди выходные.....