易语言cmd远程服务

系统结构:控制台发送,控制台连接,控制台取回信息,读管道,创建匿名管道,创建进程,读文件,写文件,关闭句柄,获取启动信息_,打开进程句柄,

======程序集1
           |  |
           |  |------ 控制台发送
           |  |
           |  |------ 控制台连接
           |  |
           |  |------ 控制台取回信息
           |  |
           |  |------ 读管道
           |  |
           |  |
======窗口程序集1
           |  |
           |  |------ __启动窗口_创建完毕
           |  |
           |  |------ _客户1_数据到达
           |  |
           |  |
======调用的Dll
           |  |
           |  |---[dll]------   创建匿名管道
           |  |
           |  |---[dll]------   创建进程
           |  |
           |  |---[dll]------   读文件
           |  |
           |  |---[dll]------   写文件
           |  |
           |  |---[dll]------   关闭句柄
           |  |
           |  |---[dll]------   获取启动信息_
           |  |
           |  |---[dll]------   打开进程句柄
  ======窗口程序集1
           |  |
           |  |------ __启动窗口_创建完毕
           |  |
           |  |------ _服务器1_客户进入
           |  |
           |  |------ _服务器1_客户离开
           |  |
           |  |------ _编辑框1_字符输入
           |  |
           |  |------ _服务器1_数据到达
           |  |
           |  |------ _编辑框1_按下某键

调用的DLL命令:

.DLL命令 创建匿名管道, 整数型, , "CreatePipe"
    .参数 输出管道, 整数型, 传址
    .参数 输入管道, 整数型, 传址
    .参数 管道属性, security属性, 传址
    .参数 尺寸, 整数型

.DLL命令 创建进程, 整数型, , "CreateProcessA"
    .参数 程序名称, 整数型, , 32位程序用，可设为文本型
    .参数 命令行, 文本型
    .参数 进程属性, 整数型
    .参数 线程属性, 整数型
    .参数 参数一, 整数型
    .参数 参数二, 整数型
    .参数 参数三, 整数型
    .参数 运行目录, 文本型, , 如需指定运行目录设为文本行
    .参数 启动信息, 启动信息
    .参数 进程信息, 进程信息

.DLL命令 读文件, 整数型, , "ReadFile"
    .参数 文件号, 整数型
    .参数 缓存, 字节集, 传址
    .参数 读取尺寸, 整数型
    .参数 实际尺寸, 整数型, 传址
    .参数 参数, 整数型

.DLL命令 写文件, 整数型, , "WriteFile"
    .参数 文件号, 整数型
    .参数 写入内容, 字节集, 传址
    .参数 写入尺寸, 整数型
    .参数 实际尺寸, 整数型, 传址
    .参数 参数, 整数型

.DLL命令 关闭句柄, 整数型, , "CloseHandle"
    .参数 句柄, 整数型

.DLL命令 获取启动信息_, 整数型, "kernel32", "GetStartupInfoA"
    .参数 启动信息, 启动信息, 传址

.DLL命令 打开进程句柄, 整数型, , "OpenProcess"
    .参数 访问方法, 整数型
    .参数 子程序继承, 逻辑型, , 是否由子程序继承
    .参数 进程标识符, 整数型