怎么用易语言制作控制端和被控端

源码已经上传了，里面包含模块以及例程，所以有点贵。。。如果不想付财富值，我有源码：

控制端：

版本 2
支持库 iext

程序集 窗口程序集_启动窗口
程序集变量 数据_程序集, 字节集, , , 储存接受到得数据
程序集变量 文件管理_当前目录, 文本型, , , 储存当前访问的目录
程序集变量 服务管理_文件头, 文本型

子程序 _退出_被选择

结束 ()

子程序 __启动窗口_创建完毕

动态标题 ()

子程序 __启动窗口_将被销毁

' 移除皮肤 ()

子程序 动态标题

置随机数种子 ()
_启动窗口标题 ＝ 字符 (取随机数 (65, 90)) ＋ 到文本 (取随机数 (0, 10)) ＋ 字符 (取随机数 (65, 90)) ＋ 到文本 (取随机数 (0, 10)) ＋ 字符 (取随机数 (65, 90)) ＋ 到文本 (取随机数 (0, 10))

子程序 _工具条1_被单击
参数 按钮索引, 整数型

判断开始 (按钮索引 ＝ 12)  ' 关于
    载入 (窗口2, , 假)
判断 (按钮索引 ＝ 10)  ' 退出
    结束 ()
判断 (按钮索引 ＝ 2)  ' 屏幕截图
    载入 (屏幕截图, , 假)
判断 (按钮索引 ＝ 4)  ' 视频捕获
    载入 (视频捕获, , 假)

默认

判断结束

子程序 _服务器1_客户进入
局部变量 temp, 文本型

temp ＝ 服务器1取回客户 ()
列表框1插入项目 (列表框1取项目数 (), temp, )
播放音乐 (“sound\loginwav”, )

子程序 _服务器1_客户离开
局部变量 temp, 文本型
局部变量 i

temp ＝ 服务器1取回客户 ()
计次循环首 (列表框1取项目数 (), i)
    如果真 (列表框1取项目文本 (i － 1) ＝ temp)
        列表框1删除项目 (i － 1)
        如果真 (当前控制客户 ＝ temp)
            播放音乐 (“sound\offlinewav”, )
            当前控制客户 ＝ “”
            跳出循环 ()
        如果真结束

    如果真结束

计次循环尾 ()

子程序 _服务器1_数据到达
局部变量 temp, 字节集

temp ＝ 服务器1取回数据 ()
如果真 (取字节集右边 (temp, 4) ＝ 到字节集 (“over”))
    数据_程序集 ＝ 数据_程序集 ＋ 取字节集左边 (temp, 取字节集长度 (temp) － 4)
    输出调试文本 (“已经接收到over : ” ＋ 到文本 (取字节集长度 (数据_程序集)))
    处理数据 (数据_程序集)
    数据_程序集 ＝ {  }
    返回 ()
如果真结束
数据_程序集 ＝ 数据_程序集 ＋ temp
输出调试文本 (“这里是临时字节 : ” ＋ 到文本 (取字节集长度 (数据_程序集)))
返回 ()
' 以下为过期代码暂保留
' 缩略程序块
' ' 临时测试区
' ' 输出调试文本 (取字节集右边 (temp, 取字节集长度 (temp) － 4))
' ' temp ＝ 取字节集右边 (temp, 取字节集长度 (temp) － 4)

' ' 输出调试文本 (取字节集长度 (temp))
' 返回 ()
' ' 测试完毕
' 如果真 (取字节集左边 (temp, 4) ＝ 到字节集 (“over”))  ' 如果发送完毕

' 加入成员 (完整数据, 取字节集右边 (temp, 取字节集长度 (temp) － 4))
    ' 输出调试文本 (取数组成员数 (完整数据))
    ' 数据排序 (完整数据)  ' 处理数据,进行排序校验
    ' 清除数组 (完整数据)  ' 清除数组,防止内存泄漏
    ' 返回 ()
如果真结束

' 接受数据 (temp)
' temp ＝ {  }

