易语言FTP聊天器源码

.版本 2
.支持库 EThread
.支持库 internet
.支持库 shellEx
.支持库 spec

.程序集 窗口程序集_启动窗口
.程序集变量 内容, 字节集
.程序集变量 回车键

.子程序 _按钮1_被单击

发送信息1 ()

.子程序 _时钟1_周期事件

启动线程 (&信息获取, , )

.子程序 信息获取

按钮1.禁止 ＝ 真
FTP文件下载 (“/cast.txt”, 取运行目录 () ＋ “cast.txt”, )
编辑框1.内容 ＝ 到文本 (读入文件 (取运行目录 () ＋ “cast.txt”))
按钮1.禁止 ＝ 假
编辑框1.起始选择位置 ＝ -1

.子程序 __启动窗口_创建完毕

载入 (名称, , 真)
回车键 ＝ 注册热键 (取窗口句柄 (), 标签1.取窗口句柄 (), 0, #回车键)
启动线程 (&连接服务器, , )
_启动窗口.标题 ＝ “连接服务器中...”

.子程序 发送信息1

内容 ＝ 到字节集 (到文本 (读入文件 (取运行目录 () ＋ “cast.txt”)) ＋ #换行符 ＋ 到文本 (取现行时间 ()) ＋ “  ” ＋ 昵称 ＋ “:” ＋ #换行符 ＋ 编辑框2.内容)
写到文件 (取运行目录 () ＋ “cast.txt”, 内容)
.如果 (FTP文件上传 (取运行目录 () ＋ “cast.txt”, “/cast.txt”, ) ＝ 真)
    启动线程 (&信息获取, , )
    编辑框2.内容 ＝ “”
.否则
    信息框 (“发送失败!”, #错误图标, “”, )
.如果结束
编辑框1.起始选择位置 ＝ -1

.子程序 __启动窗口_将被销毁

断开FTP服务器 ()

.子程序 连接服务器

按钮1.禁止 ＝ 真
.判断开始 (连接FTP服务器 (“010.3vftp.com”, “13088825780”, “20040524yjx”, 21, ) ＝ 假)
    信息框 (“连接失败”, 0, , )
    销毁 ()
.默认
    信息框 (“连接成功”, 0, , )
.判断结束
启动线程 (&信息获取, , )
_启动窗口.标题 ＝ “服务器信号正常”
延迟 (1000)
_启动窗口.标题 ＝ “实时_在线聊天室”

.子程序 _标签1_反馈事件, 整数型
.参数 参数一, 整数型
.参数 参数二, 整数型

.如果真 (参数一 ＝ 回车键)
    _按钮1_被单击 ()
.如果真结束

@624381630