-- Подключает библиотеку DLL
require("QluaCSharpConnector");
 
-- Флаг для поддержания работы функции main
IsRun = true;
 
function main()
   -- Запускает функцию отправки сообщений в C#
   QluaCSharpConnector.StartSendHi();
   -- Обеспечивает работу скрипта и библиотеки до остановки скрипта пользователем
   while IsRun do
      sleep(1000);
   end;
end;
 
function OnStop()
   -- Останавливает функцию отправки сообщений в C#
   QluaCSharpConnector.StopSendHi();
   -- Останавливает цикл в функции main
   IsRun = false;
end;

#include <windows.h>
 
//=== Необходимые для Lua константы ============================================================================//
#define LUA_LIB
#define LUA_BUILD_AS_DLL
 
//=== Заголовочные файлы LUA ===================================================================================//
extern "C" {
    #include "Lua\lauxlib.h"
    #include "Lua\lua.h"
}
 
//=== Получает указатель на выделенную именованную память =====================================================//
// Имя для выделенной памяти
TCHAR Name[] = TEXT("MyMemory");
// Создаст, или подключится к уже созданной памяти с таким именем
HANDLE hFileMapMyMemory = CreateFileMapping(INVALID_HANDLE_VALUE, NULL, PAGE_READWRITE, 0, 256, Name);
 
//=== Стандартная точка входа для DLL ==========================================================================//
BOOL APIENTRY DllMain(HANDLE hModule, DWORD  ul_reason_for_call, LPVOID lpReserved)
{
    return TRUE;
}
// Флаг необходимости отправлять сообщение
bool Run = true;
 
//=== Реализация функций, вызываемых из LUA ====================================================================//
static int forLua_StartSendHi(lua_State *L) // Отправляет сообщения для C#
{
    // Если указатель на память получен
    if (hFileMapMyMemory)
    {
        // Получает доступ (представление) непосредственно к чтению/записи байт
        PBYTE pb = (PBYTE)(MapViewOfFile(hFileMapMyMemory, FILE_MAP_READ | FILE_MAP_WRITE, 0, 0, 256));
 
        // Если доступ получен
        if (pb != NULL)
        {
            // Очищает память при первом обращении
            for (int i = 0; i < 256; i++)pb[i] = '\0';
 
            // Бесконечный цикл пока Run == true
            while (Run)
            {
                // Если запись пустая (либо первая отправка, либо C# очистил память, подтвердив получение)
                if (pb[0] == 0)
                {
                    // Записывает текст сообщения в память
                    char *Str = "Привет из C/C++";
                    memcpy(pb, Str, strlen(Str));
                }
                // Пауза в 1 секунду
                Sleep(1000);
            }
 
            // Закрывает представление
            UnmapViewOfFile(pb);
            // Закрывает указатель на память
            CloseHandle(hFileMapMyMemory);
        }
    }
    return(0);
}
 
static int forLua_StopSendHi(lua_State *L) // Прекращает отправку сообщений для C#
{
    Run = false; // Выключает флаг
 
    return(0);
}
 
//=== Регистрация реализованных в dll функций, чтобы они стали "видимы" для Lua ================================//
static struct luaL_reg ls_lib[] = {
    { "StartSendHi", forLua_StartSendHi }, // из скрипта Lua эту функцию можно будет вызывать так: QluaCSharpConnector.StartSendHi(); здесь можно указать любое другое название
    { "StopSendHi", forLua_StopSendHi }, // соответственно
    { NULL, NULL }
};
 
//=== Регистрация названия библиотеки, видимого в скрипте Lua ==================================================//
extern "C" LUALIB_API int luaopen_QluaCSharpConnector(lua_State *L) {
    luaL_openlib(L, "QluaCSharpConnector", ls_lib, 0);
    return 0;
}

using System;
using System.Collections.Generic;
using System.ComponentModel;
using System.Data;
using System.Drawing;
using System.IO;
using System.IO.MemoryMappedFiles;
using System.Linq;
using System.Text;
using System.Threading;
using System.Threading.Tasks;
using System.Windows.Forms;
 
namespace Test
{
    public partial class Form1 : Form
    {
        // Выделенная именованная память
        public MemoryMappedFile Memory;
        // Объект для чтения из памяти
        StreamReader SR_Memory;
        // Объект для записи в память
        StreamWriter SW_Memory;
 
        // Флаг необходимости получать сообщения
        bool Run = true;
 
        public Form1()
        {
            InitializeComponent();
 
            // Создаст, или подключится к уже созданной памяти с таким именем
            Memory = MemoryMappedFile.CreateOrOpen("MyMemory", 256, MemoryMappedFileAccess.ReadWrite);
            // Создает поток для чтения
            SR_Memory = new StreamReader(Memory.CreateViewStream(), System.Text.Encoding.Default);
            // Создает поток для записи
            SW_Memory = new StreamWriter(Memory.CreateViewStream(), System.Text.Encoding.Default);
        }
 
        // Делегат нужен для того, чтобы безопасно обратиться к TextBox из другого потока
        private delegate void TB(string Msg);
        private void AppText(string Msg)
        {
            // Добавляет к сообщению символ перехода на новую строку
            textBox1.AppendText(Msg + Environment.NewLine);
        }
 
        private void GetMessage()// Получает сообщения от DLL, выводит их в текстовое поле, очищает память
        {
            string Msg = "";
            // Цикл работает пока Run == true
            while(Run)
            {
                // Встает в начало потока для чтения
                SR_Memory.BaseStream.Seek(0, SeekOrigin.Begin);
                // Считывает данные из потока памяти, обрезая ненужные байты
                Msg = SR_Memory.ReadToEnd().Trim('\0', '\r', '\n');
 
                // Если в потоке нужное сообщение ("Привет из C/C++")
                if (Msg == "Привет из C/C++")
                {
                    // Потокобезопасно выводит сообщение в текстовое поле
                    BeginInvoke(new TB(AppText), Msg);
 
                    // Встает в начало потока для записи
                    SW_Memory.BaseStream.Seek(0, SeekOrigin.Begin);
                    // Очищает память, заполняя "нулевыми байтами"
                    for (int i = 0; i < 256; i++) SW_Memory.Write("\0");
                    // Очищает все буферы для SW_Memory и вызывает запись всех данных буфера в основной поток
                    SW_Memory.Flush();
                }
 
                //Пауза в 1 секунду
                Thread.Sleep(1000);
            }
 
            // По завершению цикла, закрывает все потоки и освобождает именованную память
            SR_Memory.Close();
            SW_Memory.Close();
            Memory.Dispose();
        }
 
        private void Form1_FormClosing(object sender, FormClosingEventArgs e)
        {
            Run = false;// Выключает флаг
        }
 
        private void Form1_Shown(object sender, EventArgs e)
        {
           // Запускает функцию чтения и вывода сообщений в отдельном потоке, чтобы форма отвечала на действия пользователя
            new Thread(() =>
            {
                GetMessage();
            }).Start();
        }
    }
}