' ' temp ＝ 服务器1取回数据 ()  ' 取回数据,储存到临时变量
' ' ' 输出调试文本 (取字节集长度 (temp))
' 如果真 (temp ＝ 到字节集 (“over”))  ' 如果发送完毕
    ' ' 数据排序 (完整数据)  ' 处理数据,进行排序校验
    ' ' 清除数组 (完整数据)  ' 清除数组,防止内存泄漏
    ' ' 返回 ()
如果真结束

' ' 长度 ＝ 取字节集长度 (temp)  ' 得到数据长度
' 如果真 (数据校验 (temp, 长度) ＝ 假)  ' 效验数据是否正确
    ' ' ' ' 发送数据 (服务器1取回客户 (), “错误”, 到文本 (取字节集中间 (temp, 33, 36)))  ' 如果错误,拒绝接受,返回序号要求重发
    ' ' ' 输出调试文本 (“MD5校验出错!”)
    ' ' ' 返回 ()
如果真结束
' ' 调试输出 (到文本 (取字节集中间 (temp, 33, 4)))
' ' 加入成员 (完整数据, 取字节集右边 (temp, 长度 － 32))  ' 如果没发送完毕加入程序集变量等待下次数据

子程序 _列表框1_列表项被选择

当前控制客户 ＝ 列表框1取项目文本 (列表框1现行选中项)
判断开始 (选择夹1现行子夹 ＝ 1)  ' 系统信息
    发送数据 (当前控制客户, “信息”, )
默认

判断结束

子程序 _选择夹1_子夹被改变

判断开始 (选择夹1现行子夹 ＝ 1)  ' 系统信息
    发送数据 (当前控制客户, “信息”, )
默认

判断结束

子程序 _远程命令按钮1_被单击
局部变量 命令, 文本型

命令 ＝ 远程命令组合框1内容
发送数据 (当前控制客户, “命令”, 命令)

子程序 _远程命令组合框1_放开某键, 逻辑型
参数 键代码, 整数型
参数 功能键状态, 整数型

