telnet服务端c 语言源码,Telnet服务端易语言源码

源码调用了易语言扩展界面支持库，使用易语言服务器组件实现了Telnet服务端应用。

@爱三叶资源网源码.版本 2

.支持库 iext

.程序集 窗口程序集1

.程序集变量 telnet客户, telnet客户, , "0"

.子程序 _服务器1_客户进入

.局部变量 临时_telnet客户, telnet客户

临时_telnet客户.地址 ＝ 服务器1.取回客户 ()

加入成员 (telnet客户, 临时_telnet客户)

服务器1.发送数据 (服务器1.取回客户 (), 到字节集 (编辑框1.内容 ＋ #换行符), )

服务器1.发送数据 (服务器1.取回客户 (), 到字节集 (“用户名：”), )

.子程序 _服务器1_数据到达

.局部变量 用户组ID, 整数型

.局部变量 来数据客户, 文本型

.局部变量 数据, 字节集

.局部变量 i, 整数型

.局部变量 temp, 整数型

.局部变量 temp2, 整数型

.局部变量 命令, 文本型

来数据客户 ＝ 服务器1.取回客户 ()

数据 ＝ 服务器1.取回数据 ()

.计次循环首 (取数组成员数 (telnet客户), i)

.如果真 (telnet客户 [i].地址 ＝ 来数据客户)

用户组ID ＝ i

跳出循环 ()

.如果真结束

' 三叶资源网(www.sanye.cx)

.计次循环尾 ()

.如果真 (数据 ＝ { 8 })

返回 ()

.如果真