Заставляем говорит пк

Тема в разделе "Программирование", создана пользователем Дядя Серый, 23 авг 2014.

  1. Оффлайн

    Дядя Серый Uncle Frost

    На форуме с:
    21 ноя 2013
    Сообщения:
    433
    Симпатии:
    173
    Баллы:
    82
    Пол:
    Мужской
    1. Скопируйте этот текст в блокнот

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

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

    Все что вы напишете в строке, компьютер попытается произнести после нажатия ОК.
    [​IMG]
     
    Xristianin нравится это.
  2.  
  3. Оффлайн

    MiraD0

    На форуме с:
    12 авг 2013
    Сообщения:
    743
    Симпатии:
    696
    Баллы:
    308
    Пол:
    Мужской
    skype:
    terrorist540
    Одобрил!
     
    Дядя Серый нравится это.
  4. Оффлайн

    sca ст. рядовой

    На форуме с:
    4 июл 2013
    Сообщения:
    16
    Симпатии:
    2
    Баллы:
    3
    Пол:
    Мужской
    Не пашет
     

Поделиться этой страницей

Уважаемый пользователь!

Мы обнаружили, что вы блокируете показ рекламы на нашем сайте.

Просим внести его в список исключения или отключить AdBlock.

Наши материалы предоставляются БЕСПЛАТНО и единственным доходом является реклама.

Спасибо за понимание!