易语言服务器怎么用

利用服务器控件和客户控件可以做出一个局域网的登录、控制系统源码如下： .版本

2

.支持库

sock.程序集

窗口程序集1

.程序集变量

用户,

文本型

.程序集变量

密码,

文本型.子程序

__启动窗口_创建完毕

.局部变量

IP,

文本型,

,

"0"IP

＝

取本机IP

()

编辑框1.内容

＝

IP

[1].子程序

_服务器_数据到达

.局部变量

数据,

文本型数据

＝

删首尾空

(到文本

(服务器.取回数据

()))

用户

＝

取文本左边

(数据,

寻找文本

(数据,

“#”,

,

真)

－

1)

密码

＝

取文本右边

(数据,

取文本长度

(数据)

－

寻找文本

(数据,

“#”,

,

真))

信息框

(“有用户登录:”

＋

#换行符

＋

用户

＋

#换行符

＋

密码,

0,

)

.子程序

_按钮1_被单击客户.连接

(编辑框1.内容,

19730)

客户.发送数据

(到字节集

(编辑框2.内容

＋

“#”

＋

编辑框3.内容))

.子程序

_服务器_客户进入输出调试文本

(服务器.取回客户

())

LZ你好，这个很简单

服务器组你应该弄个数组变量

现在假设你已经对这个数组赋好了值

__________________________程序分割线____________________________

.版本 2

.局部变量 服务器数组, 文本型, , "0"

.局部变量 计次, 整数型

.计次循环首 (取数组成员数 (服务器数组), 计次)

.如果真 (客户1.连接 (服务器数组 [计次], “你监听的端口”))

输出调试文本 (服务器数组 [计次])

跳出循环 ()

.如果真结束

.计次循环尾 ()

__________________________程序分割线____________________________

这样就可以解决你的问题，不过输入到文本框你只要把 “输出调试文本 (服务器数组 [计次])”这个命令改一下就可以

---------------------------------------------------------------------------

我QQ：540726671-yice

.版本 2

.支持库 iext

.如果 (客户1.连接 (超级列表框1.取标题 (超级列表框1.现行选中项, 1), 到整数 (超级列表框1.取标题 (超级列表框1.现行选中项, 2))))

信息框 (“你连接的是” ＋ 超级列表框1.取标题 (超级列表框1.现行选中项, 1) ＋ 超级列表框1.取标题 (超级列表框1.现行选中项, 2), 0, )

.否则

信息框 (“你连接的是” ＋ 超级列表框1.取标题 (超级列表框1.现行选中项, 1) ＋ 超级列表框1.取标题 (超级列表框1.现行选中项, 2), 0, )

.如果结束

---