Что нового

Нейросети,Голосовое управление, Умный дом

Сообщения
137
Репутация
-2
Заработал поиск на форуме и я нашёл ряд интересующих меня тем, однако с даты их создания прошло много лет.

http://autoit-script.ru/index.php?topic=19568.0 Нейросеть
http://autoit-script.ru/index.php?topic=4411.0 Голосовое управление компьютером
http://autoit-script.ru/index.php?topic=13581.msg86270#msg86270 AutoIT - Искуственный интелект голосового интерфейса
http://autoit-script.ru/index.php?topic=8801.0 Умный дом

Все они имеют общую тематику и я хотел бы узнать современные методы реализации данных вопросов.
Например, меня интересует голосовое управление компьютером и сам принцип его реализации в Autoit или же в других программах. Как я уже писал в другой теме - пусть это будет самое простое, хоть запуск / закрытие калькулятора. Мне главное понять метод как это сделать.

Также, интересная тема про умный дом. Я не про то, чтоб создать нечто подобное Jarvis, но было бы здорово включать /выключать свет голосом (как минимум). Очень много роликов на Youtube по этой теме, правда коротких по несколько минут и исключительно в виде демонстрации без каких-то объяснений.

Очень интересен чат-бот. Я просто не понимаю по какому принципу его пишут - это что набор вариантов ответа , который заранее вписывается в код и просто ждёт похожую входящую реплику? Может у кого-то есть пример? Мне непонятно как чат-бот может вразумительно вести диалог. Буду признателен за любую информацию.

Ну, и нейросети или искусственный интеллект (ИИ) - вообще отдельная тема. На том же Youtube народ даже Jarvis создают и выкладывают короткие демонстрационные ролики в интернет. Причём, делают это парни лет 18...это фейк видео или люди такие умные?А ролик про интеллектуальный куб вообще шикарен (ссылка про нейросеть). Это всё возможно сделать на Autoit или другими программами? Может кто-то пробовал?
 
Автор
D
Сообщения
137
Репутация
-2
Нашёл на форуме https://www.autoitscript.com/forum/topic/182431-jarvis-with-speech-recognition/ вот такой скрипт и называется JARVIS with speech recognition:
Код:
#Include <ButtonConstants.au3>
#include <EditConstants.au3>
#include <StringConstants.au3>

HotKeySet("{ESC}", "MyExit")
HotKeySet("{SPACE}", "AtoT")
HotKeySet("{F9}", "stop")
Global $voice = ObjCreate("SAPI.SpVoice")
Global $Paused

AtoT()
Do
until @HotKeyPressed="{SPACE}"

Func reply()
   Select
   Case StringInStr($spoken,"google");;;;;;;;;OPENS GOOGLE IN DEFAULT BROWSER
      ShellExecute("https://www.google.com")
   Case StringInStr($spoken,"youtube");;;;;;;;;OPENS YOUTUBE IN DEFAULT BROWSER
      ShellExecute("https://www.youtube.com")
   Case StringInStr($spoken,"mail");;;;;;;;;;;;OPENS GMAIL IN DEFAULT BROWSER
      ShellExecute("https://www.gmail.com")
   Case StringInStr($spoken,"notepad");;;;;;;;;;OPENS NOTEPAD
      Run("notepad.exe")
   Case StringInStr($spoken,'computer');;;;;;;;;OPENS MY COMPUTER FOLDER
      Send("{LWINDOWN}e{LWINUP}")
   Case StringInStr($spoken,'bye');;;;;;;;;;;;;;CLOSES THE PROGRAM
      speak('Goodbye sir!')
      Sleep(2000)
      Exit
   case StringInStr($spoken,'Sleep');;;;;;;;;;;;;PROGRAM SLEEPS UNTILL YOU PRESS SPACE
      Send("{F9}")
      Send("{F9}")
      Send("{F9}")
   case StringInStr($spoken,'close');;;;;;;;;;;;;CLOSES THE ACTIVE WINDOWS
      Send("!{F4}")
   Case StringInStr($spoken,'time')
      speak('time')
   Case StringInStr($spoken,'date')
      speak('date')
  EndSelect
EndFunc


Func stop()
EndFunc




