易语言服务器怎么用

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

2

.支持库

sock.程序集

窗口程序集1

.程序集变量

用户,

文本型

.程序集变量

密码,

文本型.子程序

__启动窗口_创建完毕

.局部变量

IP,

文本型,

,

"0"IP

＝

取本机IP

()

编辑框1.内容

＝

IP

[1].子程序

_服务器_数据到达

.局部变量

数据,

文本型数据

＝

删首尾空

(到文本

(服务器.取回数据

()))

用户

＝

取文本左边

(数据,

寻找文本

(数据,

“#”,

,

真)

－

1)

密码

＝

取文本右边

(数据,

取文本长度

(数据)

－

寻找文本

(数据,

“#”,

,

真))

信息框

(“有用户登录:”

＋

#换行符

＋

用户

＋

#换行符

＋

密码,

0,

)

.子程序

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

(编辑框1.内容,

19730)

客户.发送数据

(到字节集

(编辑框2.内容

＋

“#”

＋

编辑框3.内容))

.子程序

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

(服务器.取回客户

())

两种办法：1、在作为网关的电脑上装一个端口映射软件（可直接在网上免费下载，比如端口映射器（tcp mapping) v2.02）。给用来做web服务器的那台电脑设置一个内网固定IP ，比如192.168.0.188。然后在作为网关的那台电脑上打开端口映射软件，将外来指向固定IP 80端口的数据直接映 射到192.168.0.188上就可以了。2、如果有路由器，在路由器里面开启DMZ，IP地址就填内网要提供服务的主机IP。

用 客户控件发数据包需要抓包，然后发送抓包的内容，还需要断开连接，因为不断连接数据不会返回。

通常都是用支持post /get 的http模块去发送数据。 比如彗星的模块。

---