其他语言接入

易语言

易语言可以直接声明 DLL 命令，不需要任何额外组件。注意易语言编译出的是 32 位程序，必须使用 windows/x86/protect.dll。

第一步：声明 DLL 命令（在「插入 → DLL 命令」中填写，或用下面的代码粘贴到源码）

.版本 2

.DLL命令 protect_start, 整数型, "protect.dll", "protect_start", 公开
    .参数 config, 文本型, , , , JSON 配置，形如 {"access_key":"接入码"}

.DLL命令 protect_stop, 整数型, "protect.dll", "protect_stop", 公开

.DLL命令 protect_error, 文本型, "protect.dll", "protect_error", 公开

第二步：启动与停止

.子程序 __启动窗口_创建完毕
.局部变量 cfg, 文本型
.局部变量 ret, 整数型

cfg ＝ "{" ＋ #引号 ＋ "access_key" ＋ #引号 ＋ ":" ＋ #引号 ＋ "你的接入码" ＋ #引号 ＋ "}"
ret ＝ protect_start (cfg)

.如果真 (ret ≠ 0)
    信息框 ("防护启动失败：" ＋ protect_error (), 0, , )
.如果真结束


.子程序 __启动窗口_将被销毁
protect_stop ()

Java

用 JNA 调用最简单，不需要写 JNI。先加依赖：

<dependency>
    <groupId>net.java.dev.jna</groupId>
    <artifactId>jna</artifactId>
    <version>5.14.0</version>
</dependency>

定义接口，注意继承 StdCallLibrary 而不是普通的 Library：

import com.sun.jna.Native;
import com.sun.jna.win32.StdCallLibrary;

public interface Protect extends StdCallLibrary {
    Protect INSTANCE = Native.load("protect", Protect.class);

    int protect_start(String config);
    int protect_stop();
    String protect_error();
}

调用：

import com.sun.jna.Native;

public class Demo {
    public static void main(String[] args) {
        // 让 JNA 按 UTF-8 转换字符串，否则中文错误信息会乱码
        Native.setDefaultStringEncoding("UTF-8");

        String cfg = "{\"access_key\":\"你的接入码\"}";

        int ret = Protect.INSTANCE.protect_start(cfg);
        if (ret != 0) {
            System.out.println("启动失败: " + Protect.INSTANCE.protect_error());
        }

        // 退出前停止
        Runtime.getRuntime().addShutdownHook(
            new Thread(Protect.INSTANCE::protect_stop));
    }
}

C#

用 P/Invoke 声明，注意 CallingConvention.StdCall：

using System;
using System.Text;
using System.Runtime.InteropServices;

class Program
{
    [DllImport("protect.dll", CallingConvention = CallingConvention.StdCall)]
    static extern int protect_start(byte[] config);

    [DllImport("protect.dll", CallingConvention = CallingConvention.StdCall)]
    static extern int protect_stop();

    [DllImport("protect.dll", CallingConvention = CallingConvention.StdCall)]
    static extern IntPtr protect_error();

    static void Main()
    {
        // 手动转 UTF-8 并补 0 结尾，避免系统 ANSI 编码问题
        byte[] cfg = Encoding.UTF8.GetBytes("{\"access_key\":\"你的接入码\"}\0");

        int ret = protect_start(cfg);
        if (ret != 0)
        {
            IntPtr p = protect_error();
            Console.WriteLine("启动失败: " + Marshal.PtrToStringUTF8(p));
        }

        try
        {
            Console.ReadLine();   // 程序运行期间保持
        }
        finally
        {
            protect_stop();       // 异常退出也能保证停止
        }
    }
}

Python

用标准库 ctypes，注意 __stdcall 要用 WinDLL（不是 CDLL）：

import ctypes

lib = ctypes.WinDLL("protect.dll")   # WinDLL = __stdcall

lib.protect_start.argtypes = [ctypes.c_char_p]
lib.protect_start.restype = ctypes.c_uint32

lib.protect_stop.argtypes = []
lib.protect_stop.restype = ctypes.c_uint32

lib.protect_error.argtypes = []
lib.protect_error.restype = ctypes.c_char_p

cfg = '{"access_key":"你的接入码"}'.encode("utf-8")
ret = lib.protect_start(cfg)

if ret != 0:
    err = lib.protect_error()
    print("启动失败:", err.decode("utf-8", "replace") if err else "(无错误信息)")

try:
    input("防护已启动，按回车停止...")
finally:
    lib.protect_stop()

Go

用 syscall.NewLazyDLL，Windows 上默认就是 __stdcall：

package main

import (
    "fmt"
    "syscall"
    "time"
    "unsafe"
)

var (
    dll    = syscall.NewLazyDLL("protect.dll")
    start  = dll.NewProc("protect_start")
    stop   = dll.NewProc("protect_stop")
    getErr = dll.NewProc("protect_error")
)

func main() {
    if err := dll.Load(); err != nil {
        fmt.Println("加载 protect.dll 失败:", err)
        return
    }

    cfg := append([]byte(`{"access_key":"你的接入码"}`), 0)

    ret, _, _ := start.Call(uintptr(unsafe.Pointer(&cfg[0])))
    if ret != 0 {
        p, _, _ := getErr.Call()
        fmt.Println("启动失败:", syscall.BytePtrToString((*byte)(unsafe.Pointer(p))))
    }

    defer stop.Call()

    time.Sleep(30 * time.Second)   // 程序运行期间保持
}

Delphi

直接声明外部函数，加 stdcall：

function protect_start(config: PAnsiChar): DWORD; stdcall; external 'protect.dll';
function protect_stop: DWORD; stdcall; external 'protect.dll';
function protect_error: PAnsiChar; stdcall; external 'protect.dll';

procedure TForm1.FormCreate(Sender: TObject);
var
  cfg: AnsiString;
  ret: DWORD;
begin
  cfg := '{"access_key":"你的接入码"}';
  ret := protect_start(PAnsiChar(cfg));
  if ret <> 0 then
    ShowMessage('启动失败: ' + UTF8ToString(protect_error));
end;

procedure TForm1.FormDestroy(Sender: TObject);
begin
  protect_stop();
end;