如果真 (键代码 ＝ #回车键)
    _远程命令按钮1_被单击 ()
如果真结束

子程序 _远程命令按钮2_被单击

如果 (远程命令按钮2标题 ＝ “连接”)
    远程命令按钮2标题 ＝ “断开”
    发送数据 (当前控制客户, “命令”, “连接”)
否则
    远程命令按钮2标题 ＝ “连接”
    发送数据 (当前控制客户, “命令”, “断开”)
如果结束

子程序 _按钮1_被单击

发送数据 (当前控制客户, “文件”, “disk”)
' 文件管理_当前目录 ＝ 文件管理_当前目录 ＋ “c:\”

子程序 _文件管理超级列表框1_被双击, 逻辑型
参数 横向位置, 整数型
参数 纵向位置, 整数型
参数 功能键状态, 整数型

如果真 (文件管理超级列表框1现行选中项 ＜ 0)
    返回 ()
如果真结束

如果真 (文件管理超级列表框1取标题 (文件管理超级列表框1现行选中项, ) ＝ “后退” 且 文件管理超级列表框1现行选中项 ＝ 0)
    发送数据 (当前控制客户, “文件”, 文件管理_后退 (文件管理_当前目录))
    返回 ()
如果真结束

文件管理_当前目录 ＝ 文件管理_当前目录 ＋ 文件管理超级列表框1取标题 (文件管理超级列表框1现行选中项, )
如果真 (取文本右边 (文件管理_当前目录, 1) ≠ “\”)
    文件管理_当前目录 ＝ 文件管理_当前目录 ＋ “\”
如果真结束
输出调试文本 (文件管理_当前目录)
发送数据 (当前控制客户, “文件”, 文件管理_当前目录)

子程序 _按钮2_被单击

发送数据 (当前控制客户, “进程”, “list”)

子程序 _进程管理超级列表框1_右键单击表项

d出菜单 (进程管理菜单, , )

子程序 _刷新列表_被选择

发送数据 (当前控制客户, “进程”, “list|”)

子程序 _结束进程_被选择

发送数据 (当前控制客户, “进程”, “kill|” ＋ 进程管理超级列表框1取标题 (进程管理超级列表框1现行选中项, 1))

子程序 _暂停进程_被选择

发送数据 (当前控制客户, “进程”, “stop|” ＋ 进程管理超级列表框1取标题 (进程管理超级列表框1现行选中项, 1))

子程序 _恢复进程_被选择

发送数据 (当前控制客户, “进程”, “stat|” ＋ 进程管理超级列表框1取标题 (进程管理超级列表框1现行选中项, 1))

子程序 _服务管理超级列表框1_右键单击表项

判断开始 (服务管理超级列表框1取标题 (服务管理超级列表框1现行选中项, 4) ＝ “正在运行”)

服务菜单1标题 ＝ “停止服务”

判断 (服务管理超级列表框1取标题 (服务管理超级列表框1现行选中项, 4) ＝ “已停止”)
    服务菜单1标题 ＝ “运行服务”
默认

判断结束

d出菜单 (服务管理菜单, , )

子程序 _服务菜单1_被选择

如果 (服务菜单1标题 ＝ “停止服务”)
    发送数据 (当前控制客户, “服务”, “exit” ＋ 服务管理超级列表框1取标题 (服务管理超级列表框1现行选中项, ))
否则
    发送数据 (当前控制客户, “服务”, “erun” ＋ 服务管理超级列表框1取标题 (服务管理超级列表框1现行选中项, ))
如果结束

子程序 _暂停服务_被选择

发送数据 (当前控制客户, “服务”, “stop” ＋ 服务管理超级列表框1取标题 (服务管理超级列表框1现行选中项, ))

子程序 _继续服务_被选择

发送数据 (当前控制客户, “服务”, “reun” ＋ 服务管理超级列表框1取标题 (服务管理超级列表框1现行选中项, ))

子程序 _刷新列表_服务_被选择
局部变量 temp, 文本型

如果 (服务管理选择框选中 ＝ 真)
    temp ＝ “list2”  ' 驱动级
否则
    temp ＝ “list1”  ' 服务级
如果结束
发送数据 (当前控制客户, “服务”, temp)

子程序 文件管理_后退, 文本型
参数 参数, 文本型, 参考
局部变量 temp, 文本型
局部变量 位置_, 整数型

如果真 (取文本右边 (参数, 1) ＝ “\”)
    参数 ＝ 取文本左边 (参数, 取文本长度 (参数) － 1)
如果真结束

位置_ ＝ 倒找文本 (参数, “\”, , 假)
参数 ＝ 取文本左边 (参数, 位置_)
如果真 (参数 ≠ “”)
    返回 (参数)
如果真结束
返回 (“disk”)

子程序 _文件管理_刷新列表_被选择

如果真 (文件管理_当前目录 ＝ “”)
    发送数据 (当前控制客户, “文件”, “disk”)
    返回 ()
如果真结束

发送数据 (当前控制客户, “文件”, 文件管理_当前目录)

子程序 _文件管理超级列表框1_右键单击表项

d出菜单 (文件管理菜单1, , )

子程序 _下载_被选择
局部变量 文件名, 文本型

文件名 ＝ 文件管理超级列表框1取标题 (文件管理超级列表框1现行选中项, )
如果真 (取文本右边 (文件管理_当前目录, 1) ≠ “\”)
    文件管理_当前目录 ＝ 文件管理_当前目录 ＋ “\”
如果真结束

文件名 ＝ 文件管理_当前目录 ＋ 文件名
发送数据 (当前控制客户, “下载”, “下载” ＋ 文件名)

子程序 _剪辑版按钮1_被单击

发送数据 (当前控制客户, “剪辑”, “取文本”)

子程序 _剪辑版按钮2_被单击

发送数据 (当前控制客户, “剪辑”, “置文本” ＋ 剪辑版编辑框2内容)

子程序 _重命名_被选择
局部变量 文件名, 文本型
局部变量 新文件名, 文本型

文件名 ＝ 文件管理超级列表框1取标题 (文件管理超级列表框1现行选中项, )
如果真 (取文本右边 (文件管理_当前目录, 1) ≠ “\”)
    文件管理_当前目录 ＝ 文件管理_当前目录 ＋ “\”
如果真结束

文件名 ＝ 文件管理_当前目录 ＋ 文件名
输入框 (“请输入新的文件名”, “输入框”, 文件名, 新文件名, )
发送数据 (当前控制客户, “下载”, “重命” ＋ 文件名 ＋ “|” ＋ 新文件名)

子程序 _删除文件_被选择
局部变量 文件名, 文本型

文件名 ＝ 文件管理超级列表框1取标题 (文件管理超级列表框1现行选中项, )
如果真 (取文本右边 (文件管理_当前目录, 1) ≠ “\”)
    文件管理_当前目录 ＝ 文件管理_当前目录 ＋ “\”
如果真结束

文件名 ＝ 文件管理_当前目录 ＋ 文件名
发送数据 (当前控制客户, “下载”, “删除” ＋ 文件名)

被控端：

版本 2
支持库 dp1

程序集 功能处理
程序集变量 取回命令, 文本型
程序集变量 视频捕获临时文件, 文本型

子程序 执行命令
参数 参数, 字节集
局部变量 命令, 文本型

命令 ＝ 到文本 (参数)
如果真 (命令 ＝ “断开”)
    匿名管道是否连接 ＝ 假
    如果真 (控制台_断开连接 ())
        输出调试文本 (“断开匿名管道”)
    如果真结束

返回 ()
如果真结束

如果真 (匿名管道是否连接 ＝ 真)
    控制台_发送命令 (命令)
    控制台_取回结果 (&取回命令回调函数)
    返回 ()
如果真结束

如果真 (命令 ＝ “连接”)
    匿名管道是否连接 ＝ 真
    控制台_连接 ()
    控制台_取回结果 (&取回命令回调函数)
    返回 ()
如果真结束

发送数据 (“错误”, 到字节集 (“控制台_无法执行 *** 作”), )
' 匿名管道

子程序 系统信息
局部变量 CPU频率, 整数型
局部变量 CPU型号, 文本型
局部变量 IE版本, 文本型
局部变量 windows版本, 文本型
局部变量 当前用户, 文本型
局部变量 计算机名, 文本型
局部变量 系统信息, 类_取系统信息
局部变量 发送, 文本型
局部变量 分辨率, 文本型
局部变量 内存信息, 类_取内存信息
局部变量 物理内存信息, 文本型
局部变量 虚拟内存信息, 文本型

CPU频率 ＝ 系统信息取CPU频率 ()
CPU型号 ＝ 系统信息取CPU信息 ()
IE版本 ＝ 系统信息取IE版本 ()
windows版本 ＝ 系统信息取Windows版本 ()
当前用户 ＝ 系统信息取当前用户 ()
计算机名 ＝ 系统信息取计算机名 ()
分辨率 ＝ 到文本 (取屏幕宽度 ()) ＋ “” ＋ 到文本 (取屏幕高度 ())

物理内存信息 ＝ 到文本 (到整数 (内存信息取可用物理内存 () ÷ 1024 ÷ 1024)) ＋ “MB/” ＋ 到文本 (到整数 (内存信息取物理内存容量 () ÷ 1024 ÷ 1024)) ＋ “MB”

虚拟内存信息 ＝ 到文本 (到整数 (内存信息取可用虚拟内存 () ÷ 1024 ÷ 1024)) ＋ “MB/” ＋ 到文本 (到整数 (内存信息取虚拟内存容量 () ÷ 1024 ÷ 1024)) ＋ “MB”
发送 ＝ CPU型号 ＋ “|” ＋ 到文本 (CPU频率) ＋ “|” ＋ 物理内存信息 ＋ “|” ＋ 虚拟内存信息 ＋ “|” ＋ windows版本 ＋ “|” ＋ IE版本 ＋ “|” ＋ 当前用户 ＋ “|” ＋ 计算机名 ＋ “|” ＋ 分辨率
发送数据 (“信息”, 到字节集 (发送))
' 取系统信息

子程序 屏幕截图
参数 参数, 字节集
局部变量 temp, 文本型
局部变量 临时数据, 字节集
局部变量 是否持续, 逻辑型

如果真 (到文本 (参数) ＝ “”)
    屏幕截图发送 ()
    返回 ()
如果真结束

如果真 (到文本 (参数) ＝ “ok”)
    屏幕截图发送 ()
    返回 ()
如果真结束

' 屏幕截图

子程序 屏幕截图发送

发送数据 (“截图”, 压缩数据 (快照 (, , )), )

子程序 文件管理
参数 参数, 字节集
局部变量 命令, 文本型
局部变量 文件名, 文本型
局部变量 列表, 文本型

命令 ＝ 到文本 (参数)
如果真 (命令 ＝ “disk”)
    发送数据 (“文件disk|”, 到字节集 (取所有盘符 ()), )
    返回 ()
如果真结束

如果真 (取文本右边 (命令, 1) ≠ “\”)
    命令 ＝ 命令 ＋ “\”
如果真结束

文件名 ＝ 寻找文件 (命令 ＋ “”, #子目录)
判断循环首 (文件名 ≠ “”)
    列表 ＝ 列表 ＋ 文件名 ＋ “\|”
    文件名 ＝ 寻找文件 (, #子目录)
判断循环尾 ()

文件名 ＝ 寻找文件 (命令 ＋ “\”, )
判断循环首 (文件名 ≠ “”)
    列表 ＝ 列表 ＋ 文件名 ＋ “|”
    文件名 ＝ 寻找文件 (, )
判断循环尾 ()

发送数据 (“文件”, 到字节集 (列表), )

子程序 取回命令回调函数
参数 指针, 整数型

取回命令 ＝ 取回命令 ＋ 指针到文本 (指针)

如果真 (取文本右边 (取回命令, 1) ＝ “>”)
    发送数据 (“命令”, 到字节集 (取回命令), )
    取回命令 ＝ “”
如果真结束

子程序 进程管理
参数 参数, 字节集
局部变量 命令, 文本型, , "0"
局部变量 进程列表, 进程列表, , "0"
局部变量 i, 整数型
局部变量 temp, 文本型

命令 ＝ 分割文本 (到文本 (参数), “|”, )
判断开始 (命令 [1] ＝ “list”)
    如果真 (进程_取进程列表 (进程列表) ＝ 假)
        发送数据 (“错误”, 到字节集 (“进程_取进程列表失败!”))
        返回 ()
    如果真结束
    计次循环首 (取数组成员数 (进程列表), i)
        temp ＝ temp ＋ 进程列表 [i]名称 ＋ “,” ＋ 到文本 (进程列表 [i]PID) ＋ “,” ＋ 进程列表 [i]路径 ＋ “|”
    计次循环尾 ()
    发送数据 (“进程”, 到字节集 (temp), )

判断 (命令 [1] ＝ “stop”)
    进程_挂起进程 (到整数 (命令 [2]))
判断 (命令 [1] ＝ “stat”)
    进程_恢复进程 (到整数 (命令 [2]))
判断 (命令 [1] ＝ “kill”)

默认

判断结束

子程序 服务管理
参数 参数, 字节集
局部变量 命令, 文本型
局部变量 服务列表, 服务信息, , "0"
局部变量 是否驱动, 逻辑型
局部变量 i, 整数型
局部变量 数据, 文本型

命令 ＝ 到文本 (参数)
如果 (取文本右边 (命令, 1) ＝ 到文本 (1))
    是否驱动 ＝ 真
否则
    是否驱动 ＝ 假
如果结束

判断开始 (取文本左边 (命令, 4) ＝ “list”)
    E_取服务列表 (是否驱动, 服务列表)
    输出调试文本 (是否驱动)
    计次循环首 (取数组成员数 (服务列表), i)
        数据 ＝ 数据 ＋ 服务列表 [i]服务名称 ＋ “,”
        数据 ＝ 数据 ＋ 服务列表 [i]显示名称 ＋ “,”
        数据 ＝ 数据 ＋ 服务列表 [i]服务描述 ＋ “,”
        数据 ＝ 数据 ＋ 服务列表 [i]服务类型 ＋ “,”
        数据 ＝ 数据 ＋ 服务列表 [i]服务状态 ＋ “,”
        数据 ＝ 数据 ＋ 服务列表 [i]启动方式 ＋ “,”
        数据 ＝ 数据 ＋ 服务列表 [i]登陆方式 ＋ “,”
        数据 ＝ 数据 ＋ 服务列表 [i]进程PID ＋ “|”
    计次循环尾 ()
    发送数据 (“服务”, 到字节集 (数据), )
    数据 ＝ “”
    清除数组 (服务列表)
    返回 ()
判断 (取文本左边 (命令, 4) ＝ “exit”)

E_停止服务 (取文本右边 (命令, 取文本长度 (命令) － 4))
    返回 ()
判断 (取文本左边 (命令, 4) ＝ “stop”)
    E_暂停服务 (取文本右边 (命令, 取文本长度 (命令) － 4))
    返回 ()
判断 (取文本左边 (命令, 4) ＝ “reun”)
    E_继续服务 (取文本右边 (命令, 取文本长度 (命令) － 4))
    返回 ()
判断 (取文本左边 (命令, 4) ＝ “erun”)
    E_运行服务 (取文本右边 (命令, 取文本长度 (命令) － 4))
默认

判断结束

子程序 视频捕获
参数 参数, 字节集
局部变量 命令, 文本型

命令 ＝ 到文本 (参数)
如果真 (命令 ＝ “stat”)
    创建视频窗口 (窗口1分组框1取窗口句柄 (), 300, 300)
    处理事件 ()
    开始捕获 (600)
    计次循环首 (500, )
        处理事件 ()
    计次循环尾 ()

视频捕获临时文件 ＝ 取临时文件名 ()
    视频捕获发送 ()
    返回 ()
如果真结束
如果真 (命令 ＝ “ok”)
    视频捕获发送 ()
    返回 ()
如果真结束
如果真 (命令 ＝ “exit”)
    停止捕获 ()
    返回 ()
如果真结束

子程序 视频捕获发送
局部变量 temp, 字节集

如果真 (视频抓图 (视频捕获临时文件) ≠ 0)
    处理事件 ()
    temp ＝ 读入文件 (视频捕获临时文件)
    发送数据 (“视频”, 压缩数据 (temp), )
    temp ＝ {  }
如果真结束

子程序 文件下载
参数 参数, 字节集
局部变量 文件路径, 文本型
局部变量 命令, 文本型
局部变量 文本数组, 文本型, , "0"

命令 ＝ 到文本 (取字节集左边 (参数, 4))
文件路径 ＝ 到文本 (取字节集右边 (参数, 取字节集长度 (参数) － 4))
判断开始 (命令 ＝ “下载”)
    发送数据 (“下载”, 压缩数据 (读入文件 (文件路径)), )
判断 (命令 ＝ “重命”)
    文本数组 ＝ 分割文本 (文件路径, “|”, )
    如果真 (取数组成员数 (文本数组) ≥ 2)
        文件更名 (文本数组 [1], 文本数组 [2])
    如果真结束

判断 (命令 ＝ “删除”)
    删除文件 (文件路径)
默认

判断结束

子程序 剪辑版 *** 作
参数 参数, 字节集
局部变量 命令头, 文本型

命令头 ＝ 到文本 (取字节集左边 (参数, 6))
判断开始 (命令头 ＝ “取文本”)
    发送数据 (“剪辑”, 到字节集 (“文本” ＋ 取剪辑板文本 ()), )
判断 (命令头 ＝ “置文本”)
    置剪辑板文本 (到文本 (取字节集右边 (参数, 取字节集长度 (参数) － 10)))
默认

判断结束

可以。《死亡搁浅导演剪辑版》是一个恐怖闯关类游戏，在网络游戏《死亡搁浅导演剪辑版》中可以体验到无限的乐趣，是可以玩的。网络游戏(OnlineGame)又称“在线游戏”，简称“网游”。指以互联网为传输媒介，以游戏运营商服务器和用户计算机为处理终端。

原因有两点。分别是：
1、死亡搁浅服务器不稳定51003因为epic免费赠送游戏，导致游戏现有玩家数量过多。
2、玩家可以选择离线单机游玩或者是将自身游戏版本升级至导演剪辑版来解决。

游戏服务器问题导致。
死亡搁浅游戏出现错误代码51003是因为游戏服务器问题导致的，玩家可以选择离线单机游玩或者是将自身游戏版本升级至导演剪辑版来解决。
《死亡搁浅》是由KojimaProduction制作、索尼发行的一款动作游戏，也是小岛秀夫成立新工作室后的第一部作品。

---