- Сообщения
- 167
- Реакции
- 880
1. Скопируйте этот текст в блокнот
Dim message, sapi
message=InputBox("Что сказать?","Поговори со мной")
Set itube=CreateObject("sapi.spvoice")
itube.Speak message
2. Сохраните файл как speak.vbs
3. Запустите файл.
Все что вы напишете в строке, компьютер попытается произнести после нажатия ОК.
Dim message, sapi
message=InputBox("Что сказать?","Поговори со мной")
Set itube=CreateObject("sapi.spvoice")
itube.Speak message
2. Сохраните файл как speak.vbs
3. Запустите файл.
Все что вы напишете в строке, компьютер попытается произнести после нажатия ОК.



