static void test(lua_State *L)
{
   lua_State *tL = lua_newthread(L);
   L = lua_open();
   luaL_openlibs(L);

   lua_getglobal(tL, "message");
   int callRef = luaL_ref(tL, LUA_REGISTRYINDEX);

   for (size_t i = 0; i < 100000; i++)
   {
      lua_rawgeti(tL, LUA_REGISTRYINDEX, callRef);
      lua_pushstring(tL, "test");
      lua_pcall(tL, 1, 0, 0);
      Sleep(1);
   }
}

static void test()
{
   lua_State* L = luaL_newstate();
   luaL_openlibs(L);
   if (luaL_loadfile(L, "back.lua") ||
      lua_pcall(L, 0, 0, 0)) {
      return;
   }

   lua_getglobal(L, "message"); 
   int callRef = luaL_ref(L, LUA_REGISTRYINDEX);

   for (size_t i = 0; i < 10000; i++)
   {
      lua_rawgeti(L, LUA_REGISTRYINDEX, callRef);
      lua_pushstring(L, "test");
      lua_pcall(L, 1, 0, 0);
      Sleep(1);
   }
} 

static void test(lua_State *L)
{
   for (size_t i = 0; i < 10000; i++)
   {
      lua_getglobal(L, "message");
      lua_pushstring(L, "test");
      lua_pcall(L, 1, 0, 0);
   }
}

static int forLua_StartProgramm(lua_State *L)
{
   std::thread thr(test, L); //Запускает выполнение функции в отдельном потоке
   thr.detach();
   return (0); 
}

static struct luaL_reg ls_lib[] = {
   { "StartProgramm", forLua_StartProgramm },
   { NULL, NULL }
};

extern "C" LUALIB_API int luaopen_QluaCSharpConnector(lua_State *L) {
   luaL_openlib(L, "QluaCSharpConnector", ls_lib, 0);
   return 0;
} 

require("QluaCSharpConnector");
 
Run = true; 

function main()
   QluaCSharpConnector.StartProgramm();
   
   while Run do
        sleep(1);
   end;
end;
  
function OnStop()
   Run = false;
end;