怎么用易语言做个登录器和一个登录服务器

利用服务器控件和客户控件可以做出一个局域网的登录、控制系统

源码如下：

.版本

2

.支持库

sock

.程序集

窗口程序集1

.程序集变量

用户,

文本型

.程序集变量

密码,

文本型

.子程序

__启动窗口_创建完毕

.局部变量

IP,

文本型,

,

"0"

IP

＝

取本机IP

()

编辑框1.内容

＝

IP

[1]

.子程序

_服务器_数据到达

.局部变量

数据,

文本型

数据

＝

删首尾空

(到文本

(服务器.取回数据

()))

用户

＝

取文本左边

(数据,

寻找文本

(数据,

“#”,

,

真)

－

1)

密码

＝

取文本右边

(数据,

取文本长度

(数据)

－

寻找文本

(数据,

“#”,

,

真))

信息框

(“有用户登录:”

＋

#换行符

＋

用户

＋

#换行符

＋

密码,

0,

)

.子程序

_按钮1_被单击

客户.连接

(编辑框1.内容,

19730)

客户.发送数据

(到字节集

(编辑框2.内容

＋

“#”

＋

编辑框3.内容))

.子程序

_服务器_客户进入

输出调试文本

(服务器.取回客户

())

易语言制作服务器?

易语言组件里有一个客户端和一个服务端。

你只需要把服务端加进窗口中就可以使用……

易语言制作web服务器？

服务器可以，不过web服务器（本人理解为用网页读取的服务器）你最好还是用网页编程软件吧，比如是Dreamweaver制作。

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

2

.支持库

sock.程序集

窗口程序集1

.程序集变量

用户,

文本型

.程序集变量

密码,

文本型.子程序

__启动窗口_创建完毕

.局部变量

IP,

文本型,

,

"0"IP

＝

取本机IP

()

编辑框1.内容

＝

IP

[1].子程序

_服务器_数据到达

.局部变量

数据,

文本型数据

＝

删首尾空

(到文本

(服务器.取回数据

()))

用户

＝

取文本左边

(数据,

寻找文本

(数据,

“#”,

,

真)

－

1)

密码

＝

取文本右边

(数据,

取文本长度

(数据)

－

寻找文本

(数据,

“#”,

,

真))

信息框

(“有用户登录:”

＋

#换行符

＋

用户

＋

#换行符

＋

密码,

0,

)

.子程序

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

(编辑框1.内容,

19730)

客户.发送数据

(到字节集

(编辑框2.内容

＋

“#”

＋

编辑框3.内容))

.子程序

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

(服务器.取回客户

())

---