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

function FindLoginWindow()
  hLoginWnd = w32.FindWindow("", "Идентификация пользователя")
  if hLoginWnd == 0 then
    hLoginWnd = w32.FindWindow("", "User identification")
  end
  return hLoginWnd
end

timeout = 1000  -- таймаут между попытками поиска окна логина
is_run = true

function OnStop()
  timeout = 1
  is_run = false
end

function main()
  while is_run do
    sleep(timeout)

    if isConnected() == 0 then
  
      local hLoginWnd = FindLoginWindow()
      if hLoginWnd ~= 0 then

        local hLogin = w32.FindWindowEx(hLoginWnd, 0, "", "")
        local nPassw = w32.FindWindowEx(hLoginWnd, hLogin, "", "")
        local nBtnOk = w32.FindWindowEx(hLoginWnd, nPassw, "", "")

        w32.SetWindowText(hLogin, QUIK_LOGIN)
        w32.SetWindowText(nPassw, QUIK_PASSW)

        w32.SetFocus(nBtnOk)
        w32.PostMessage(nBtnOk, w32.BM_CLICK, 0, 0)

      end
    end

  end
end

-- Автологин терминала QUIK
-- (c) http://quik2dde.ru/
-- Версия: 3.0 (BlaZed Edition)
local w32 = require("w32")
QUIK_LOGIN="ЛОГИН"      -- Логин
QUIK_PASSW="ПАРОЛЬ"     -- Пароль
START_HOUR=9            -- Время начала поддержки соединения, часы
START_MIN=50            -- Время начала поддержки соединения, минуты
TIMEOUT=1000            -- Таймаут между проверками соединения, мс
is_run = true
function main()
  while is_run do
    if(isConnected()==0)then
      if(WorkTime()==true)then
        QuikConnect() -- Нажать кнопку "Установить соединение с информационным сервером"
      end
      QuikLogin() -- Ввести Логин/Пароль и нажать кнопку "Вход"
    end
    sleep(TIMEOUT)
  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,"","")
    local nBtnOk=w32.FindWindowEx(hWnd,nPassw,"","")
    w32.SetWindowText(hLogin,QUIK_LOGIN)
    w32.SetWindowText(nPassw,QUIK_PASSW)
    w32.SetFocus(nBtnOk)
    w32.PostMessage(nBtnOk,w32.BM_CLICK,0,0)
  end
end
function WorkTime() -- Возвращает флаг рабочего времени
  local GMT3=3*60*60   -- Часовой пояс биржи GMT+3 (Москва)
  local dt=os.date("!*t",os.time()+GMT3)
  -- Суббота и воскресенье - нерабочие дни
  if(dt.wday==1)or(dt.wday==7)then return false end
  -- Нерабочие дни смотрим в торговом календаре на московской бирже
  if(dt.year==2020)and(dt.month==01)and(dt.day==01)then return false end -- 1 января 2020
  if(dt.year==2020)and(dt.month==01)and(dt.day==02)then return false end -- 2 января 2020
  if(dt.year==2020)and(dt.month==01)and(dt.day==07)then return false end -- 7 января 2020
  if(dt.year==2020)and(dt.month==02)and(dt.day==24)then return false end -- 24 февраля 2020
  if(dt.year==2020)and(dt.month==03)and(dt.day==09)then return false end -- 9 марта 2020
  if(dt.year==2020)and(dt.month==05)and(dt.day==11)then return false end -- 11 мая 2020
  if(dt.year==2020)and(dt.month==06)and(dt.day==24)then return false end -- 24 июня 2020
  if(dt.year==2020)and(dt.month==07)and(dt.day==01)then return false end -- 1 июля 2020
  if(dt.year==2020)and(dt.month==11)and(dt.day==04)then return false end -- 4 ноября 2020
  -- Отсекаем время "до" начала поддержки соединения
  if(dt.hour<START_HOUR)or((dt.hour==START_HOUR)and(dt.min<START_MIN))then return false end
  return true
end