Дополнительные функции для работы с реестром

Yashied · 8 Окт 2010

В первом случае - Unicode.

Код:

FileOpen($sFile, 2 + 32)

Yashied · 8 Окт 2010

Во втором случае FileClose("r.reg") вообще лишний.

:smile:

assch · 8 Окт 2010

Вот что с вашей большой помощью удалось сделать
Функция для снятия ключей реестра
За основу взял ваши функции.
Пришлось комбинировать снимать двумя способами.
Ваша функция отлично снимает ключи на ветки HKCR -13 секунд против 57 секунд.
А вот на остальных ветках отстаёт например ветку HKLM -17 секунд против 4 секунд.
Не беда как говорится одна голова хорошо а две лучше.
Не посмотрите на предмет оптимизации?

Код:

#Include <Constants.au3>            
#Include <WinAPIEx.au3>

Global $Array1,$Array2,$Array3,$Array4

$sReg = _RegExportEx('HKEY_CLASSES_ROOT')
FileWrite("HKCR.txt", $sReg)

_KeyList1("HKEY_CURRENT_USER")
FileWrite("HKCU.txt", "HKEY_CURRENT_USER" & @CRLF)
FileWrite("HKCU.txt", $Array1)

_KeyList2("HKEY_LOCAL_MACHINE")
FileWrite("HKLM.txt", "HKEY_LOCAL_MACHINE" & @CRLF)
FileWrite("HKLM.txt", $Array2)

_KeyList3("HKEY_USERS")
FileWrite("HKU.txt", "HKEY_USERS" & @CRLF)
FileWrite("HKU.txt", $Array3)

_KeyList4("HKEY_CURRENT_CONFIG")
FileWrite("HKCC.txt", "HKEY_CURRENT_CONFIG" & @CRLF)
FileWrite("HKCC.txt", $Array4)

