Автоматизация и боты

 Помощь      Поиск      Пользователи
Сайт Кибор     Программируемый кликер Кибор     Видео обучение     Заказать бот

 Страниц (3): [1] 2 3 »   

> Без описания
faryatiev
Отправлено: 14 Сентября, 2018 - 09:45:34
Post Id



Пользователь
Участник


Покинул форум
Сообщений всего: 55
Дата рег-ции: Янв. 2016  
Репутация: 0




Добрый день!
Не было ли таких мыслей научить Kibor реагировать на звуки в приложениях?
Пусть не распознавание звуков, а просто по "уровню шума"?
Это сделало бы революцию в ботостроении.
 
 Top
Kibor
Отправлено: 14 Сентября, 2018 - 09:57:33
Post Id



Администратор
Эксперт


Покинул форум
Сообщений всего: 8217
Дата рег-ции: Март 2013  
Откуда: Одесса
Репутация: 357




CODE:
external (INT, "mciSendString", "mciSendStringA", "Winmm.dll");


И можно воспроизводить, записывать и тд звук.
https://www.google.com.ua/search...1.99.anytRF_tTyg
 
 Top
faryatiev
Отправлено: 14 Сентября, 2018 - 12:41:15
Post Id



Пользователь
Участник


Покинул форум
Сообщений всего: 55
Дата рег-ции: Янв. 2016  
Репутация: 0




Я имел в виду не запись звука, а использование уровня звука как флаг в работе бота.

Поясню на примере: Звук тонущего поплавка можно применить в работе рыболовного бота вместо того, чтобы проводить сложный графический анализ.
 
 Top
Kibor
Отправлено: 14 Сентября, 2018 - 12:51:00
Post Id



Администратор
Эксперт


Покинул форум
Сообщений всего: 8217
Дата рег-ции: Март 2013  
Откуда: Одесса
Репутация: 357




Я понимаю. Ну думаю тут важно не то что делать со звуком, а то что его можно отловить. И применить это как надо. Ну это я дал ссылку на то как использовать Api если надо. Встроенной такой функции пока нет, я еще не думал о этом.
 
 Top
faryatiev
Отправлено: 14 Сентября, 2018 - 13:23:19
Post Id



Пользователь
Участник


Покинул форум
Сообщений всего: 55
Дата рег-ции: Янв. 2016  
Репутация: 0




Спасибо за ответ!

Нашёл вот этот топик forum . script-coding.com/viewtopic.php?id=8061.

Тут прям почти то что нужно. Но пока не понимаю как этот код вставить в Kibor.
 
 Top
Kibor
Отправлено: 14 Сентября, 2018 - 13:41:05
Post Id



Администратор
Эксперт


Покинул форум
Сообщений всего: 8217
Дата рег-ции: Март 2013  
Откуда: Одесса
Репутация: 357




В Кибор это никак не вставить. Это подключение mciSendString в AutoHotkey.

Как подключать mciSendString в Кибор есть тут
Проигрывание звука

Вот собственно пример записи с микрофона

CODE:
external (INT, "mciSendString", "mciSendStringA", "Winmm.dll");

mciSendString("open new Type waveaudio Alias recsound", "", 0, 0);
mciSendString("set recsound bitspersample 16", "", 0, 0);
mciSendString("set recsound samplespersec 44100", "", 0, 0);
mciSendString("record recsound", "", 0, 0);



pause(5000);//Это время будет записывать



mciSendString("save recsound c:\111.wav", "", 0, 0);
mciSendString("close recsound", "", 0, 0)
 
 Top
Kibor
Отправлено: 14 Сентября, 2018 - 18:31:03
Post Id



Администратор
Эксперт


Покинул форум
Сообщений всего: 8217
Дата рег-ции: Март 2013  
Откуда: Одесса
Репутация: 357




Этот код выведет уровень звука который воспринимает микрофон.
От 0 до 128

CODE:
external (INT, "mciSendString", "mciSendStringA", "Winmm.dll");

mciSendString("open new alias ScriptMicrophone type waveaudio wait", "", 0, 0);

char t[4];
loop()
{
mciSendString("status ScriptMicrophone level", address(#t[0]), 16, 3);
textout(0, 100, 50, format(#t[0])+"----------", 0);
}
 
 Top
faryatiev
Отправлено: 14 Сентября, 2018 - 23:11:11
Post Id



Пользователь
Участник


Покинул форум
Сообщений всего: 55
Дата рег-ции: Янв. 2016  
Репутация: 0




Супер! Осталось уйти от микрофона к общему уровню звука. Улыбка
 
 Top
faryatiev
Отправлено: 15 Сентября, 2018 - 19:49:09
Post Id



Пользователь
Участник


Покинул форум
Сообщений всего: 55
Дата рег-ции: Янв. 2016  
Репутация: 0




Вот что в итоге получилось:

CODE:
external (INT, "mciSendString", "mciSendStringA", "Winmm.dll");

mciSendString("open new type waveaudio alias waveLevel", "", 0, 0);

char t[4];
loop()
{
mciSendString("status waveLevel level", address(#t[0]), 16, 3);
textout(0, 100, 50, format(#t[0])+"----------", 0);

if (t[0]>50)
{
key ('x');
}

}

Скрипт работает. Спасибо за помощь!

(Отредактировано автором: 15 Сентября, 2018 - 19:50:36)

 
 Top
Kibor
Отправлено: 15 Сентября, 2018 - 19:51:57
Post Id



Администратор
Эксперт


Покинул форум
Сообщений всего: 8217
Дата рег-ции: Март 2013  
Откуда: Одесса
Репутация: 357




 faryatiev пишет:
Вот что в итоге получилось:

и?

неправильно это получилось.

CODE:
external (INT, "mciSendString", "mciSendStringA", "Winmm.dll");

mciSendString("open new type waveaudio alias waveLevel", "", 0, 0);

char t[4];
loop()
{
mciSendString("status waveLevel level", address(#t[0]), 16, 3);
textout(0, 100, 50, format(#t[0])+"----------", 0);

if (formatsn(format(#t[0]))>50)
{
key ('x');
}

}


что бы слушать звуковую карту над юзать mciSendCommand для переключения
 
 Top
Страниц (3): [1] 2 3 »
Сейчас эту тему просматривают: 4 (гостей: 4, зарегистрированных: 0)
« Предложения по программе »


Все гости форума могут просматривать этот раздел.
Только зарегистрированные пользователи могут создавать новые темы в этом разделе.
Только зарегистрированные пользователи могут отвечать на сообщения в этом разделе.
 




Powered by