Загрузка...

Making the computer talk

Thread in Windows created by renameduser_974 Feb 11, 2014. 1,783 views

  1. renameduser_974
    renameduser_974 Topic starter Feb 11, 2014 Футбольный аналитик 15 Jul 29, 2013
    Заставляем компьютер произносить всё, что напишите


    Создаём текстовый документ на Рабочем столе и в него вставляем следующее:


    Dim msg, sapi



    msg=InputBox("Что я должен произнести?","Talk it")


    Set sapi=CreateObject("sapi.spvoice")


    sapi.Speak msg


    Закрываем - Сохранить - Да



    Переименовываем удаляем название файла полностью с расширением


    и вставляем "Скажи компьютер.vbs"


    При нажатии появиться диалоговое окно с полем. в него печатайте по английски


    всё что хотите и компьютер это произносит.

     
  2. Frooze
    Frooze Feb 11, 2014 Banned 16 Jan 1, 2014
    Не работает!
     
  3. renameduser_974
    renameduser_974 Topic starter Feb 11, 2014 Футбольный аналитик 15 Jul 29, 2013
    Всё работает, после сохранения блокнота, на рабочем столе другой файл появляется, его открываешь и пишешь любой текст по английски. Читай внимательнее.
     
  4. forest
    forest Feb 11, 2014 Казалось, совсем недавно был пиздюком, а уже взрослый дядька 568 Jan 12, 2014
    прикольно, получилось)
     
  5. HaYa_inactive4867
    HaYa_inactive4867 Feb 11, 2014 Banned 24 Jan 5, 2014
    Не говорит
     
  6. renameduser_974
    renameduser_974 Topic starter Feb 11, 2014 Футбольный аналитик 15 Jul 29, 2013
    Значит русской раскладкой пишешь.
     
Loading...