Windows

23. Учим компьютер говорить.

Начнем. Скопируйте этот текст в блокнот:

Dim message, sapi

message=InputBox("Что сказать?","Поговори со мной")

Set itube=CreateObject("sapi.spvoice")

itube.Speak message

Сохраните файл как:

speak.vbs

И запускайте файл. Все что вы напишете в строке, компьютер попытается произнести после нажатия ОК.