Проведено 127 115 розыгрышей
Следующий через 15 минут

Последние победители



Как заставить компьютер говорить с вами?

Скопируйте этот текст в блокнот

Dim message, sapimessage=InputBox("Что сказать?","Поговори со мной")Set itube=CreateObject("sapi.spvoice")itube.Speak message

Сохраните файл как speak.vbs
Запустите файл.

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

3
× Пришло новое сообщение