1 (изменено: dokole, 2015-03-02 02:34:14)

Тема: VBS: отключение проигрывания звука в браузере+ внесение в автозапуск

Доброй ночи.
Надо доработать код, слабо представляю как это сделать...

Задачи:
1)отключить звук в браузере.
2)включить в автозапуск.

Пытался задать параметры для InternetExplorer.Application , видимо делал криво ..

Имеющийся код на данный момент:



Const navOpenInBackgroundTab = &H1000

Set ie = CreateObject("InternetExplorer.Application")

Links = Array("http://ya.ru/", "http://ya.ru/")

ie.Visible = falce '

first = True
For Each link In Links
If first Then
ie.Navigate2 link
first = False
Else
ie.Navigate2 link, navOpenInBackgroundTab
End If
Next


For Each Window In CreateObject("Shell.Application").Windows
With Window
If .Name = "Windows Internet Explorer" Then
For Each link In Links
If InStr(1, .LocationURL, Title, vbTextCompare) <> 0 Then
.Quit
Exit For
End If
Next
End If
End With
Next

2 (изменено: dokole, 2015-03-01 15:47:10)

Re: VBS: отключение проигрывания звука в браузере+ внесение в автозапуск

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

3

Re: VBS: отключение проигрывания звука в браузере+ внесение в автозапуск

Ознакомьтесь с Обязательно прочитать перед созданием темы!.

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

4

Re: VBS: отключение проигрывания звука в браузере+ внесение в автозапуск

dokole, зачем тут скрипты? Вызываем inetcpl.cpl, на вкладке Дополнительно в блоке Мультимедиа снимаем галку с Воспроизводить звуки на веб-страницах.

5

Re: VBS: отключение проигрывания звука в браузере+ внесение в автозапуск

Flasher пишет:

dokole, зачем тут скрипты? Вызываем inetcpl.cpl, на вкладке Дополнительно в блоке Мультимедиа снимаем галку с Воспроизводить звуки на веб-страницах.

Это понятно, но тут задача в изменении параметра именно в автоматизированном режиме.

6 (изменено: Flasher, 2015-03-01 22:31:11)

Re: VBS: отключение проигрывания звука в браузере+ внесение в автозапуск

dokole
Тогда просто пишем в реестр:

CreateObject("WScript.Shell").RegWrite "HKCU\Software\Microsoft\Internet Explorer\Main\Play_Background_Sounds", "no", "REG_SZ"
+ открыть спойлер

Да, не обратил сразу внимания, что заголовок по-прежнему не отражает суть задачи. Исправляйтесь.

7 (изменено: dokole, 2015-03-02 06:16:02)

Re: VBS: отключение проигрывания звука в браузере+ внесение в автозапуск

Flasher пишет:

dokole
Тогда просто пишем в реестр:

CreateObject("WScript.Shell").RegWrite "HKCU\Software\Microsoft\Internet Explorer\Main\Play_Background_Sounds", "no", "REG_SZ"
+ открыть спойлер

Да, не обратил сразу внимания, что заголовок по-прежнему не отражает суть задачи. Исправляйтесь.

Благодарю! Решение работает на WIN 8.1 , WIN 8 и WIN 7 .

Вопрос с внесением в автозагрузку до сих пор открыт ...
Появилась идея просто скопировать скрипт в папку "автозагрузка".
Проблема в том, как прописать копирование для каждой операционной системы отдельно.

8

Re: VBS: отключение проигрывания звука в браузере+ внесение в автозапуск

dokole
А зачем при каждом входе писать в реестр уже существующее значение?
И где эти операционные системы? Как к ним осуществляется доступ?