Сообщений в теме: 10

[Atoxo]

Если вы хотите добавить голосовое оповещение при запуске шаблона или при выполнении какой-то функции без добавления звуковых файлов то вот как это можно сделать.

 

1. Создаём текстовой файл, кидаем его в корневую папку МП, меняем расширение на .vbs

и переименовываем например в voice.vbs

 

2. Открываем файл текстовым редактором и вставляем вот этот код.

Dim speaks, speech
 speaks="welcome to mini poster"
 Set speech=CreateObject("sapi.spvoice")
 speech.Speak speaks
 with speech
.Volume = 100
.Rate = 4
end with

Озвучено будет то, что написано во второй строке сверху в кавычках - welcome to mini poster

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

буквами на транслите. К примеру чтобы сказал "Привет" надо писать "preewet"

Для проверки озвучки запустите voice.vbs как обычный файл - два раза тыкнув мышью 

 

3. Затем в нужное вам место шаблона добавьте запуск этого файла::

 [RUN_FILE][Voice.vbs]

P.S.

Я знаю что это не добавляет никакого полезного функционала и засоряет шаблон лишним кодом и когда очень много шаблонов то это может мешать..

Но вот лично мне нравится что при запуске шаблона МП меня об этом оповещает голосом))

 

P,S,S,

Работает в версиях Винды от ХР и выше.

[Tony7]

Как по мне - идея хорошая, но тут кому как ...

[MrProfit]

Как по мне - идея хорошая, но тут кому как ...

Излишество это

 

зачем в комбайне рюшечки?

я давно уже решил

то что не приносит пользы МП

наф надо)))

 

Осталось прикрутить

пару светодиодов

и можно будет организовывать 

выездные дискотеки   

с музыкой и танцами

[MrProfit]

Если вы хотите добавить голосовое оповещение при запуске шаблона или при выполнении какой-то функции без добавления звуковых файлов то вот как это можно сделать.

 

1. Создаём текстовой файл, кидаем его в корневую папку МП, меняем расширение на .vbs

и переименовываем например в voice.vbs

 

2. Открываем файл текстовым редактором и вставляем вот этот код.

Dim speaks, speech
 speaks="welcome to mini poster"
 Set speech=CreateObject("sapi.spvoice")
 speech.Speak speaks
 with speech
.Volume = 100
.Rate = 4
end with

Озвучено будет то, что написано во второй строке сверху в кавычках - welcome to mini poster

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

буквами на транслите. К примеру чтобы сказал "Привет" надо писать "preewet"

Для проверки озвучки запустите voice.vbs как обычный файл - два раза тыкнув мышью 

 

3. Затем в нужное вам место шаблона добавьте запуск этого файла::

 [RUN_FILE][Voice.vbs]

P.S.

Я знаю что это не добавляет никакого полезного функционала и засоряет шаблон лишним кодом и когда очень много шаблонов то это может мешать..

Но вот лично мне нравится что при запуске шаблона МП меня об этом оповещает голосом))

И не забывай упомянуть версию Винды

[MrProfit]

Скрытый текст

 

Если вы хотите добавить голосовое оповещение при запуске шаблона или при выполнении какой-то функции без добавления звуковых файлов то вот как это можно сделать.

 

1. Создаём текстовой файл, кидаем его в корневую папку МП, меняем расширение на .vbs

и переименовываем например в voice.vbs

 

2. Открываем файл текстовым редактором и вставляем вот этот код.

Dim speaks, speech
 speaks="welcome to mini poster"
 Set speech=CreateObject("sapi.spvoice")
 speech.Speak speaks
 with speech
.Volume = 100
.Rate = 4
end with

Озвучено будет то, что написано во второй строке сверху в кавычках - welcome to mini poster

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

буквами на транслите. К примеру чтобы сказал "Привет" надо писать "preewet"

Для проверки озвучки запустите voice.vbs как обычный файл - два раза тыкнув мышью 

 

3. Затем в нужное вам место шаблона добавьте запуск этого файла::

 [RUN_FILE][Voice.vbs]

P.S.

Я знаю что это не добавляет никакого полезного функционала и засоряет шаблон лишним кодом и когда очень много шаблонов то это может мешать..

