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

t = {'a','b','c'}
t[2] = nil
for k,v in pairs(t) do print(k,v) end

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