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

[GenoTIP]

В общем написал програмку, она много тыкает по кнопкам в скрытом GUI с помощью IE, в общем все скрыто и аккуратно, а звук перехода по ссылкам слышен, нужно убрать как-то!

 

[Viktor1703]

Не знаю других вариантов, может и есть что попроще, но попробуйте что - то вроде этого:

Send('{VOLUME_MUTE}')
SoundPlay(@ScriptDir & '\andrea_-_haide_opa.mp3')
Sleep(10000)
Send('{VOLUME_MUTE}')

Команду для щёлкания по кнопкам и перехода по ссылкам вставляйте между Send('{VOLUME_MUTE}')

 

[GenoTIP]

А можно на время выполнения скрипта в регистре поменять (удалить) ссылку на файл воспроизводящийся при навигации?

 

[Viktor1703]

Сейчас гляну в реестре, имеется ли там такая запись..


Добавлено:

Сообщение автоматически объединено: 6 Фев 2012

Такая запись имеется

HKEY_USERS\S-1-5-21-1547161642-776561741-842925246-1000\AppEvents\Schemes\Apps\Explorer\Navigating\.Current

 

[DarWiM]

Да, сам столкнулся с проблемой.. А можно как-то через мишкер?

 

[Viktor1703]

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

;~ Код

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

Работает

 

[DarWiM]

Viktor1703, это выключает все звуки?

 

[Viktor1703]

Нет, это выключает звук щёлкания в IE, всё остальное работает

 

[DarWiM]

А вроде в обычном окне IE щелчков нету. Или только у меня.. Но при использовании _IECreateEmbedded () щелчки точно есть..

 

[Viktor1703]

В обычном IE тоже есть, с помощью него я и проверял работу примера

 

[DarWiM]

а в конце нужно возвращать значение по умолчанию?

 

[Arei]

OffTopic:
по желанию.

 

[Viktor1703]

Если хотите чтоб в IE воспроизводился звук для перехода по ссылкам, то конечно нужно, тем более если скрипт будет использоватся не только на вашем компьютере, то обязательно после работы скрипта верните всё на место, а то юзер запаникует.

 

[DarWiM]

Покажите, как вернуть обратно

 

[Viktor1703]

В том примере это есть

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

Принцип работы такой:

1. Считываем значение из указанного ключа
2. Записываем новое значение в этот ключ, например 'no sound'
3. Выполняем наш скрипт
4. При выходи из программы возвращаем значение (которое мы считали) обратно

 

[DarWiM]

Viktor1703
не люблю работать с регистром, мало ли чего натварю)) спасибо за объяснения

 

[Viktor1703]

Для примера:

#Include <IE.au3>

$iKeySound = RegRead('HKEY_USERS\S-1-5-21-1547161642-776561741-842925246-1000\AppEvents\Schemes\Apps\Explorer\Navigating\.Current', '')
RegWrite('HKEY_USERS\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('HKEY_USERS\S-1-5-21-1547161642-776561741-842925246-1000\AppEvents\Schemes\Apps\Explorer\Navigating\.Current', '', 'REG_EXPAND_SZ', $iKeySound)
			Exit
	EndSwitch
WEnd

 

[DarWiM]

чёто не выключило звуки..((

 

[Viktor1703]

У Вас XP? и какая версия IE?

 

[DarWiM]

win 7, ie9
это имеет значение? хотелось бы универсальный способ...