HiAsm
HiAsm
Вверх ↑
ФорумыНовые компонентыRegistryChanges ← Ctrl12Ctrl →
Этот топик читают: Гость
Гость
Ответов: 17029
Рейтинг: 0
#1: 2010-08-14 18:19:48 правка | ЛС | профиль | цитата


Редактировалось 5 раз(а), последний 2021-06-24 07:25:57
карма: 0

0
vip
#1.1контекстная реклама от партнеров
Администрация
Ответов: 15294
Рейтинг: 1518
#2: 2010-08-14 18:43:02 ЛС | профиль | цитата
УК РФ такие компоненты писать не запрещено, следовательно возможность есть.
карма: 26
https://hiasm.com
0
Гость
Ответов: 17029
Рейтинг: 0
#3: 2010-08-14 19:01:53 правка | ЛС | профиль | цитата


Редактировалось 5 раз(а), последний 2021-06-24 07:24:24
карма: 0

0
Ответов: 582
Рейтинг: 3
#4: 2010-08-14 20:27:19 ЛС | профиль | цитата
Кстати идея хорошая, ждем ответа(Сделай сам- не считается )
карма: 0

0
Главный модератор
Ответов: 2997
Рейтинг: 395
#5: 2010-08-14 20:53:23 ЛС | профиль | цитата
Через WMI можно подписаться на события доступа к реестру. Это означает что можно не делать компонент, а использовать существующий VBJScript. Если возникает вопрос как, то ответ читайте чуть ниже.
карма: 6
Дорогу осилит идущий. Install/Update HiAsm.NET
0
Ответов: 582
Рейтинг: 3
#6: 2010-08-14 20:59:07 ЛС | профиль | цитата
Читаем
Дорогу осилит идущий
Удалить | Переместить | Избранное | Аттачи | Наверх
и тд
Нету ответа
карма: 0

0
Ответов: 3851
Рейтинг: 159
#7: 2010-08-14 21:11:30 ЛС | профиль | цитата
ruzik писал(а):
Нету ответа

а это Дорогу осилит идущий что?
карма: 0
начавший
0
Ответов: 582
Рейтинг: 3
#8: 2010-08-14 21:15:01 ЛС | профиль | цитата
Andrey, ну как бы я пошутил
карма: 0

0
Ответов: 3851
Рейтинг: 159
#9: 2010-08-14 21:39:57 ЛС | профиль | цитата

ruzik, видимо моё сознание, будучи в несколько изменённом состоянии, непрямые ссыл..., тьфу шутки не воспринимает
будем опыт нарабатывать
карма: 0
начавший
0
Главный модератор
Ответов: 2997
Рейтинг: 395
#10: 2010-08-15 10:14:27 ЛС | профиль | цитата
Monitoring Registry Subkey Events

Temporary event consumer that monitors the registry for any changes to HKLM\SOFTWARE\Microsoft\Windows NT\CurrentVersion.
Мониторинг ключа


#bas
Set wmiServices = GetObject("winmgmts:root/default") 
Set wmiSink = WScript.CreateObject("WbemScripting.SWbemSink", "SINK_") 
 
 
wmiServices.ExecNotificationQueryAsync wmiSink, _ 
  "SELECT * FROM RegistryKeyChangeEvent WHERE Hive='HKEY_LOCAL_MACHINE' AND " & _ 
    "KeyPath='SOFTWARE\\Microsoft\\Windows NT\\CurrentVersion'" 
 
WScript.Echo "Listening for Registry Change Events..." & vbCrLf 
 
While(1) 
    WScript.Sleep 1000 
Wend 
 
Sub SINK_OnObjectReady(wmiObject, wmiAsyncContext) 
    WScript.Echo "Received Registry Change Event" & vbCrLf & _ 
                 "------------------------------" & vbCrLf & _ 
                 wmiObject.GetObjectText_() 
End Sub
Monitoring Registry Subtree Events

Temporary event consumer that monitors the registry for any changes to HKLM.
Мониторинг ветки реестра


#bas
Set wmiServices = GetObject("winmgmts:root/default") 
Set wmiSink = WScript.CreateObject("WbemScripting.SWbemSink", "SINK_") 
 
wmiServices.ExecNotificationQueryAsync wmiSink, _ 
    "SELECT * FROM RegistryTreeChangeEvent WHERE Hive= " _
        & "'HKEY_LOCAL_MACHINE' AND RootPath=''" 
 
 
WScript.Echo "Listening for Registry Change Events..." & vbCrLf 
 
While(1) 
    WScript.Sleep 1000 
Wend 
 
Sub SINK_OnObjectReady(wmiObject, wmiAsyncContext) 
    WScript.Echo "Received Registry Change Event" & vbCrLf & _ 
                 "------------------------------" & vbCrLf & _ 
                 wmiObject.GetObjectText_() 
End Sub
карма: 6
Дорогу осилит идущий. Install/Update HiAsm.NET
0
Ответов: 582
Рейтинг: 3
#11: 2010-08-15 12:24:23 ЛС | профиль | цитата
Ну так значит и в компонент это запихать не трудно
карма: 0

0
Разработчик
Ответов: 26069
Рейтинг: 2122
#12: 2010-08-15 12:35:56 ЛС | профиль | цитата
ruzik писал(а):
Ну так значит и в компонент это запихать не трудно

Трудно. Компоненты написаны на Delphi, а скрипт на VB
карма: 22

0
Ответов: 582
Рейтинг: 3
#13: 2010-08-15 12:49:32 ЛС | профиль | цитата
А ну тогда, все зависит от вас
карма: 0

0
Разработчик
Ответов: 26069
Рейтинг: 2122
#14: 2010-08-15 13:05:16 ЛС | профиль | цитата
Я, к примеру, не собираюсь этим заниматься. Может, Assasin подпишется
карма: 22

0
Ответов: 3349
Рейтинг: 233
#15: 2010-08-15 13:34:14 ЛС | профиль | цитата
Есть функция и в delphi.
RegNotifyChangeKeyValue
карма: 1

0
ФорумыНовые компонентыRegistryChanges ← Ctrl12Ctrl →
Сообщение
...
Прикрепленные файлы
(файлы не залиты)
HiAsm Studio 2003 - 2020
Пользовательское соглашение | support@hiasm.com
Яндекс.Метрика