Маскировка звука навигации в скрытом IE

[Viktor1703]

Система имеет значение, попробуйте так:

#Include <IE.au3>

$iKeySound = RegRead('HKU64\S-1-5-21-1547161642-776561741-842925246-1000\AppEvents\Schemes\Apps\Explorer\Navigating\.Current', '')
RegWrite('HKU64\S-1-5-21-1547161642-776561741-842925246-1000\AppEvents\Schemes\Apps\Explorer\Navigating\.Current', '', 'REG_EXPAND_SZ', '1')

_IEErrorHandlerRegister ()
$oIE = _IECreateEmbedded ()

$hForm = GUICreate('', 800, 600)
$GUIActiveX = GUICtrlCreateObj($oIE, 0, 0, 800, 600)
GUISetState()

_IENavigate ($oIE, "http://www.autoit-script.ru")

While 1
    Switch GUIGetMsg()
        Case -3
            RegWrite('HKU64\S-1-5-21-1547161642-776561741-842925246-1000\AppEvents\Schemes\Apps\Explorer\Navigating\.Current', '', 'REG_EXPAND_SZ', $iKeySound)
            Exit
    EndSwitch
WEnd

Если ваша система Win 7 или Vista следует после "HKEY_USERS" добавить 64 - "HKEY_USERS64" или "HKU64"

 

[DarWiM]

Всё-равно щелчки есть

 

[Viktor1703]

Возможно у Вас нет такого ключа в реестре, или у него иной путь

 

[DarWiM]

вот мой путь HKEY_USERS\S-1-5-21-2025811017-696295819-2148552192-1000\AppEvents\Schemes\Apps\Explorer\Navigating\.Current

а как сделать, чтоб скрипт сам путь определял?

 

[madmasles]

DarWiM,
Не проверял.

 

[DarWiM]

madmasles
Спасибо. Похоже на правду. Щас проверю

Не, не работает..

 

[Viktor1703]

А вы 64 дописывали?

Ключ реестра должен начинаться с одного из следующих слов "HKEY_LOCAL_MACHINE" ("HKLM"), "HKEY_USERS" ("HKU"), "HKEY_CURRENT_USER" ("HKCU"), "HKEY_CLASSES_ROOT" ("HKCR"), "HKEY_CURRENT_CONFIG" ("HKCC").


При работе в среде относящихся к 64-битовой, требуется дополнять названия разделов HK... суффиксом 64. Например, HKLM64.

 

[DarWiM]

Viktor1703
HKEY_USERS\S-1-5-21-2025811017-696295819-2148552192-1000\AppEvents\Schemes\Apps\Explorer\Navigating\.Current
это у меня заработало, но хотелось бы, чтоб стабильно работало на разных компьютерах

 

[Viktor1703]

Тогда проверяйте версию системы

#Include <IE.au3>

If @OSVersion = 'WIN_XP' Or @OSVersion = 'WIN_2000' Then
    $iKeySound = RegRead('HKU\S-1-5-21-1547161642-776561741-842925246-1000\AppEvents\Schemes\Apps\Explorer\Navigating\.Current', '')
    RegWrite('HKU\S-1-5-21-1547161642-776561741-842925246-1000\AppEvents\Schemes\Apps\Explorer\Navigating\.Current', '', 'REG_EXPAND_SZ', '1')
ElseIf @OSVersion = 'WIN_7' Or @OSVersion = 'WIN_VISTA' Then
	$iKeySound = RegRead('HKEY_USERS\S-1-5-21-2025811017-696295819-2148552192-1000\AppEvents\Schemes\Apps\Explorer\Navigating\.Current', '')
    RegWrite('HKEY_USERS\S-1-5-21-2025811017-696295819-2148552192-1000\AppEvents\Schemes\Apps\Explorer\Navigating\.Current', '', 'REG_EXPAND_SZ', '1')
EndIf

_IEErrorHandlerRegister ()
$oIE = _IECreateEmbedded ()

$hForm = GUICreate('', 800, 600)
$GUIActiveX = GUICtrlCreateObj($oIE, 0, 0, 800, 600)
GUISetState()

_IENavigate ($oIE, "http://www.autoit-script.ru")

While 1
	Switch GUIGetMsg()
		Case -3
			If @OSVersion = 'WIN_XP' Or @OSVersion = 'WIN_2000' Then
                RegWrite('HKU\S-1-5-21-1547161642-776561741-842925246-1000\AppEvents\Schemes\Apps\Explorer\Navigating\.Current', '', 'REG_EXPAND_SZ', $iKeySound)
			ElseIf @OSVersion = 'WIN_7' Or @OSVersion = 'WIN_VISTA' Then
                RegWrite('HKEY_USERS\S-1-5-21-2025811017-696295819-2148552192-1000\AppEvents\Schemes\Apps\Explorer\Navigating\.Current', '', 'REG_EXPAND_SZ', $iKeySound)
            EndIf
			Exit
	EndSwitch
WEnd

 

[DarWiM]

Viktor1703 [?]

_IEErrorHandlerRegister ()

Хорошо, спасибо. А вот это что делает?

 

[Viktor1703]

А это уже не относится к этой теме, про неё можно почитать тут

 

[DarWiM]

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

 

[Viktor1703]

Это уже Вам решать, использовать её или нет

 

[DarWiM]

Не зря боялся с реестром работать... Случайно запустил две копии скрипта.. В общем значение по умолчанию потеряно... Подскажите, какое оно? Я помню, там какой-то звуковой файл... :'(

 

[Zaramot]

Windows XP SP3:

Windows Vista Start.wav