Как да накарате компютъра си да говори/говоре това, което пишете

Има страхотна функция в Windows , която ви позволява да накарате компютъра си да говори или да говори каквото му кажете! Този метод се възползва от вградения API , инсталиран на Windows XP , Vista , 7, 8 и 10, наречен SAPI ( Интерфейс за програмиране на говорни приложения(Speech Application Programming Interface) ).

API на Microsoft Speech(Microsoft Speech API) е това, което се използва за функцията за достъпност текст в говор, вградена в Windows . Можете също да пишете програми, които извикват API , което ще ви позволи да оставите вашите приложения да говорят, но това е за разработчиците.

Просто да накарате компютъра си да каже това, което искате, всъщност е доста лесно! В тази статия ще ви покажа как да създадете VBS скрипт, който ще вземе въведен текст от потребител и след това ще го изговори. Ще спомена също как да кодирате текста, който искате да се произнася, и след това да планирате този скрипт да се изпълнява при конкретни събития като стартиране на Windows или излизане.

Въведете текст, говорете съобщение

Нека започнем с прост скрипт, който ще отвори диалогов прозорец, в който можете да въведете какво искате да говори Windows. Първо(First) , продължете и отворете Notepad .

Стъпка 1:(Step 1:)  Поставете следния текст в нов документ:

Dim message, sapi
message=InputBox(“Enter the text you want spoken”,”Speak This”)
Set sapi=CreateObject(“sapi.spvoice”)
sapi.Speak message

Имайте предвид, че когато копирате текст от вашия уеб браузър и го поставите в Notepad , кавичките ще причинят проблеми. Преди да запазите файла, трябва да преминете през и да изтриете всеки цитат (“) и да въведете отново цитата. В примера по-долу има шест цитата. Трябва да изглежда нещо като изображението по-долу.

накарайте компютъра да говори

Сега, когато отидете да запазите файла, дайте му произволно име, но не забравяйте да въведете и .VBS след името. След това за полето Запиши като тип( Save as type) изберете Всички файлове( All files) вместо Текстови документи(Text Documents) по подразбиране .

кара компютъра да говори

Сега щракнете двукратно върху VBS файла и трябва да видите поле за въвеждане, където можете да въведете текста, който искате да се произнася! Въведете нещо и щракнете върху OK.

диалогов прозорец за говорене

Ако сте направили всичко правилно, трябва да чуете мъжки или женски глас да изричат ​​изречението си. Ако получите някакъв вид съобщение за грешка, не забравяйте да копирате и поставите текста отново и да замените тези кавички.

Конфигурирайте SAPI гласови настройки

Това е забавно, но можем също да конфигурираме нашия малък говорещ компютър с различни настройки. Можем да променим силата на звука, колко бързо или бавно говори гласът и да променим пола между мъж и жена. Ето примерен код, където добавих няколко допълнителни реда.

Dim message, sapi
message=InputBox(“Enter the text you want spoken”,”Speak This”)
Set sapi=CreateObject(“sapi.spvoice”)
Set sapi.Voice = sapi.GetVoices.Item(1)
sapi.Rate = 0
sapi.volume = 100
sapi.Speak message

Скоростта по подразбиране е 0 и диапазонът е от -10 до 10. -10 ще накара гласа да говори супер бавно, а 10 ще говори супер бързо. Силата на звука е по подразбиране на 100 и диапазонът е от 0 до 100. Редът, който започва с Set sapi.Voice , ще ви позволи да преминете към друг глас, ако е инсталиран на вашата система.

Имайте предвид, че броят на гласовете, от които можете да избирате, зависи от операционната система. В Windows 7 има само един глас, Microsoft Anna .

инсталирани гласове

В Windows 10 има два гласа: Microsoft David и Microsoft Zira , както е показано по-долу.

глас на microsoft davis

глас на microsoft zira

Ако във вашата система е инсталиран само един глас, трябва да промените това, което казва sapi.GetVoices.Item(1) на sapi.GetVoices.Item(0) , в противен случай ще получите съобщение за грешка, когато се опитате да стартирате скрипта. Можете също да създадете друг документ на Notepad и да поставите кода по-долу, който ще ви каже какви гласове са инсталирани. Запазете го като .VBS файл, както е показано по-горе, и го стартирайте.

Set VObj = CreateObject(“SAPI.SpVoice”)
For Each Voice In VObj.getvoices
I = I + 1
msgbox “” & (I – 1) & ” – ” & Voice.GetDescription
Next

Досега използвахме този изскачащ диалогов прозорец за въвеждане на текст, но можете също така просто да въведете съобщението си във файла на скрипта. Това би било полезно, ако искате след това да планирате скрипта да се изпълнява автоматично. Очевидно това може да се използва за шега на вашите приятели и семейство и работи наистина добре.

Само си представете някой да включва компютъра си и да чува компютъра да му казва „ Здравей, Джон(Hello John) , много ми се спи, моля те, не ме безпокои днес!“ когато се стартира! От опит мога да ви обещая, че е истерично и определено трябва да опитате.

За да кодирате съобщението, просто променете последния ред на нещо подобно:

sapi.Speak “Hello John, I am very tired today!”

Планирайте скриптов файл

Сега, след като сте кодирали съобщението си за желаната цел, просто трябва да го стартирате, когато пожелаете. Ако сте запознати с технологиите, можете да използвате програма като AutoIt , която ще ви позволи да правите екстремни неща като стартиране на вашия скриптов файл, когато се отвори определена програма или когато Windows е максимизиран или минимизиран.

Нямам време да се занимавам с всичко това в тази публикация, но за щастие Microsoft има вградена функция, наречена Task Scheduler , която ви позволява лесно да правите някои доста сложни неща със скриптове.

Предишната ми публикация разглежда подробно как да планирате стартиране на скриптов файл(how to schedule a script file to run) при възникване на определени събития в Windows . Ако имате проблеми да накарате скрипта си да работи, не се колебайте да публикувате коментар и аз ще се опитам да помогна. Наслади се!



About the author

Аз съм уеб разработчик с над 10 години опит, включително 8 години като професионален софтуерен инженер. Също така имам опит в разработването на мобилни приложения и игри, както за настолни компютри, така и за мобилни устройства. В свободното си време обичам да играя видео игри и да гледам филми, да слушам музика, да чета книги и да се занимавам с градинарство.



Related posts