Ваш ключ: необходима авторизация | MyProxy - бесплатный обменник валидных прокси между пользователями форума.

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

Тема в разделе Windows, создана пользователем GRыZL, 11 фев 2014.

Войдите для ответа
  1. GRыZL Футбольный аналитик

    GRыZL
    Статус:
    Вне сети
    Сообщения:
    137
    Симпатии:
    11
    Регистрация:
    23.11.14
    Заставляем компьютер произносить всё, что напишите


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


    Dim msg, sapi



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


    Set sapi=CreateObject("sapi.spvoice")


    sapi.Speak msg


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



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


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


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


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

     
    11 фев 2014 #1
    Последнее редактирование модератором: 11 фев 2014
  2. Frooze Заблокирован

    Frooze
    Статус:
    Вне сети
    Сообщения:
    263
    Симпатии:
    19
    Регистрация:
    01.06.15
    Не работает!
     
    11 фев 2014 #2
  3. GRыZL Футбольный аналитик

    GRыZL
    Статус:
    Вне сети
    Сообщения:
    137
    Симпатии:
    11
    Регистрация:
    23.11.14
    Всё работает, после сохранения блокнота, на рабочем столе другой файл появляется, его открываешь и пишешь любой текст по английски. Читай внимательнее.
     
    11 фев 2014 #3
  4. PatrickxDDD Проверенный x3

    PatrickxDDD
    Статус:
    Вне сети
    Сообщения:
    166
    Симпатии:
    13
    Регистрация:
    10.11.14
    прикольно, получилось)
     
    11 фев 2014 #4
  5. HaYa CrossFire

    HaYa
    Статус:
    Вне сети
    Сообщения:
    168
    Симпатии:
    23
    Регистрация:
    01.06.15
    Не говорит
     
    11 фев 2014 #5
  6. GRыZL Футбольный аналитик

    GRыZL
    Статус:
    Вне сети
    Сообщения:
    137
    Симпатии:
    11
    Регистрация:
    23.11.14
    Значит русской раскладкой пишешь.
     
    11 фев 2014 #6
Top