Func AtoT()
   speak('How may i help you sir?')
   Do
      $h_Context = ObjCreate("SAPI.SpInProcRecoContext")
      $h_Recognizer = $h_Context.Recognizer
      $h_Grammar = $h_Context.CreateGrammar(1)
      $h_Grammar.Dictationload
      $h_Grammar.DictationSetState(1)

      $h_Category = ObjCreate("SAPI.SpObjectTokenCategory")
      $h_Category.SetId("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Speech\AudioInput\TokenEnums\MMAudioIn\")
      $h_Token = ObjCreate("SAPI.SpObjectToken")
      $h_Token.SetId("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Speech\AudioInput\TokenEnums\MMAudioIn\")
      $h_Recognizer.AudioInput = $h_Token

      $h_ObjectEvents = ObjEvent($h_Context, "SpRecEvent_")
   Until @HotKeyPressed=  "{F9}"
   speak('press button space if you want me back any time.')
   ToolTip("I WILL WAIT",0,0)
   Sleep(2000)
   $h_ObjectEvents = Null
   $h_Context= Null
   $h_Recognizer= Null
   $h_Grammar= Null
   $h_Category= Null
   $h_Token= Null
EndFunc

Func SpRecEvent_Recognition($StreamNumber, $StreamPosition, $RecognitionType, $Result)
   Global $spoken=$Result.PhraseInfo.GetText
   ToolTip($spoken,0,0)
   reply()
   Global $spoken=""
   Sleep(2000)
   ToolTip("")
EndFunc ;==>SpRecEvent_Recognition



Func MyExit()
   sleep(100)
   ToolTip('Script is "terminated"',0,0)
   sleep(500)
   FileDelete("my.vbs")
   Exit
   ToolTip("")
EndFunc


 Func speak($speak)
   If $speak='time' Then
      $t='speaks=hour(time) & "hour" & minute(time) & "minutes" & second(time) & "seconds"'&@CRLF&'set speech= CreateObject("sapi.spvoice")'&@CRLF&'speech.Rate = -3'&@CRLF&'speech.Speak speaks'
      FileWrite("t.vbs",$t)
      RunWait('cscript.exe "t.vbs"',"",@SW_MINIMIZE)
      FileDelete('t.vbs')
   ElseIf $speak='date' Then
      $d='speaks=date'&@CRLF&'set speech= CreateObject("sapi.spvoice")'&@CRLF&'speech.Rate = -3'&@CRLF&'speech.Speak speaks'
      FileWrite("d.vbs",$d)
      RunWait('cscript.exe "d.vbs"',"",@SW_MINIMIZE)
      FileDelete('d.vbs')
   Else
      $Voice.Speak($speak,11)
      Sleep(500)
   EndIf
EndFunc
Запустил, поприветствовал меня женский голос (даже не подозревал, что у меня есть такое на компьютере). Только вот микрофона у меня сейчас нет, чтоб проверить голосовое управление. Может кто-то посмотреть функциональность кода?
 

joiner

Модератор
Локальный модератор
Сообщения
3,556
Репутация
628
это не рабочий код
 
Автор
D
Сообщения
137
Репутация
-2
Спасибо за проверку!
А что здесь вообще хотел реализовать автор?Я так понял, что планировалось голосом запускать приложения и управлять навигацией браузера в интернете, заходить на разные сайты. Этот голос из стандартной программы виндоус по распознаванию речи, кто-то с ней баловался?Есть ли ешё варианты голоса, чтоб скачать в проверенном источнике?
Можно ли сделать так, чтоб программа распознавала слова и делала определённое действие ?
 
Автор
D
Сообщения
137
Репутация
-2
Признавайтесь, кто автор программы?

https://www.rupor.info/news/120446/kompyuternaya-programma-vyigrala-v-pokernom-turnire-17-mln-dollarov
Для тех , кто не доверяет ссылкам:
КОМПЬЮТЕРНАЯ ПРОГРАММА ВЫИГРАЛА В ПОКЕРНОМ ТУРНИРЕ 1,7 МЛН ДОЛЛАРОВ
Точный механизм работы Libratus неизвестен

Компьютерной программе Libratus удалось победить в покерном турнире четырех профессиональных игроков.
Об этом сообщает Naked Science - пишет ukranews.com
Турнир продолжался 20 дней и включал в себя 120 тысяч раздач в безлимитный техасский холдем. Против новой версии программы выступили Джимми Чу, Даниэль МакОлэй, Джейсон Лес и Донг Ким. Компьютер занял первое место, заработав свыше 1,7 миллиона долларов. Тем не менее, призовой фонд в размере 200 тысяч долларов будет поделен между живыми игроками.
Точный механизм работы Libratus неизвестен. По словам авторов, алгоритм состоит из трех частей: "ядра", на тренировку которого ушло 15 миллионов ядро-часов; модуля мониторинга ошибок соперников; и модуля мониторинга собственных ошибок. Такая система позволила программе как блефовать, так и распознавать блеф.
 
Верх