Автологин в QUIK (на Lua) (Страница 3 из 5)

У меня получилось так

Подскажите, кто-нибудь задавался вопросом шифрования скрипта автологина.
Все же в нем логин и пароль содержатся.

Здравствуйте! А у всех работает автологин в Quik 8.9? Вроде скрипт работает, курсор замирает, но ввод не происходит.

8.9.0.107 скрипт работает отлично
Если брали пример из стартового поста, то работать не будет, окно логина с тех времен немного изменилось. Дальше в теме есть рабочие варианты скрипта.
PS: курсор замирать не должен, если комп, конечно, не древний как мамонт.

Но чтобы количество элементов в списке серверов автоматом узнать SendMessage нужен.
Да и для выбора сервера вместо PostMessage тут лучше использовать SendMessage, а его не нашел в w32.dll

PS: swerg, может добавите в библиотеку функцию SendMessage и константы CB_SETCURSEL и CB_GETCOUNT?

swerg пишет:

Сделано.

Огромное спасибо!

Модифицировал скрипт, добавил функционал перебора серверов

Функционал данной модификации:
с 9:50 по 0:00 МСК поддерживает соединение;
поддержка соединения работает только в рабочие дни Московской биржи;
вводит логин и пароль и соединяется с сервером;
с первой попытки пытается соединиться с сервером по умолчанию,
при неудаче начинает перебор с первого по последний по кругу.

-- Автологин терминала QUIK
-- (c) http://quik2dde.ru/
-- Версия: 3.3 (BlaZed Edition)
local w32 = require("w32")
QUIK_LOGIN="LOGIN"      -- Логин
QUIK_PASSW="PASSWORD"   -- Пароль
serv_n=-1
is_run = true
function main()
  while is_run do
    if(isConnected()==0)then
      if(WorkTime()==true)then
        QuikConnect() -- Нажать кнопку "Установить соединение с информационным сервером"
      end
      QuikLogin() -- Ввести Логин/Пароль и нажать кнопку "Вход"
    else
      serv_n=-1
    end
    sleep(1000)
  end
end
function OnStop()
  is_run=false
  return 100
end
function QuikConnect() -- Нажать кнопку "Установить соединение с информационным сервером"
  local hWnd=w32.FindWindow("InfoClass","")
  if hWnd~=0 then w32.PostMessage(hWnd,w32.WM_COMMAND,100,0) end
end
function QuikLogin() -- Ввести Логин/Пароль и нажать кнопку "Вход"
  local hWnd=w32.FindWindow("", "Идентификация пользователя")
  if hWnd==0 then hWnd=w32.FindWindow("", "User identification") end
  if hWnd~=0 then
    local hServe=w32.FindWindowEx(hWnd,0,"","")
    local hLogin=w32.FindWindowEx(hWnd,hServe,"","")
    local nPassw=w32.FindWindowEx(hWnd,hLogin,"","")
    if(serv_n>=0)then -- при первой попытке коннект к серверу из последнего соединения, при неудачном коннекте перебор
      local serv_count=w32.SendMessage(hServe,w32.CB_GETCOUNT,0,0)
      serv_n=serv_n%serv_count
      w32.SendMessage(hServe,w32.CB_SETCURSEL,serv_n,0)
    end
    serv_n=serv_n+1
    w32.SetWindowText(hLogin,QUIK_LOGIN)
    w32.SetWindowText(nPassw,QUIK_PASSW)
    w32.PostMessage(hWnd,w32.WM_COMMAND,1,0)
  end
end
function WorkTime() -- Возвращает флаг рабочего времени
  local GMT3=10800   -- Часовой пояс биржи GMT+3 Москва (3*60*60=10800 - количество секунд в 3 часах)
  dt=os.date("!*t",os.time()+GMT3)
-- Торговый календарь московской биржи
-- 2021 год www.moex.com/s3196
-- true - рабочий день, false - не рабочий день, nil - проверяем день недели
  local calendar={[20201231]=false,[20210101]=false,[20210107]=false,[20210220]=true,[20210223]=false,[20210308]=false,[20210503]=false,[20210510]=false,[20210614]=false,[20211104]=false,[20211231]=false}
  local today=calendar[dt.year*10000+dt.month*100+dt.day]
  if(today==false)or((today==nil)and((dt.wday==1)or(dt.wday==7)))then return false end
  if(dt.hour*60+dt.min < 590) then return false end -- Отсекаем время до 9:50 (9*60+50=590 - количество минут с 0:00 до 9:50)
  return true