Но вот лично мне нравится что при запуске шаблона МП меня об этом оповещает голосом))

угу посреди ночи особенно)))

Это если 500 шабов

голова треснет слушать

 

но плюсик всеравно

хоть оно мне ненать

[Atoxo]

 

Скрытый текст

 

Если вы хотите добавить голосовое оповещение при запуске шаблона или при выполнении какой-то функции без добавления звуковых файлов то вот как это можно сделать.

 

1. Создаём текстовой файл, кидаем его в корневую папку МП, меняем расширение на .vbs

и переименовываем например в voice.vbs

 

2. Открываем файл текстовым редактором и вставляем вот этот код.

Dim speaks, speech
 speaks="welcome to mini poster"
 Set speech=CreateObject("sapi.spvoice")
 speech.Speak speaks
 with speech
.Volume = 100
.Rate = 4
end with

Озвучено будет то, что написано во второй строке сверху в кавычках - welcome to mini poster

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

буквами на транслите. К примеру чтобы сказал "Привет" надо писать "preewet"

Для проверки озвучки запустите voice.vbs как обычный файл - два раза тыкнув мышью 

 

3. Затем в нужное вам место шаблона добавьте запуск этого файла::

 [RUN_FILE][Voice.vbs]

P.S.

Я знаю что это не добавляет никакого полезного функционала и засоряет шаблон лишним кодом и когда очень много шаблонов то это может мешать..

Но вот лично мне нравится что при запуске шаблона МП меня об этом оповещает голосом))

угу посреди ночи особенно)))

Это если 500 шабов

голова треснет слушать

 

Но я же так и написал))

когда очень много шаблонов то это может мешать.

 

Версии Винды добавил.

[Atoxo]

Бродил по Ютубу в поисках инфы по написанию шаблонов для МП и вдруг наткнулся на весьма любопытный видос.

Оказывается не только я хернёй страдаю с голосовой озвучкой.

https://www.youtube....NVbcCGfY2

 

И кстати если кто знает норм видеокурс по написанию шаблонов для МП то скиньте ссылку если не трудно.

[Tony7]

Скрытый текст

Если вы хотите добавить голосовое оповещение при запуске шаблона или при выполнении какой-то функции без добавления звуковых файлов то вот как это можно сделать.

1. Создаём текстовой файл, кидаем его в корневую папку МП, меняем расширение на .vbs
и переименовываем например в voice.vbs

2. Открываем файл текстовым редактором и вставляем вот этот код.

Dim speaks, speech
 speaks="welcome to mini poster"
 Set speech=CreateObject("sapi.spvoice")
 speech.Speak speaks
 with speech
.Volume = 100
.Rate = 4
end with

Озвучено будет то, что написано во второй строке сверху в кавычках - welcome to mini poster
Можно сделать и русскую озвучку но писать надо только английскими
буквами на транслите. К примеру чтобы сказал "Привет" надо писать "preewet"
Для проверки озвучки запустите voice.vbs как обычный файл - два раза тыкнув мышью

3. Затем в нужное вам место шаблона добавьте запуск этого файла::

 [RUN_FILE][Voice.vbs]

P.S.
Я знаю что это не добавляет никакого полезного функционала и засоряет шаблон лишним кодом и когда очень много шаблонов то это может мешать..

Но вот лично мне нравится что при запуске шаблона МП меня об этом оповещает голосом))

угу посреди ночи особенно)))
Это если 500 шабов
голова треснет слушать

но плюсик всеравно
хоть оно мне ненать

Вот тут я с тобой вполне согласен. Когда 10 шаблонов это одно..но когда 200-500 это уже вынос мозга..

[kostalll]

без костылей в мп ни как, именно "НИ КАК"

[no_nick]

Кстати, если эта тема кого-то ещё интересует, то можно сделать и звуковое оповещение, скрипт такой:

Set oVoice = CreateObject("SAPI.SpVoice")
set oSpFileStream = CreateObject("SAPI.SpFileStream")
oSpFileStream.Open "sound\foto.wav" (Ваш путь к файлу в формате wav.)
oVoice.SpeakStream oSpFileStream
oSpFileStream.Close