Func _RegExportEx($sKey, $fAssurance = 0)
    Local $tData, $hRoot,$sReg = '', $Error = 1, $sRoot = $sKey
    $sKey = StringTrimLeft($sKey, StringLen($sRoot) + 1)
    Do
        $hRoot = _WinAPI_RegOpenKey(Eval($sRoot), $sKey, BitOR($KEY_ENUMERATE_SUB_KEYS, $KEY_QUERY_VALUE))
        If @error Then
            ExitLoop
        EndIf
        $tData = DllStructCreate('byte[1048576]')
        If Not _RegEnumProc($hRoot, StringRegExpReplace($sRoot & '\' & $sKey, '\\*\Z', ''), $fAssurance, $sReg, $tData) Then
            ExitLoop
        EndIf
        $Error = 0
    Until 1
    If $Error Then
        Switch @extended
            Case 0
                $Error = -1
            Case Else
                $Error = @extended
        EndSwitch
    EndIf
    If $hRoot Then
        _WinAPI_RegCloseKey($hRoot)
    EndIf
    If $Error Then
        Return SetError(2, $Error, '')
    EndIf
    
    Return $sReg
EndFunc  

Func _RegEnumProc($hRoot, $sRoot, $fAssurance, ByRef $sData, ByRef $tData, $sParam = 0)

    Local $hKey, $sKey, $sVal, $Pos, $Size, $Type
    Local $pData = DllStructGetPtr($tData)
    Local $Count = 0, $Error = 0

    If $sParam Then
        $sData &= $sRoot & '\' & $sParam  & @CRLF
    Else
        $sData = $sRoot  & @CRLF
    EndIf

    While 1
        $sKey = _WinAPI_RegEnumKey($hRoot, $Count)
        If @error Then
            Switch @extended
                Case 259 
                    ExitLoop
                Case Else
                    Return SetError(1, @extended, 0)
            EndSwitch
        EndIf
        $hKey = _WinAPI_RegOpenKey($hRoot, $sKey, BitOR($KEY_ENUMERATE_SUB_KEYS, $KEY_QUERY_VALUE))
        If @error Then
            If $fAssurance Then
                Return SetError(1, @extended, 0)
            EndIf
        Else
            If $sParam Then
                _RegEnumProc($hKey, $sRoot, $fAssurance, $sData, $tData, $sParam & '\' & $sKey)
            Else
                _RegEnumProc($hKey, $sRoot, $fAssurance, $sData, $tData, $sKey)
            EndIf
            If @error Then
                Switch @extended
                    Case 0
                        $Error = -1
                    Case Else
                        $Error = @extended
                EndSwitch
            EndIf
        EndIf
        If $hKey Then
            _WinAPI_RegCloseKey($hKey)
        EndIf
        $Count += 1
        If $Error Then
            ExitLoop
        EndIf
    WEnd
    If $Error Then
        Return SetError(1, $Error, 0)
    Else
        Return 1
    EndIf
EndFunc

Func _KeyList1($key)
$i = 1
While 1
$var = RegEnumKey($key, $i)
If @error <> 0 then ExitLoop 
$Array1 &= $key&"\"&$var & @CRLF
$i = $i + 1
_KeyList1($key&"\"&$var)             
WEnd   
EndFunc

Func _KeyList2($key)
$i = 1
While 1
$var = RegEnumKey($key, $i)
If @error <> 0 then ExitLoop 
$Array2 &= $key&"\"&$var & @CRLF
$i = $i + 1
_KeyList2($key&"\"&$var)             
WEnd   
EndFunc

Func _KeyList3($key)
$i = 1
While 1
$var = RegEnumKey($key, $i)
If @error <> 0 then ExitLoop 
$Array3 &= $key&"\"&$var & @CRLF
$i = $i + 1
_KeyList3($key&"\"&$var)             
WEnd   
EndFunc

Func _KeyList4($key)
$i = 1
While 1
$var = RegEnumKey($key, $i)
If @error <> 0 then ExitLoop 
$Array4 &= $key&"\"&$var & @CRLF
$i = $i + 1
_KeyList4($key&"\"&$var)             
WEnd   
EndFunc

Yashied · 9 Окт 2010

assch сказал(а):
Ваша функция отлично снимает ключи на ветки HKCR -13 секунд против 57 секунд.
А вот на остальных ветках отстаёт например ветку HKLM -17 секунд против 4 секунд.

Я не знаю почему так происходит. Даже разработчики AutoIt ничего путного по этому поводу не смогли сказать. Остается использовать RegEnumKey() для перечисления разделов в тех ветвях, где _WinAPI_RegEnumKey() проигрывает. Но я думаю, что такое положение вещей будет иметь место только для перечисления разделов. Если перечислять переменные, то RegEnumVal(), будет значительно уступать _WinAPI_RegEnumValue().
Добавлено:
Сообщение автоматически объединено: 9 Окт 2010

По поводу оптимизации. Я советую тебе присмотреться к функции _WinAPI_RegQueryLastWriteTime(). Ее очень удобно использовать перед перечислением переменных в каждом разделе. Если любой параметр в опрашиваемом разделе изменится, будет удален или добавлен, то измениться соответственно и время последней модификации раздела. Чтобы лишний раз не перечислять переменные и считывать их значения, можно сравнить только времена модификаций. Это должно существенно повысить скорость сравнения снимков разделов реестра.

assch · 9 Окт 2010

Для этого как минимум нужно вытащить и записать значения последней модификации хотя бы ключей первой вложенности.
Кстати ключи первой вложенности любой ветки реестра можно вытащить и записать практически мнгновенно. Не исключено что такой метод повысит скорость выявления изменений в реестре. А вот как приспособить функцию _WinAPI_RegQueryLastWriteTime()
чтобы сделать список последней модификации этих ключей?

assch · 15 Окт 2010

Yashied

Есть функция RegNotifyChangeKeyValue
В твоей библиотеке WinAPIEx.au3 её нет. Не подскажешь как с ней работать?
По описанию и параметрам вроде бы тоже заточена для отслеживания изменений в реестре.
Не большое описание:

В недрах Windows существует одна маленькая API-функция, которая извещает вызвавшую ее программу об изменении определенного ключа. Вот ее описание:

LONG RegNotifyChangeKeyValue(HKEY hKey, BOOL bWatchSubtree, DWORD dwNotifyFilter, HANDLE hEvent, BOOL fAsynchronous);

Здесь hKey – это хэндл ключа реестра. В нашем случае это будет хэндл ключа HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Run. bWatchSubtree должен быть равен TRUE, если мы хотим следить не только за HKLM\...\Run, но и за всеми его подключами. dwNotifyFilter задает категорию изменений, при которых функция будет срабатывать. Для секции автозагрузки нам следует передать в этом параметре REG_NOTIFY_CHANGE_LAST_SET, вследствие чего мы будем мониторить только изменения параметров соответствующего ключа. hEvent – это хэндл объекта «событие», о котором я расскажу чуть позже. Последний параметр следует установить в TRUE, чтобы реагировать на событие. В случае удачного выполнения функция должна вернуть значение ERROR_SUCCESS.

Попробывал коряво её собрать но скорее всего не правильно.

Код:

#Include <WinAPIEx.au3>

$hKey = _WinAPI_RegOpenKey($HKEY_CLASSES_ROOT, ".djvu")
DllCall ( "Advapi32.dll", "int", "RegNotifyChangeKeyValue", "hwnd", $hKey, "int", TRUE, "int", 0x00000001, "int", FALSE, "int", TRUE)

Yashied · 15 Окт 2010

Там, откуда ты взял это описание, очень подробно рассказано, как работать с этой функцией. В AutoIt, использовать ее будет проблематично, т.к. не поддерживаются потоки. Скрипт будет все время в "зависшем" состоянии, ожидая изменений в реестре.

assch · 15 Окт 2010

Извини Yashied
Я просто думал что с её помощью тоже можно снять какие то данные и при втором заходе сравнить ,но если нельзя значит нельзя.
По твоему совету попробывал приспособить функцию _WinAPI_RegQueryLastWriteTime()
Посмотри пожалуйста может что то не так или что то лишнее.

Код:

#Include <WinAPIEx.au3>

$a = "HKEY_LOCAL_MACHINE"
Global $sData

_KeyList($a)
$Txt = FileOpen("1.txt",2)
FileWrite($Txt, $sData)
FileClose($Txt)

Func _KeyList($key)
$i = 1
While 1
$var = RegEnumKey($key, $i)
If @error <> 0 then ExitLoop 
$Array = $key&"\"& $var 
$w1 = StringInStr($Array,"\",0,1)
$w2 = StringTrimLeft($Array, $w1)
$hKey = _WinAPI_RegOpenKey($HKEY_LOCAL_MACHINE, $w2)
$tTime = _WinAPI_RegQueryLastWriteTime($hKey)
_WinAPI_RegCloseKey($hKey)
$sData &= $a & '\' & $w2 & '\' & DllStructGetData($tTime, 1) & @CRLF
$i = $i + 1
_KeyList($key&"\"&$var)             
WEnd   
EndFunc

Yashied · 25 Окт 2010

assch сказал(а):
Есть функция RegNotifyChangeKeyValue()...

Немного поздно, но...

Код:

Global Const $REG_NOTIFY_CHANGE_NAME = 0x01
Global Const $REG_NOTIFY_CHANGE_ATTRIBUTES = 0x02
Global Const $REG_NOTIFY_CHANGE_LAST_SET = 0x04
Global Const $REG_NOTIFY_CHANGE_SECURITY = 0x08

; #FUNCTION# ====================================================================================================================
; Name...........: _WinAPI_RegNotifyChangeKeyValue
; Description....: Notifies the caller about changes to the attributes or contents of a specified registry key.
; Syntax.........: _WinAPI_RegNotifyChangeKeyValue ( $hKey, $iFilter [, $fSubtree [, $fAsync [, $hEvent]]] )
; Parameters.....: $hKey     - Handle to an open registry key. The key must have been opened with the KEY_NOTIFY access right.
;                              This handle is returned by the _WinAPI_RegCreateKey() or _WinAPI_RegOpenKey() function. It can also
;                              be one of the following predefined keys.
;
;                              $HKEY_CLASSES_ROOT
;                              $HKEY_CURRENT_CONFIG
;                              $HKEY_CURRENT_USER
;                              $HKEY_LOCAL_MACHINE
;                              $HKEY_USERS
;
;                  $iFilter  - Indicates the changes that should be reported. This parameter can be one or more of the following values.
;
;                              $REG_NOTIFY_CHANGE_NAME
;                              $REG_NOTIFY_CHANGE_ATTRIBUTES
;                              $REG_NOTIFY_CHANGE_LAST_SET
;                              $REG_NOTIFY_CHANGE_SECURITY
;
;                  $fSubtree - Specifies whether report changes in the subkeys of the specified key, valid values:
;                  |TRUE     - The function reports changes in the specified key and all its subkeys.
;                  |FALSE    - The function reports changes only in the specified key. (Default)
;                  $fAsync   - Specifies whether return immediately, valid values:
;                  |TRUE     - The function returns immediately and reports changes by signaling the specified event.
;                  |FALSE    - The function does not return until a change has occurred. (Default)
;                  $hEvent   - Handle to an event. If the $fAsync parameter is TRUE, the function returns immediately and changes are
;                              reported by signaling this event, otherwise this parameter is ignored.
; Return values..: Success   - 1.
;                  Failure   - 0 and sets the @error flag to non-zero, @extended flag may contain the system error code.
; Author.........: Yashied
; Modified.......:
; Remarks........: If the specified key is closed, the event is signaled. This means that an application should not depend on the
;                  key being open after returning from a wait operation on the event.
; Related........:
; Link...........: @@MsdnLink@@ RegNotifyChangeKeyValue
; Example........: Yes
; ===============================================================================================================================

Func _WinAPI_RegNotifyChangeKeyValue_($hKey, $iFilter, $fSubtree = 0, $fAsync = 0, $hEvent = 0)

    Local $Ret = DllCall('advapi32.dll', 'long', 'RegNotifyChangeKeyValue', 'ulong_ptr', $hKey, 'int', $fSubtree, 'dword', $iFilter, 'ptr', $hEvent, 'int', $fAsync)

    If @error Then
        Return SetError(1, 0, 0)
    Else
        If $Ret[0] Then
            Return SetError(1, $Ret[0], 0)
        EndIf
    EndIf
    Return 1
EndFunc   ;==>_WinAPI_RegNotifyChangeKeyValue

#Include <WinAPIEx.au3>

$hKey = _WinAPI_RegOpenKey($HKEY_CURRENT_USER, 'Software\Microsoft\Windows\CurrentVersion\Run', $KEY_NOTIFY)
If _WinAPI_RegNotifyChangeKeyValue_($hKey, $REG_NOTIFY_CHANGE_LAST_SET) Then
    MsgBox(48, 'Registry', 'The registry hive has been modified.' & @CR & @CR & 'HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Run')
EndIf
_WinAPI_RegCloseKey($hKey)

Во время ожидания изменений, скрипт будет приостановлен. Возможно лучше будет запустить эту функцию в отдельном процессе, и при изменениях в соответствующем ключе, он (процесс) будет сигнализировать об этом в основную программу.

assch · 26 Окт 2010

Yashied не подскажешь какое значение можно подставить вместо фильтра $REG_NOTIFY_CHANGE_LAST_SET а то выдаёт ошибку

C:\Documents and Settings\??????\??????? ????\d.au3 (58) : ==> Variable used without being declared.:
If _WinAPI_RegNotifyChangeKeyValue_($hKey, $REG_NOTIFY_CHANGE_LAST_SET) Then
If _WinAPI_RegNotifyChangeKeyValue_($hKey, ^ ERROR

Yashied · 26 Окт 2010

Поправил. См. предыдущий пост.

assch · 26 Окт 2010

Yashied Отлично!!!
Попробывал свой торент поставить на авто загрузку. Скрипт среагировал мнгновенно.
Интересно если этот скрипт поставить на авто загрузку как ты думаешь он не сильно будет мешать виндам.
И ещё при запуске как и положено в трее виснет иконка, только как сделать чтобы можно было бы выключать
скрипт(а то если что гасить процесс из Диспетчера задач чуть чуть не удобно) А так просто изумительно.
Чуть доработать на предмет действий при срабатывании скрипта и одназначно это полезняшка.

Yashied · 26 Окт 2010

Можно как-то так:

Код:

#NoTrayIcon

#Include <WinAPIEx.au3>
#Include <WindowsConstants.au3>

Opt('MustDeclareVars', 1)
Opt('TrayMenuMode', 3)
Opt('WinTitleMatchMode', 3)
Opt('WinWaitDelay', 0)

Global Const $REG_NOTIFY_CHANGE_NAME = 0x01
Global Const $REG_NOTIFY_CHANGE_ATTRIBUTES = 0x02
Global Const $REG_NOTIFY_CHANGE_LAST_SET = 0x04
Global Const $REG_NOTIFY_CHANGE_SECURITY = 0x08

Global $hKey, $tData

If ($CmdLine[0]) And ($CmdLine[1] = '-notify') Then
	$hKey = _WinAPI_RegOpenKey($HKEY_CURRENT_USER, 'Software\Microsoft\Windows\CurrentVersion\Run', $KEY_NOTIFY)
	If _WinAPI_RegNotifyChangeKeyValue_($hKey, $REG_NOTIFY_CHANGE_LAST_SET) Then
		$tData = DllStructCreate('ulong_ptr;dword;ptr')
		For $i = 1 To 3
			DllStructSetData($tData, $i, 0)
		Next
		DllCall('user32.dll', 'lresult', 'SendMessage', 'hwnd', WinGetHandle('#RegHelper'), 'uint', $WM_COPYDATA, 'ptr', 0, 'ptr', DllStructGetPtr($tData))
	EndIf
	_WinAPI_RegCloseKey($hKey)
	Exit
EndIf

Global $hForm, $Msg, $ItemExit, $PID, $Notify = False

$hForm = GUICreate('#RegHelper')
GUIRegisterMsg($WM_COPYDATA, 'WM_COPYDATA')
$ItemExit = TrayCreateItem('Exit')
TraySetClick(8)
TraySetState()

$PID = Run(@ScriptFullPath & ' -notify')

While 1
	If $Notify Then
		$Notify = 0
		$PID = Run(@ScriptFullPath & ' -notify')
		Run(@AutoItExe & ' /AutoIt3ExecuteLine "MsgBox(48, ''Registry'', ''The registry hive has been modified.'', 5)"')
	EndIf
	$Msg = TrayGetMsg()
	Switch $Msg
		Case $ItemExit
			ProcessClose($PID)
			Exit
	EndSwitch
WEnd

Func _WinAPI_RegNotifyChangeKeyValue_($hKey, $iFilter, $fSubtree = 0, $fAsync = 0, $hEvent = 0)

    Local $Ret = DllCall('advapi32.dll', 'long', 'RegNotifyChangeKeyValue', 'ulong_ptr', $hKey, 'int', $fSubtree, 'dword', $iFilter, 'ptr', $hEvent, 'int', $fAsync)

    If @error Then
        Return SetError(1, 0, 0)
    Else
        If $Ret[0] Then
            Return SetError(1, $Ret[0], 0)
        EndIf
    EndIf
    Return 1
EndFunc   ;==>_WinAPI_RegNotifyChangeKeyValue

Func WM_COPYDATA($hWnd, $iMsg, $wParam, $lParam)
	Switch $hWnd
		Case 0

		Case $hForm
			$Notify = 1
			Return 1
	EndSwitch
	Return 0
EndFunc   ;==>WM_COPYDATA

Только сначала откомпилируй его в .exe файл!

P.S

Если бы AutoIt поддерживал потоки, то все было бы намного проще...

assch · 26 Окт 2010

Интересно как можно при сигнале этого скрипта посмотреть что именно прописалось
ну и соответственно удалить непрошенную запись

Yashied · 29 Окт 2010

Последний скрипт можно написать проще (как-то я упустил это из виду):

Код:

#Include <WinAPIEx.au3>

Opt('MustDeclareVars', 1)

Global $hKey, $hEvent

$hEvent = _WinAPI_CreateEvent()
$hKey = _WinAPI_RegOpenKey($HKEY_CURRENT_USER, 'Software\Microsoft\Windows\CurrentVersion\Run', $KEY_NOTIFY)
If Not _WinAPI_RegNotifyChangeKeyValue($hKey, $REG_NOTIFY_CHANGE_LAST_SET, 0, 1, $hEvent) Then
	Exit
EndIf

While 1
	If Not _WinAPI_WaitForSingleObject($hEvent, 0) Then
		MsgBox(48, 'Registry', 'The registry hive has been modified.' & @CR & @CR & 'HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Run')
		ExitLoop
	EndIf
	Sleep(100)
WEnd

_WinAPI_CloseHandle($hEvent)
_WinAPI_RegCloseKey($hKey)

assch · 29 Окт 2010

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

Yashied · 30 Окт 2010

assch сказал(а):
Только когда закрываешь сигнальное окно, почему то зыкрывается сам скрипт.

Ну это просто пример. Вот:

Код:

#Include <NotifyBox.au3>
#Include <WinAPIEx.au3>

Opt('TrayAutoPause', 0)

Global Const $REG_NOTIFY_CHANGE_NAME = 0x01
Global Const $REG_NOTIFY_CHANGE_ATTRIBUTES = 0x02
Global Const $REG_NOTIFY_CHANGE_LAST_SET = 0x04
Global Const $REG_NOTIFY_CHANGE_SECURITY = 0x08

$hEvent = _WinAPI_CreateEvent()
$hKey = _WinAPI_RegOpenKey($HKEY_CURRENT_USER, 'Software\Microsoft\Windows\CurrentVersion\Run', $KEY_NOTIFY)
If Not _WinAPI_RegNotifyChangeKeyValue($hKey, $REG_NOTIFY_CHANGE_LAST_SET, 0, 1, $hEvent) Then
	Exit
EndIf

While 1
	If Not _WinAPI_WaitForSingleObject($hEvent, 0) Then
		_NotifyBox(48, 'Registry', 'The registry hive has been modified.' & @CR & @CR & 'HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Run', 5)
		If Not _WinAPI_RegNotifyChangeKeyValue($hKey, $REG_NOTIFY_CHANGE_LAST_SET, 0, 1, $hEvent) Then
			ExitLoop
		EndIf
	EndIf
	Sleep(100)
WEnd

_WinAPI_CloseHandle($hEvent)
_WinAPI_RegCloseKey($hKey)

Func _WinAPI_RegNotifyChangeKeyValue($hKey, $iFilter, $fSubtree = 0, $fAsync = 0, $hEvent = 0)

	Local $Ret = DllCall('advapi32.dll', 'long', 'RegNotifyChangeKeyValue', 'ulong_ptr', $hKey, 'int', $fSubtree, 'dword', $iFilter, 'ptr', $hEvent, 'int', $fAsync)

	If @error Then
		Return SetError(1, 0, 0)
	Else
		If $Ret[0] Then
			Return SetError(1, $Ret[0], 0)
		EndIf
	EndIf
	Return 1
EndFunc   ;==>_WinAPI_RegNotifyChangeKeyValue

NotifyBox.au3

assch · 30 Окт 2010

Yashied
Функция лежит в библиотеке WinAPIEx.au3?
А то последний скрипт без констант Global Const $REG_NOTIFY_CHANGE_LAST_SET = 0x04 не работает.
И в названии функции убери последнию чёрточку.
Func _WinAPI_RegNotifyChangeKeyValue_
А так отлично.

Yashied · 30 Окт 2010

assch сказал(а):
Функция лежит в библиотеке WinAPIEx.au3?

Будет в следующей версии.

araneon · 21 Янв 2011

Yashied сказал(а):

assch сказал(а):
Только когда закрываешь сигнальное окно, почему то зыкрывается сам скрипт.

Ну это просто пример. Вот:

Код:

#Include <NotifyBox.au3>
#Include <WinAPIEx.au3>

Opt('TrayAutoPause', 0)

Global Const $REG_NOTIFY_CHANGE_NAME = 0x01
Global Const $REG_NOTIFY_CHANGE_ATTRIBUTES = 0x02
Global Const $REG_NOTIFY_CHANGE_LAST_SET = 0x04
Global Const $REG_NOTIFY_CHANGE_SECURITY = 0x08

$hEvent = _WinAPI_CreateEvent()
$hKey = _WinAPI_RegOpenKey($HKEY_CURRENT_USER, 'Software\Microsoft\Windows\CurrentVersion\Run', $KEY_NOTIFY)
If Not _WinAPI_RegNotifyChangeKeyValue($hKey, $REG_NOTIFY_CHANGE_LAST_SET, 0, 1, $hEvent) Then
	Exit
EndIf

While 1
	If Not _WinAPI_WaitForSingleObject($hEvent, 0) Then
		_NotifyBox(48, 'Registry', 'The registry hive has been modified.' & @CR & @CR & 'HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Run', 5)
		If Not _WinAPI_RegNotifyChangeKeyValue($hKey, $REG_NOTIFY_CHANGE_LAST_SET, 0, 1, $hEvent) Then
			ExitLoop
		EndIf
	EndIf
	Sleep(100)
WEnd

_WinAPI_CloseHandle($hEvent)
_WinAPI_RegCloseKey($hKey)

Func _WinAPI_RegNotifyChangeKeyValue($hKey, $iFilter, $fSubtree = 0, $fAsync = 0, $hEvent = 0)

	Local $Ret = DllCall('advapi32.dll', 'long', 'RegNotifyChangeKeyValue', 'ulong_ptr', $hKey, 'int', $fSubtree, 'dword', $iFilter, 'ptr', $hEvent, 'int', $fAsync)

	If @error Then
		Return SetError(1, 0, 0)
	Else
		If $Ret[0] Then
			Return SetError(1, $Ret[0], 0)
		EndIf
	EndIf
	Return 1
EndFunc   ;==>_WinAPI_RegNotifyChangeKeyValue

NotifyBox.au3

Подскажите пожалуйста, почему при запуске или при компиляции в консоли пишет

Код:

D:\test1.au3(8,44) : ERROR: $REG_NOTIFY_CHANGE_NAME previously declared as a 'Const'
Global Const $REG_NOTIFY_CHANGE_NAME = 0x01
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~^
D:\test1.au3(9,50) : ERROR: $REG_NOTIFY_CHANGE_ATTRIBUTES previously declared as a 'Const'
Global Const $REG_NOTIFY_CHANGE_ATTRIBUTES = 0x02
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~^
D:\test1.au3(10,48) : ERROR: $REG_NOTIFY_CHANGE_LAST_SET previously declared as a 'Const'
Global Const $REG_NOTIFY_CHANGE_LAST_SET = 0x04
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~^
D:\test1.au3(11,48) : ERROR: $REG_NOTIFY_CHANGE_SECURITY previously declared as a 'Const'
Global Const $REG_NOTIFY_CHANGE_SECURITY = 0x08
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~^
D:\test1.au3(32,95) : ERROR: _WinAPI_RegNotifyChangeKeyValue() already defined.
Func _WinAPI_RegNotifyChangeKeyValue($hKey, $iFilter, $fSubtree = 0, $fAsync = 0, $hEvent = 0)

Автор темы	Похожие темы	Форум	Ответы	Дата
A	Вставить внутрь одной функции результат другой функции	Общие вопросы по AutoIt	3	10 Ноя 2024
A	Математика GMP.au3 дополнительные функции	Общие вопросы по AutoIt	14	5 Мар 2023
M	Клавиатура мышь как добавить дополнительные ходы	Стол заказов	3	6 Окт 2014
P	[Элементы GUI] как правильно создать дополнительные элементы GUI	GUI - Графический интерфейс пользователя	4	27 Янв 2014
E	[Мышь, клавиатура] Дополнительные горячие кнопки в сторонних приложениях. Как?	Общие вопросы по AutoIt	2	6 Фев 2011

Дополнительные функции для работы с реестром

Модератор

Модератор

Новичок

Модератор

Новичок

Новичок

Модератор

Новичок

Модератор

Новичок

Модератор

Новичок

Модератор

Новичок

Модератор

Новичок

Модератор

Новичок

Модератор

Новичок