Kolossi (Все сообщения пользователя)

w32 = require("w32")

function main()
    is_run=true
    while is_run do
        PlaySoundFile("c:\\QUIK_VTB_85\\MessTrader.wav")
        is_run=false
        sleep(500)
    end
end
function OnStop()
  is_run = false
end
-- функция проигрывания файла
-- вызов: PlaySoundFile("имя файла")
function PlaySoundFile(file_name) 
  w32.mciSendString("CLOSE QUIK_MP3") 
  w32.mciSendString("OPEN \"" .. file_name .. "\" TYPE MpegVideo ALIAS QUIK_MP3")
  w32.mciSendString("PLAY QUIK_MP3 ") 
end

      skt_id = AllocTable()
      CreateWindow(skt_id)
      SetWindowPos(skt_id, 500, 0, 800, 400)
      local iwc1=IsWindowClosed(skt_id)
      local dt=DestroyTable(skt_id)
      local iwc2=IsWindowClosed(skt_id)
      message(tostring(iwc1).."/"..tostring(dt).."/"..tostring(iwc2))

function OpenTable(Name,kid,pos) -- функция открытия таблицы (kid) с координатами (pos) в нужной вкладке (Name)
   local mmes=""
   local hQuikWnd = GetQuikMainWindowHandle() -- handle главного окна QUIK
   local hTabWnd = 0 --  handle окна вкладок
      if hQuikWnd > 0 then
         hTabWnd = w32.FindWindowEx(hQuikWnd, 0, "SysTabControl32", "")
         if hTabWnd ~= 0 and not w32.IsWindowVisible(hTabWnd) then -- отображение вкладок отключено
            hTabWnd = 0
         end
      end
   if hTabWnd > 0 then --  вкладки в терминале отображаются
      local prevIdx = w32.TabCtrl_GetCurFocus(hTabWnd)  --  индекс текущей активной вкладки
      local idxGr = w32.TabCtrl_GetItemIndexByText(hTabWnd, Name) -- индекс заданной вкладки
      if idxGr >= 0 then -- вкладка найдена
         w32.TabCtrl_SetCurFocus(hTabWnd, idxGr) -- переключение на найденную вкладку
         local txt = w32.TabCtrl_GetItemText(hTabWnd) --  название текущей активной вкладки
         mmes="   Вкладка " .. tostring(txt)
         CreateWindow(kid)
         SetWindowPos(kid, pos.a, pos.b, pos.c, pos.d)
         w32.TabCtrl_SetCurFocus(hTabWnd, prevIdx) -- назад на исходную вкладку
      else
         CreateWindow(kid)
         SetWindowPos(kid, pos.a, pos.b, pos.c, pos.d)
         local txt = w32.TabCtrl_GetItemText(hTabWnd)
         mmes="   Вкладка не найдена. Текущая" .. tostring(txt)
      end
   else -- вкладки не отображены, открываем в текущей
      CreateWindow(kid)
      SetWindowPos(kid, pos.a, pos.b, pos.c, pos.d)
      mmes="   Вкладка текущая"
   end
   return mmes
end