w32 - Вызов WinAPI функций из Lua (Страница 1 из 7)

Проигрывание звуковых файлов из Lua

Для проигрывания звуковых файлов - "по совету друзей" (Siluyano, спасибо!) - добавил в библиотеку функцию mciSendString(). В данной реализации она принимает лишь 1 строковый параметр, все равно остальные параметры из Lua задействовать не просто, да и ни к чему они для наших задач.

По поводу использования самой функции mciSendString() есть [url=http://free-basic.ru/mcisendstring.html]отличная страничка с примерами[/url] (там не Lua, но это не важно, т.к. интересен формат текстовых строк с командами).

В отдельной теме [url=https://quik2dde.ru/viewtopic.php?id=79]приведен пример готовой функции PaySoundFile()[/url] для проигрывания звуковых файлов mp3, wav, midi из скриптов роботов на Lua. Важно отметить, что в приведенном там варианте робот не будет задерживаться на время проигрывания файла.

Стандартные звуки, настроенные в Windows

Можно скрипт робота заставить проиграть один из стандартных звуков, настроенных в Windows. Для этого отлично подойдет функция MessageBeep(). Ниже пример использования. Возможные варианты параметров см. в MSDN.

w32=require("w32")
w32.MessageBeep(w32.MB_OK)

"Аларм" встроенным динамиком

Еще есть вариант издавать звуки определенной частоты и длительности встроенным динамиком компьютера, для этого есть функция Beep(). Удобно для "резких" сигналов (громкость не регулируется), привлекающих внимание. (Встроенный динамик в этом способе используется только до WinXP, в следующих версиях Windows звук воспроизводится уже через звуковую карту, но работает всё точно также.)
Важно: на время проигрывания звука данным способом работа Lua-скрипта  приостанавливается!

Пример восходящего и нисходящего арпеджио:

w32=require("w32")

poluton = 2 ^ (1/12)

-- определим константами частоты гармонического звукоряда
A1 = 440
B1 = A1 * (poluton ^ 2)
C1 = A1 * (poluton ^ 3)
D1 = A1 * (poluton ^ 5)
E1 = A1 * (poluton ^ 7)
F1 = A1 * (poluton ^ 8)
G1 = A1 * (poluton ^ 10)
A2 = A1 * (poluton ^ 12)
B2 = A1 * (poluton ^ 14)
C2 = A1 * (poluton ^ 15)

-- играем звуки вверх
music1 = {C1, E1, G1, C2}
for i, tone in ipairs(music1) do
  w32.Beep(tone, 100)
end

sleep(300)

-- играем звуки вниз
music2 = {C2, G1, E1, C1}
for i, tone in ipairs(music2) do
  w32.Beep(tone, 100)
end

Буду благодарен за примеры использования вообще и полезного в частности данной библиотеки для решения различных задач автоматизации QUIK

Пример поиска окна QUIK.
------
stopped = false

w32=nil
w32 = require ("w32")

hWnd = 0

function main(  )
hWnd = w32.FindWindow("InfoClass", "")
message("hWnd= "..tostring(hWnd),1)
while not stopped do
  sleep(100)
end
end

Про FindWindowEx вы правы, сам удивился. Ну видно, что у автора какие-то свои задачи стояли: сервисы, реестр, самостоятельная полная GUI прога с созданием окон и обработкокой сообщений. Сужу по набору функций.
А про звук - отличная идея!

Про поиск окна - вы верно подметили, что надо вместо NULL пустую строку передавать, хотя константа NULL как раз определена.

PS
Добавил несколько функций:

• FindWindowEx

• SetFocus

• GetWindowText - возвращает строку или nil при ошибке

• SetWindowText

• GetWindowPos - возвращает координаты окна left, top, right, bottom или nil при ошибке

• mciSendString - принимает только 1 параметр, описание есть в теме выше

• Beep

• MessageBeep

• CoInitialize

• CoUninitialize

Про сообщения пока думаю: какие добавить, все как-то не хочется...

Нажатие на кнопках "Установить связь с..." и "Разорвать связь с..."

    -- константа из windows.h
    local WM_COMMAND = 0x0111
    -- поиск главного окна
    hWnd = w32.FindWindow("InfoClass","")
    -- нажимаем кнопку
    w32.PostMessage(hWnd,WM_COMMAND,100,0)

w32.PostMessage(hWnd,WM_COMMAND,100,0) -- нажать на кнопку "Установить связь с..."
w32.PostMessage(hWnd,WM_COMMAND,101,0) -- нажать на кнопку "Разорвать связь с..."

Можно использовать функцию GetCursorPos() из [url=https://quik2dde.ru/viewtopic.php?id=111]vclua библиотеки[/url].

Этот скрипт будет раз в пол-секунды выводить абсолютные координаты курсора мыши:

VCL = require "qvcl"

is_run = true    
function main()
  while is_run do
    local x,y = VCL.GetCursorPos()
    message('x='..tostring(x)..' y='..tostring(y))
    sleep(500)
  end
end
function OnStop()
 is_run = false
end

В примере идет обращение к vcl из main().
Здесь это безопасно, т.к. данная функция обращается только в read-only режиме к внутренним объектам библиотеки vcl, в общем же случае не надо забывать, что обращение к визуальным элементам, созданным через vcl из main() недопустимо.

А можете рассказать с какой целью такая функция сама по себе могла понадобиться?

Вам поэтому и задали вопрос - зачем вам эта функция. Она в ваших целях практически бесполезна, потому что Квик рисует свои графики не "от балды", а на своём "полигоне", наведя на него мышь, вы снимите только координату на мониторе, ни цены, ни чего либо другого так стабильно получать не получится.
Изначально вы не обозначили итоговую задачу. Как можно догадаться, вы возможно хотите ткнуть мышкой на какой то уровень на свечке и получить в скрипт цену. И возможно - время свечи. Как вариант реализации - через qvcl рисуете (воспроизводите) на окне-форме последнюю свечу (или несколько, если нужно), и тыкая или наводя мышь уже туда - получаете цену и время начала свечи. Вариантов рисования "копии свечи" множество, например закрашивание ячеек Grid с бесцветными границами ячеек, или два прямоугольника (один узкий для H и L, второй пошире, для O и С).

Угол наклона кривой?! это как?
По известным координатам (а координаты МА нам известны по определению) легко вычислить угол на основании школьных знаний 6-го класса (ну или 7-го) по геометрии.

И вы так и не написали какую задачу вообще-то пытаетесь решить.

От одного пикселя до тысячи в зависимости от установленного вами масштаба.
Даже интересно какого ответа вы предполагаете ожидать от квиковцев.

Конечно элементарно,  m=(у2-y1)/(x2-x1)=tag angle или angle=arctang (m).
Так вот имеем координаты по У = Price координаты по x= время  .
Задача определить угол машки по отношению к окну где рисуется график .  :-)

т.е размеры окна в писелях,см,дюйм а Y=Price, X=время,  вычитаем Price2-Price1 и делим на разность Time2-Time2, берем арктангенс и получаем угол? :-)