end

Работает на 8.9.0.107
Не забудьте обновить библиотеку w32.dll из первого поста, она изменилась.

В коде есть как минимум одна алгоритмическая ошибка ) Метод WorkTime дергается в цикле каждую секунду, а внутри постоянно определяются как минимум две переменные, которые по сути константы: GMT3 и calendar. Это не имеет смысла и их нужно вынести в глобальную секцию и определять 1 раз при запуске.

Второй момент: данный скрипт вызывает утечку памяти. Причем это вопрос, скорее, к квику. Но так или иначе, код dt=os.date("!*t",os.time()+GMT3) выжирает память. Это видно в окне "Доступные скрипты" по колонке "Память". Я себе оптимизировал этот момент пока с помощью local curHour = tonumber(os.date("%H", os.time())) и т.д.

Кстати, GTM в этом случае не нужен, вроде как.

alik1241 пишет:

В коде есть как минимум одна алгоритмическая ошибка ) Метод WorkTime дергается в цикле каждую секунду, а внутри постоянно определяются как минимум две переменные, которые по сути константы: GMT3 и calendar. Это не имеет смысла и их нужно вынести в глобальную секцию и определять 1 раз при запуске.

Согласен, можно вынести в глобал.
Решил что нагрузка минимальная, удобство чтения кода важнее.

alik1241 пишет:

Второй момент: данный скрипт вызывает утечку памяти. Причем это вопрос, скорее, к квику. Но так или иначе, код dt=os.date("!*t",os.time()+GMT3) выжирает память. Это видно в окне "Доступные скрипты" по колонке "Память". Я себе оптимизировал этот момент пока с помощью local curHour = tonumber(os.date("%H", os.time())) и т.д.

Это особенность работы функции os.date в lua.
На форуме квика я поднимал этот вопрос [url]https://forum.quik.ru/forum1/topic6066/[/url] (Алексей в теме это я) получил ответ что это не утечка памяти os.date, а вот такая особенность самой функции. Там же посоветовали добавить collectgarbage() чтобы не дожидаться сборщика мусора.

alik1241 пишет:

Кстати, GTM в этом случае не нужен, вроде как.

GTM добавил для пересчета локального часового пояса в часовой пояс москвы.
Если локальное время на компе московское, тогда можно обойтись и без GTM.

Вот готовая функция поиска окна логина именно нашего QUIK:

-- Возвращает handle окна логина QUIK или 0 при ошибке
-- Если запущено несколько терминалов - выбирается тот QUIK, из которого запущен наш скрипт
function GetQuikLoginWindowHandle()
    local hWnd = 0
    while true do
        local hTmp = w32.FindWindowEx(0, hWnd, "", "Идентификация пользователя")
        if hTmp == 0 then
            hTmp = w32.FindWindowEx(0, hWnd, "", "User identification")
        end
        hWnd = hTmp
        if hWnd == 0 then
            break  -- окно логина не смогли найти
        end
        local t,ProcId = w32.GetWindowThreadProcessId(hWnd)
        if ProcId == w32.GetCurrentProcessId() then
            break  -- найдено окно логина нашего QUIK
        end
    end

    return hWnd
end

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

Еще одно замечание.

    if(serv_n>=0)then -- при первой попытке коннект к серверу из последнего соединения, при неудачном коннекте перебор
      local serv_count=w32.SendMessage(hServe,w32.CB_GETCOUNT,0,0)
      serv_n=serv_n%serv_count
      w32.SendMessage(hServe,w32.CB_SETCURSEL,serv_n,0)
    end
    serv_n=serv_n+1

Этот кусок работать не будет из-за строки local serv_count=w32.SendMessage(hServe,w32.CB_GETCOUNT,0,0)!
Метод SendMessage возвращает булеву, а не количество итемов в комбо-боксе. Пока решил проблему просто задав кол-во итемов константой и отключением этой строки.