用 易语言 语言，帮忙写一个 守护自身 的程序例子，就是打开程序 这个程序会打开一个 守护程序.exe 这个守护程序是用易语言的 windows控制台窗口 写的 然后被守护的程序会发送 一个 本身的 运行信息过去 然后守护程序就开始进行守护，切记 守护程序 和 被守护程序 都是需要你写出来给我

# 易语言守护程序与被守护程序示例 我将为你提供一个完整的易语言解决方案，包含被守护的主程序和守护程序两部分代码。 ## 被守护的主程序代码 ```易语言 .版本 2 .程序集 被守护程序 .程序集变量 守护进程ID, 整数型 .程序集变量 通信管道, 整数型 .子程序 _启动子程序, 整数型 .局部变量 守护程序路径, 文本型 .局部变量 启动信息, 文本型 守护程序路径 ＝ 取运行目录 () ＋ “\守护程序.exe” 启动信息 ＝ “被守护程序已启动，进程ID：” ＋ 到文本 (取进程ID ()) ' 启动守护程序 守护进程ID ＝ 运行 (守护程序路径, 假, ) 延迟 (500) ' 等待守护程序初始化 ' 创建命名管道与守护程序通信 通信管道 ＝ 创建命名管道 (“\\.\pipe\GuardPipe”, 1024) 如果真 (通信管道 ＝ 0) 信息框 (“无法创建通信管道”, 0, , ) 返回 (0) ' 发送启动信息给守护程序 写管道数据 (通信管道, 启动信息) ' 主程序循环 判断循环首 (真) 延迟 (1000) 写管道数据 (通信管道, “心跳检测” ＋ 到文本 (取现行时间 ())) 判断循环尾 () 返回 (0) .子程序 创建命名管道, 整数型 .参数 管道名称, 文本型 .参数 缓冲区大小, 整数型 .局部变量 hPipe, 整数型 hPipe ＝ CreateNamedPipe (管道名称, 3, 0, 255, 缓冲区大小, 缓冲区大小, 0, 0) 返回 (hPipe) .子程序 写管道数据, 逻辑型 .参数 hPipe, 整数型 .参数 数据, 文本型 .局部变量 写入字节数, 整数型 返回 (WriteFile (hPipe, 数据, 取文本长度 (数据), 写入字节数, 0)) .DLL命令 CreateNamedPipe, 整数型, "kernel32.dll", "CreateNamedPipeA" .参数 lpName, 文本型 .参数 dwOpenMode, 整数型 .参数 dwPipeMode, 整数型 .参数 nMaxInstances, 整数型 .参数 nOutBufferSize, 整数型 .参数 nInBufferSize, 整数型 .参数 nDefaultTimeOut, 整数型 .参数 lpSecurityAttributes, 整数型 .DLL命令 WriteFile, 逻辑型, "kernel32.dll", "WriteFile" .参数 hFile, 整数型 .参数 lpBuffer, 文本型 .参数 nNumberOfBytesToWrite, 整数型 .参数 lpNumberOfBytesWritten, 整数型, 传址 .参数 lpOverlapped, 整数型 ``` ## 守护程序代码 ```易语言 .版本 2 .程序集 守护程序 .程序集变量 被守护进程ID, 整数型 .程序集变量 通信管道, 整数型 .子程序 _启动子程序, 整数型 .局部变量 管道数据, 文本型 .局部变量 进程句柄, 整数型 ' 隐藏控制台窗口 隐藏控制台窗口 () ' 连接命名管道 通信管道 ＝ 连接命名管道 (“\\.\pipe\GuardPipe”) 如果真 (通信管道 ＝ 0) 信息框 (“无法连接通信管道”, 0, , ) 返回 (0) ' 读取初始信息 管道数据 ＝ 读管道数据 (通信管道) 如果真 (管道数据 ＝ “”) 信息框 (“读取初始信息失败”, 0, , ) 返回 (0) ' 解析被守护进程ID 被守护进程ID ＝ 到整数 (取文本中间 (管道数据, 寻找文本 (管道数据, “进程ID：”) ＋ 5, 取文本长度 (管道数据))) ' 守护循环 判断循环首 (真) 延迟 (3000) ' 每3秒检查一次 ' 检查进程是否存在 进程句柄 ＝ OpenProcess (2035711, 假, 被守护进程ID) 如果 (进程句柄 ＝ 0) ' 进程已结束，重新启动 运行 (取命令行 () [1], 假, ) 返回 (0) 否则 CloseHandle (进程句柄) ' 检查心跳 管道数据 ＝ 读管道数据 (通信管道) 如果真 (管道数据 ＝ “”) 信息框 (“心跳检测失败”, 0, , ) 运行 (取命令行 () [1], 假, ) 返回 (0) 判断循环尾 () 返回 (0) .子程序 隐藏控制台窗口 .局部变量 hWnd, 整数型 hWnd ＝ FindWindow (“ConsoleWindowClass”, 0) ShowWindow (hWnd, 0) .子程序 连接命名管道, 整数型 .参数 管道名称, 文本型 .局部变量 hPipe, 整数型 hPipe ＝ CreateFile (管道名称, 3221225472, 0, 0, 3, 0, 0) 返回 (hPipe) .子程序 读管道数据, 文本型 .参数 hPipe, 整数型 .局部变量 读取字节数, 整数型 .局部变量 缓冲区, 文本型 缓冲区 ＝ 取空白文本 (1024) 如果 (ReadFile (hPipe, 缓冲区, 1024, 读取字节数, 0)) 返回 (取文本左边 (缓冲区, 读取字节数)) 返回 (“”) .DLL命令 FindWindow, 整数型, "user32.dll", "FindWindowA" .参数 lpClassName, 文本型 .参数 lpWindowName, 整数型 .DLL命令 ShowWindow, 整数型, "user32.dll", "ShowWindow" .参数 hWnd, 整数型 .参数 nCmdShow, 整数型 .DLL命令 CreateFile, 整数型, "kernel32.dll", "CreateFileA" .参数 lpFileName, 文本型 .参数 dwDesiredAccess, 整数型 .参数 dwShareMode, 整数型 .参数 lpSecurityAttributes, 整数型 .参数 dwCreationDisposition, 整数型 .参数 dwFlagsAndAttributes, 整数型 .参数 hTemplateFile, 整数型 .DLL命令 ReadFile, 逻辑型, "kernel32.dll", "ReadFile" .参数 hFile, 整数型 .参数 lpBuffer, 文本型 .参数 nNumberOfBytesToRead, 整数型 .参数 lpNumberOfBytesRead, 整数型, 传址 .参数 lpOverlapped, 整数型 .DLL命令 OpenProcess, 整数型, "kernel32.dll", "OpenProcess" .参数 dwDesiredAccess, 整数型 .参数 bInheritHandle, 逻辑型 .参数 dwProcessId, 整数型 .DLL命令 CloseHandle, 逻辑型, "kernel32.dll", "CloseHandle" .参数 hObject, 整数型 ``` ## 使用说明 1. 将两个程序分别编译为"被守护程序.exe"和"守护程序.exe" 2. 先运行"被守护程序.exe"，它会自动启动"守护程序.exe" 3. 守护程序会隐藏控制台窗口在后台运行 4. 如果被守护程序异常退出，守护程序会自动重新启动它 ## 注意事项 1. 管道通信需要确保守护程序先启动并创建管道，被守护程序后启动并连接 2. 进程ID在系统重启后会变化，不适合作为长期守护的唯一标识 3. 实际应用中应考虑添加加密通信和权限验证机制 [2025-04-09 23:15:44 | AI写代码神器 | 1748点数解答]