.版本 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_被单击 ()
.如果真结束