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

package.loadlib('kernel32.dll','AllocConsole')(true)
io.output('CONOUT$')
io.input('CONIN$')

(math.modf(num + (num >= 0 and 0.5 or -0.5)))

w32 = require("w32")
QuikMainWindowHandle = 0

function OnInit()
  QuikMainWindowHandle = GetMainWindowHandle()
end

function main()
  if QuikMainWindowHandle ~= 0 then
    -- тут можно писать, что вашей душе угодно
    w32.SetWindowText(QuikMainWindowHandle, "Testing....")
  end
end

function GetMainWindowHandle() -- Получить дескриптор главного окна QUIK
  local CurrentProcessId = w32.GetCurrentProcessId()
  local hWnd=0
  while true do
    hWnd = w32.FindWindowEx(0, hWnd, "InfoClass", "")
    if hWnd == 0 then break end -- Окно не найдено
    local ThreadId, ProcessId = w32.GetWindowThreadProcessId(hWnd)
    if ProcessId == CurrentProcessId then break end -- Окно найдено
  end
  return hWnd
end

function tgmsg(text)
  local curl = 'curl.exe'
  local token = '.....'
  local chatid = '....'

  text = string.gsub(text, '[^0-9a-zA-Z\x80-\xff._~-]', function(chr) return string.format("%%%02x", string.byte(chr)) end)
  local h, e, c = io.popen(curl .. ' -X POST --data-raw text="' .. text .. '" https://api.telegram.org/bot' .. token .. '/sendMessage?chat_id=' .. chatid)
  if h then
      local a = h:read('a')
      return a, h:close()
  else
      return false, e, c
  end
end

x86_64-w64-mingw32-gcc -O2 -fPIC  *.c luasocket/buffer.c luasocket/io.c luasocket/timeout.c luasocket/wsocket.c -shared -Wl,-s -o ssl.dll -I. -L. -lssl -llua -lcrypto -lws2_32

w32 = require("w32")

run = true
evt = false

function OnInit()
  evt = w32.CreateEvent(nil, 0, 0, nil)
end

function OnStop()
 run = false
 w32.SetEvent(evt)
end

function main()
  while run do
     w32.WaitForSingleObject(evt, 1000000)
  end
  w32.CloseHandle(evt)
end