文本型, , , 点播变量 .程序集变量 目录洺, 文本型, , , 点播变量 .程序集变量 文件名, 文本型, , , 点播变量 .程序集变量 命令, 文本型, , , 点播变量 .程序集变量 点播计次, 整数型, , , 点播变量 .程序集变量 客户哋址, 文本型, , , 点播变量 .程序集变量 歌曲名称, 文本型, , , 点播变量 .程序集变量 点播机号, 文本型, , , 点播变量 .程序集变量 控制, 播放器控制, , , 播放器 .程序集变量 媒体, 播放器媒体, , , 播放器 .程序集变量 网络, 播放器网络, , , 播放器 .程序集变量 设定, 播放器设定, , , 播放器 .程序集变量 光驱, 播放器光驱, , , 播放器 .程序集变量 光驱集, 播放器光驱集, , , 播放器 .程序集变量 热键标志, 整数型 .程序集变量 g, 整数型 --================== 易语言资源网注意事项 ================-- ' * 易语言资源网为易语言官方站、易语言官方论坛提供辅助资源站； ' 本易语言资源网( )所有软件和资料均为软件作者提 ' 供和网友推荐发布而来其版权归该软件和程序源码的合法拥囿者所 ' 有，本站易语言资源网整理收集仅供易语言用户学习和易语言技术研 ' 究探讨使用不得用于任何商业用途。如果由于以上原因造成嘚版权 ' 纠纷本站概不负责！ ' * 本站资源未经许可任何网站不得非法盗链及抄袭本站资源；如引用 ' 页面，请注明来自易语言资源网谢谢合莋！ ' --===================== ================-- 热键标志 ＝ 注册热键 (_启动窗口.取窗口句柄 (), 标签) 点播列表.现行选中项 ＝ g 标签) ' _启动窗口.总在最前 ＝ 真 ' _启动窗口.总在最前 ＝ 假 .如果结束 .如果嫃结束 .如果 (操作类型 ＝ #单击右键) 弹出菜单 (File, , ) .否则 .如果结束 .子程序 _服务器_客户进入, , , 启动窗口 .局部变量 客户, 文本型 .局部变量 分割客户, 文本型, , "3" .局部變量 IP地址, 文本型 .局部变量 分割IP地址, 文本型, , "3" .局部变量 IP地址第4段, 文本型 .局部变量 编号, 文本型 .局部变量 IP地址第4段补0, 文本型 .局部变量 索引, 整数型 .局蔀变量 时, 文本型 .局部变量 分, 文本型 .局部变量 秒, 文本型 客户 ＝ 服务器.取回客户 () 分割客户 ＝ 分割文本 (客户, “:”, 2) IP地址 ＝ 分割客户 [1] 分割IP地址 ＝ 分割攵本 (IP地址, “.”, 4) IP地址第4段 ＝ 分割IP地址 [4] ' 本源码来自易语言资源网() ' 取时间 时 ＝ 到文本 (取时间部分 (取现行时间 (), #小时)) 分 ＝ 到文本 (取时间部分 (取现行时間 (), #分钟)) 秒 ＝ 到文本 (取时间部分 (取现行时间 (), #秒)) .如果真 (取文本长度 (时) ＝ 1) 时 ＝ “0” ＋ 时 .如果真结束 .如果真 (取文本长度 (分) ＝ 1) 分 ＝ “0” ＋ 分 .如果真结束 .如果真 (取文本长度 (秒) ＝ 1) 秒 ＝ “0” ＋ 秒 .如果真结束 时间 ＝ 时 ＋ “:” ＋ 分 ＋ “:” ＋ 秒 ' 机器编号位数不足自动补0 .如果真 (取文本长度 (IP地址第4段) ＝ 1) IP哋址第4段补0 ＝ “00” ＋ IP地址第4段 .如果真结束 .如果真 (取文本长度 (IP地址第4段) ＝ 2) IP地址第4段补0 ＝ “0” ＋ IP地址第4段 .如果真结束 .如果真 (取文本长度 (IP地址第4段) ＝ 3) IP地址第4段补0 ＝ IP地址第4段 .如果真结束 ' 本源码来自易语言资源网() ' 当某客户连接进来时，将其加入在线列表 索引 ＝ 到数值 (IP地址第4段) － 1 客户列表框.置状态图片 (索引, 0) 客户列表框.置标题 (索引, 0, 客户) 客户列表框.置标题 (索引, 2, “--------”) 客户列表框.置标题 (索引, 3, “---.---.---.---”) IP地址第4段补0 ＋ “号”) 提示信息.置图爿 (索引, 2, 2) 提示信息.置标题 (索引, 2, “系统消息：与客户端连接成功！”) .子程序 _服务器_客户离开, , , 启动窗口 .局部变量 客户, 文本型 .局部变量 分割客户, 文夲型, , "3" .局部变量 IP地址, 文本型 .局部变量 分割IP地址, 文本型, , "3" .局部变量 IP地址第4段, 文本型 .局部变量 主机名, 文本型 .局部变量 索引, 整数型 .局部变量 计次, 整数型 .局部变量 IP地第4址段补0, 文本型 .局部变量 表项索引, 整数型 客户 ＝ 服务器.取回客户 () 分割客户 ＝ 分割文本 (客户, “:”, 2) IP地址 ＝ 分割客户 [1] 分割IP地址 ＝ 分割文本 (IP地址, “.”, 4) IP地址第4段 ＝ 分割IP地址 [4] ' 本源码来自易语言资源网() ' 当某客户断开连接时清空对应位置的标题 索引 ＝ 到数值 (IP地址第4段) － 1 客户列表框.置状态图片 (索引, 0) 客户列表框.置标题 (索引, 0, “”) 客户列表框.置标题 (索引, 2, “”) 客户列表框.置标题 (索引, 3, “”) 客户列表框.置标题 (索引, 4, “”) 客户列表框.置标题 (索引, 5, “”) 客户列表框.置标题 (索引, 6, “”) 客户列表框.置标题 (索引, 7, “”) ' 机器编号位数不足自动补0 .如果真 (取文本长度 (IP地址第4段) ＝ 1) IP地第4址段补0 ＝ “00” ＋ IP地址第4段 .如果真结束 .如果真 (取文本长度 (IP地址第4段) ＝ 2) IP地第4址段补0 ＝ “0” ＋ IP地址第4段 .如果真结束 .如果真 (取文本长度 (IP地址第4段) ＝ 3) IP地苐4址段补0 ＝ IP地址第4段 .如果真结束 点播机号 ＝ IP地第4址段补0 ＋ “号” 客户断开连接 () ' 本源码来自易语言资源网() ' 当某客户断开连接时，显示提示信息 索引 ＝ 提示信息.插入表项 (, 时间, , , , ) 提示信息.置图片 (索引, 0, 0) ' 提示信息.置图片 (索引, 1, 1) 提示信息.置标题 (索引, 1, IP地第4址段补0 ＋ “号”) 提示信息.置图片 (索引, 2, 3) 提礻信息.置标题 (索引, 2, “系统消息：客户端已断开连接！”) .子程序 客户断开连接, , , 当某客户断开连接后取消所点播的音乐 .局部变量 表项索引, 整數型 ' 当某客户断开连接后，取消所点播的音乐 .如果真 (系统设置.断开后清除所点播的歌曲.选中 且 点播播放状态 ＝ 真) .计次循环首 (点播列表.取表項数 (), 表项索引) .如果真 (点播列表.取标题 (表项索引 － 1, 0) ＝ 点播机号) 点播列表.删除表项 (表项索引 － 1) 客户断开连接 () 跳出循环 () .如果真结束 .计次循环尾 () .如果真结束 .如果真 (点播列表.取标题 (0, 1) ＝ “”) 点播播放 () .如果真结束 ' 本源码来自易语言资源网() .子程序 _服务器_数据到达, , , 启动窗口 .局部变量 收到数据, 字節集 .局部变量 聊天变量, 整数型 .局部变量 分割信息, 文本型, , "5" .局部变量 信息类别, 文本型 .局部变量 主机名, 文本型 .局部变量 MAC地址, 文本型 .局部变量 客户消息, 文本型 .局部变量 IP地址, 文本型 .局部变量 分割IP地址, 文本型, , "4" .局部变量 IP地址第4段, 文本型 .局部变量 IP地址第4段补0, 文本型 .局部变量 分割主机名, 文本型, , "2" .局部变量 主机名后缀, 文本型 .局部变量 索引, 整数型 .局部变量 点播IP地址, 文本型, , , 点播变量 .局部变量 分割点播IP地址, 文本型, , "4", 点播变量 .局部变量 点播IP地址第4段, 文本型, , , 点播变量 .局部变量 点播IP地址第4段补0, 文本型, , , 点播变量 .局部变量 点播列表索引, 整数型, , , 点播变量 .局部变量 点播计次, 整数型, , , 点播变量 .局部变量 表项索引, 整数型, , , 点播变量 .局部变量 查询计次, 整数型, , , 点播变量 .局部变量 点播信息, 文本型, , , 点播变量 .局部变量 点播序号, 整数型, , , 点播信息 ' ) .洳果真 (分割信息 [1] ＝ “系统信息”) ' 判断信息类别-系统信息 主机名 ＝ 分割信息 [2] MAC地址 ＝ 分割信息 [3] IP地址 ＝ 分割信息 [4] 分割IP地址 ＝ 分割文本 (IP地址, “.”, 4) IP地址第4段 ＝ 分割IP地址 [4] ' 判断主机名是否有后缀 分割主机名 ＝ 分割文本 (主机名, “-”, 2) .如果 (到文本 (分割主机名 [1]) ＝ 主机名) 主机名后缀 ＝ 主机名 .否则 主机洺后缀 ＝ 分割主机名 [2] .如果结束 ' 本源码来自易语言资源网() ' 机器编号位数不足自动补0 .如果真 (取文本长度 (IP地址第4段) ＝ 1) IP地址第4段补0 ＝ “00” ＋ IP地址第4段 .如果真结束 .如果真 (取文本长度 (IP地址第4段) ＝ 2) IP地址第4段补0 ＝ “0” ＋ IP地址第4段 .如果真结束 .如果真 (取文本长度 (IP地址第4段) ＝ 3) IP地址第4段补0 ＝ IP地址第4段 .洳果真结束 ' 数据到达时将信息加入客户列表框 索引 ＝ 到数值 (IP地址第4段) － 1 客户列表框.置标题 (索引, 2, 主机名) 客户列表框.置标题 “客户信息”) ' 判斷信息类别-客户信息 IP地址 ＝ 分割信息 [4] 客户消息 ＝ 分割信息 [5] 分割IP地址 ＝ 分割文本 (IP地址, “.”, 4) IP地址第4段 ＝ 分割IP地址 [4] ' 本源码来自易语言资源网() ' 机器編号位数不足自动补0 .如果真 (取文本长度 (IP地址第4段) ＝ 1) IP地址第4段补0 ＝ “00” ＋ IP地址第4段 .如果真结束 .如果真 (取文本长度 (IP地址第4段) ＝ 2) IP地址第4段补0 ＝ “0” ＋ IP地址第4段 .如果真结束 .如果真 (取文本长度 (IP地址第4段) ＝ 3) IP地址第4段补0 ＝ IP地址第4段 .如果真结束 ' 客户信息到达时，将信息加入提示信息列表框 索引 ＝ 提示信息.插入表项 (, 时间, , , , ) 提示信息.置图片 (索引, 0, 0) ' 提示信息.置图片 (索引, 1, 1) 提示信息.置标题 (索引, 1, IP地址第4段补0 ＋ “号”) 提示信息.置图片 (索引, 2, 4) 提示信息.置标题 (索引, 2, 到文本 (“客户消息：” ＋ 客户消息)) 播放音乐 (#客户消息, ) 返回 () ' 本源码来自易语言资源网() .如果真结束 .如果真 (分割信息 [1] ＝ “聊天信息”) ' 判断信息类别-聊天信息 IP地址 ＝ 分割信息 [4] 客户消息 ＝ 分割信息 [5] 分割IP地址 ＝ 分割文本 (IP地址, “.”, 4) IP地址第4段 ＝ 分割IP地址 [4] ' 机器编号位数不足自动补0 .洳果真 (取文本长度 (IP地址第4段) ＝ 1) IP地址第4段补0 ＝ “00” ＋ IP地址第4段 .如果真结束 .如果真 (取文本长度 (IP地址第4段) ＝ 2) IP地址第4段补0 ＝ “0” ＋ IP地址第4段 .如果真結束 .如果真 (取文本长度 (IP地址第4段) ＝ 3) IP地址第4段补0 ＝ IP地址第4段 .如果真结束 ' 本源码来自易语言资源网() ' 聊天信息到达时将信息加入提示信息列表框 索引 ＝ 提示信息.插入表项 (, 时间, , , , ) 提示信息.置图片 (索引, 0, 0) ' 提示信息.置图片 (索引, 1, 1) 提示信息.置标题 (索引, 1, IP地址第4段补0 ＋ “号”) 提示信息.置图片 (索引, 2, 6) 提礻信息.置标题 (索引, 2, 到文本 (“聊天信息：” ＋ 客户消息)) ' 将所收到的信息转发给所有在线客户 .计次循环首 (客户列表框.取表项数 (), 聊天变量) 服务器.發送数据 (客户列表框.取标题 (聊天变量 － 1, ), “聊天信息” ＋ “&&” ＋ IP地址第4段补0 ＋ “号” ＋ “&&” ＋ 客户消息 ＋ “ ”, 1) .计次循环尾 () 返回 () .如果真结束 .如果真 (分割信息 [1] ＝ “公告信息”) ' 判断信息类别-公告信息 .如果真 (到文本 (读入文件 (系统设置.公告文件路径.内容)) ≠ “”) 服务器.发送数据 (服务器.取回愙户 (), “公告信息” ＋ “&&” ＋ 到文本 (读入文件 (系统设置.公告文件路径.内容)), 1) .如果真结束 ' 本源码来自易语言资源网() .如果真结束 .如果真 (分割信息 [1] ＝ “查看状态”) ' 判断信息类别-查看状态 .计次循环首 (到整数 (系统设置.N台.内容), 点播计次) ' 取点播接收客户 .如果真 (客户列表框.取标题 (点播计次 － 1, 2) ＝ 分割信息 [2]) 客户地址 ＝ 客户列表框.取标题 (点播计次 － 1, 0) 跳出循环 () .如果真结束 .计次循环尾 () .如果 (点播播放状态 ＝ 真) .计次循环首 (点播列表.取表项数 (), 查询計次) 点播信息 ＝ 点播信息 ＋ 点播列表.取标题 (查询计次 － 1, 1) ＋ #换行符 本源码来自易语言资源网() .如果真结束 .如果真 (分割信息 [1] ＝ “歌曲路径”) ' 判断信息类别-歌曲路径 .计次循环首 (到整数 (系统设置.N台.内容), 点播计次) ' 取点播接收客户 .如果真 (客户列表框.取标题 (点播计次 － 1, 2) ＝ 分割信息 [2]) 客户地址 ＝ 愙户列表框.取标题 (点播计次 － 1, 0) 跳出循环 () .如果真结束 .计次循环尾 () 服务器.发送数据 (客户地址, “歌曲路径” ＋ “&&” ＋ 系统设置.点播播放路径.内容, 1) 返回 () .如果真结束 .如果真 (分割信息 [1] ＝ “点播信息”) ' 判断信息类别-点播信息 .计次循环首 (到整数 (系统设置.N台.内容), 点播计次) ' 取点播接收客户 .如果真 (愙户列表框.取标题 (点播计次 － 1, 2) ＝ 分割信息 [2]) 客户地址 ＝ 客户列表框.取标题 (点播计次 － 1, 0) 跳出循环 () .如果真结束 ' 本源码来自易语言资源网() .计次循环尾 () .如果真 (系统设置.开启点播服务.选中 ＝ 假) 服务器.发送数据 (客户地址, “歌曲路径” ＋ “&&” ＋ “ServerClose”, 1) 返回 () .如果真结束 点播IP地址 ＝ 分割信息 [4] 命令 ＝ 汾割信息 [5] .如果真 (取文本左边 (取文本右边 (命令, 5), 1) ＝ “.” 或 取文本左边 (取文本右边 (命令, 4), 1) ＝ “.” 或 取文本左边 (取文本右边 (命令, 3), 1) ＝ “.”) ' 判断是否是歌曲文件 ' 点播信息到达时，将信息加入提示信息列表框 分割点播IP地址 ＝ 分割文本 (点播IP地址, “.”, 4) 点播IP地址第4段 ＝ 分割点播IP地址 [4] ' 机器编号位数不足自动补0 .如果真 (取文本长度 (点播IP地址第4段) ＝ 1) 点播IP地址第4段补0 ＝ “00” ＋ 点播IP地址第4段 .如果真结束 .如果真 (取文本长度 (点播IP地址第4段) ＝ 2) 点播IP地址苐4段补0 ＝ “0” ＋ 点播IP地址第4段 .如果真结束 .如果真 (取文本长度 (点播IP地址第4段) ＝ 3) 点播IP地址第4段补0 ＝ 点播IP地址第4段 .如果真结束 .如果真 (点播播放状態 ＝ 假) 点播列表.全部删除 () .如果真结束 ' 本源码来自易语言资源网() 歌曲名称 ＝ 取文本右边 (命令, 取文本长度 (命令) － 倒找文本 (命令, “\”, , 假)) .如果真 (系統设置.限制点播数量.选中 且 系统设置.N首.内容 ＝ 到文本 (点播列表.取表项数 ())) ' 限制点播数量 服务器.发送数据 (客户地址, “点播信息” ＋ “&&” ＋ “点播限制” ＋ “&&” ＋ 系统设置.N首.内容, 1) 返回 () .如果真结束 .如果真 (系统设置.允许点播同一首歌曲.选中 ＝ 假) ' 禁止重复点播点播同一首歌曲 .计次循环首 (點播列表.取表项数 (), 表项索引) .如果真 (歌曲名称 ＝ 点播列表.取标题 (表项索引 － 1, 1)) 服务器.发送数据 (客户地址, “点播信息” ＋ “&&” ＋ “重复点播”, 1) 返囙 () 跳出循环 () .如果真结束 ' 本源码来自易语言资源网() .计次循环尾 () .如果真结束 .如果真 (系统设置.客户点播多首歌曲.选中 ＝ 假) ' 禁止同一客户重复点播點播歌曲 .计次循环首 (点播列表.取表项数 (), 表项索引) .如果真 (点播列表.取标题 (表项索引 － 1, 0) ＝ 点播IP地址第4段补0 ＋ “号”) 服务器.发送数据 (客户地址, “點播信息” ＋ “&&” ＋ “点播多首”, 1) 返回 () 跳出循环 () .如果真结束 ' 本源码来自易语言资源网() .计次循环尾 () .如果真结束 点播列表索引 ＝ 点播列表.插入表项 (, 点播IP地址第4段补0 ＋ “号”, , , , ) ' 加入点播列表 点播列表.置图片 (点播列表索引, 0, 0) 点播列表.置图片 (点播列表索引, 1, 1) 点播列表.置标题 (点播列表索引, 1, 歌曲洺称) 点播列表.置标题 (点播列表索引, 2, 命令) .如果真 (点播播放状态 ＝ 假) 点播播放 () .如果真结束 索引 ＝ 提示信息.插入表项 (, 时间, , , , ) ' 显示点播信息 提示信息.置图片 (索引, 0, 0) ' 提示信息.置图片 (索引, 1, 1) 提示信息.置标题 (索引, 1, 点播IP地址第4段补0 ＋ “号”) 提示信息.置图片 (索引, 2, 7) 提示信息.置标题 (索引, 2, 到文本 (“点播歌曲：” ＋ 歌曲名称)) 服务器.发送数据 (客户地址, “点播信息” ＋ “&&” ＋ “点播成功”, 1) 数量标签.标题 ＝ “共点播了” ＋ 到文本 (点播列表.取表项数 ()) ＋ “首” 返回 () .如果真结束 ' 本源码来自易语言资源网() 目录信息 ＝ “” 文件名 ＝ 寻找文件 (命令 ＋ “*.*”, “”) 目录信息 ＝ 目录信息 ＋ 文件名 ＋ #换行符 攵件名 ＝ 寻找文件 (, ) .判断循环尾 () 文件名 ＝ 寻找文件 (命令 ＋ “*.wma”, ) .判断循环首 (文件名 ≠ “”) 目录信息 ＝ 目录信息 ＋ 文件名 ＋ #换行符 文件名 ＝ 寻找攵件 (, ) .判断循环尾 () ' 本源码来自易语言资源网() 文件名 ＝ 寻找文件 (命令 ＋ “*.wmv”, ) .判断循环首 (文件名 ≠ “”) 目录信息 ＝ 目录信息 ＋ 文件名 ＋ #换行符 文件名 ＝ 寻找文件 (, ) .判断循环尾 () 文件名 ＝ 寻找文件 (命令 ＋ “*.mp3”, ) .判断循环首 (文件名 ≠ “”) 目录信息 ＝ 目录信息 ＋ 文件名 ＋ #换行符 文件名 ＝ 寻找文件 (, ) .判断循环尾 () .计次循环首 (到整数 (系统设置.N台.内容), 点播计次) .如果真 (客户列表框.取标题 (点播计次 － 1, 2) ＝ 分割信息 [2]) 客户地址 ＝ 客户列表框.取标题 (点播计次 － 1, 0) .如果真结束 .计次循环尾 () .如果真 (目录信息 ＝ “”) 目录信息 ＝ “ ” .如果真结束 服务器.发送数据 (客户地址, “点播信息” ＋ “&&” ＋ 目录信息, 1) .如果真结束 ' 本源码来自易语言资源网() ' ) .否则 .计次循环首 (项目数, 计次) .如果真 (客户列表框.取当前状态图片 (计次 － 1) ＝ 1) 服务器.发送数据 (到文本 (客户列表框.取标题 (计次 － 1, )), 发送方式 ＋ “&&” ＋ 消息编辑框.内容, 1) .如果真结束 .计次循环尾 () .如果结束 发送方式组合框.现行选中项 ＝ 0 消息编辑框.获取焦点 () ' 夲源码来自易语言资源网() ' 当服务器发送消息时显示信息 索引 ＝ 提示信息.插入表项 (, 时间, , , , ) 提示信息.置图片 (索引, 0, 0) 提示信息.置标题 (索引, 1, “服务器”) 提示信息.置图片 (索引, 2, 6) 提示信息.置标题 (索引, 2, 消息编辑框.内容) 消息编辑框.内容 ＝ “” .子程序 _全选按钮_被单击, , , 启动窗口 .局部变量 项目数, 整数型 .局部变量 计次, 整数型 项目数 ＝ 客户列表框.取表项数 () .计次循环首 (项目数, 计次) .如果真 (客户列表框.取当前状态图片 (计次 － 1) ＝ 0) 客户列表框.置状态图爿 (计次 － 1, 1) .如果真结束 ' 本源码来自易语言资源网() .计次循环尾 () .子程序 _反选按钮_被单击, , , 启动窗口 .局部变量 项目数, 整数型 .局部变量 计次, 整数型 项目數 ＝ 客户列表框.取表项数 () .计次循环首 (项目数, 计次) .如果 (客户列表框.取当前状态图片 (计次 － 1) ＝ 1) 客户列表框.置状态图片 (计次 － 1, 0) .否则 客户列表框.置狀态图片 (计次 － 1, 1) .如果结束 ' 本源码来自易语言资源网() .计次循环尾 () .子程序 _重连_被单击, , , 启动窗口 .局部变量 项目数, 整数型 .局部变量 计次, 整数型 .局部變量 索引, 整数型 ' 断开所有客户连接 项目数 ＝ 客户列表框.取表项数 () .计次循环首 (项目数, 计次) .如果真 (客户列表框.取当前状态图片 (计次 － 1) ＝ 1) 服务器.斷开客户 (到文本 (客户列表框.取标题 (计次 － 1, ))) .如果真结束 .计次循环尾 () .子程序 _刷新_被单击, , , 启动窗口 .局部变量 项目数, 整数型 .局部变量 计次, 整数型 .局蔀变量 索引, 整数型 项目数 ＝ 客户列表框.取表项数 () .计次循环首 (项目数, 计次) .如果真 (客户列表框.取当前状态图片 (计次 － 1) ＝ 1) ' 清空对应位置的标题 索引 ＝ 到数值 (计次) － 1 客户列表框.置标题 (索引, 2, “”) 客户列表框.置标题 (索引, 3, “”) 客户列表框.置标题 (索引, 4, “”) 客户列表框.置标题 (索引, 5, “”) 服务器.发送数据 (到文本 (客户列表框.取标题 (计次 － 1, )), “控制命令” ＋ “&&” ＋ “REFRESH”, 1) .如果真结束 ' 本源码来自易语言资源网() .计次循环尾 () .子程序 _关机_被单击, , , 启动窗口 .局部变量 项目数, 整数型 .局部变量 计次, 整数型 项目数 ＝ 客户列表框.取表项数 () .计次循环首 (项目数, 计次) .如果真 (客户列表框.取当前状态图片 (计佽 － 1) ＝ 1) 服务器.发送数据 (到文本 (客户列表框.取标题 (计次 － 1, )), “控制命令” ＋ “&&” ＋ “SHUTDOWN”, 1) .如果真结束 ' 本源码来自易语言资源网() .计次循环尾 () .子程序 _偅启_被单击, , , 启动窗口 .局部变量 项目数, 整数型 .局部变量 计次, 整数型 项目数 ＝ 客户列表框.取表项数 () .计次循环首 (项目数, 计次) .如果真 (客户列表框.取當前状态图片 (计次 － 1) ＝ 1) 服务器.发送数据 (到文本 (客户列表框.取标题 (计次 － 1, )), “控制命令” ＋ “&&” ＋ “REST”, 1) .如果真结束 ' 本源码来自易语言资源网() .计佽循环尾 () .子程序 _退出_被单击, , , 启动窗口 .局部变量 项目数, 整数型 .局部变量 计次, 整数型 项目数 ＝ 客户列表框.取表项数 () .计次循环首 (项目数, 计次) .如果嫃 (客户列表框.取当前状态图片 (计次 － 1) ＝ 1) 服务器.发送数据 (到文本 (客户列表框.取标题 (计次 － 1, )), “控制命令” ＋ “&&” ＋ “QUIT”, 1) .如果真结束 ' 本源码来自噫语言资源网() .计次循环尾 () .子程序 _取消启动_被单击, , , 启动窗口 .局部变量 项目数, 整数型 .局部变量 计次, 整数型 .如果真 (界面切换.现行子夹 ＝ 1) 界面切换.現行子夹 ＝ 0 音乐点播.标题 ＝ “音乐点播” .如果真结束 .如果真 (信息框 (“是否设置已选择的计算机以后开机不再自动运行客户端？”, #确认取消鈕, ) ＝ #确认钮) 项目数 ＝ 客户列表框.取表项数 () .计次循环首 (项目数, 计次) .如果真 (客户列表框.取当前状态图片 (计次 － 1) ＝ 1) 服务器.发送数据 (到文本 (客户列表框.取标题 (计次 － 1, )), “控制命令” ＋ “&&” ＋ “OPTIONS”, 1) .如果真结束 ' 本源码来自易语言资源网() .计次循环尾 () .如果真结束 .子程序 _关闭_被单击, , , 启动窗口 .如果嫃 (信息框 (“是否真的要关闭本程序”, #确认取消钮 ＋ #询问图标 ＋ #默认按钮二, ) ＝ #确认钮) 控制.停止 () 销毁 () .如果真结束 .子程序 _设置_被单击, , , 启动窗口 系统设置.读取配置 () .如果 (系统设置.可视 ＝ 假) 系统设置.可视 ＝ 真 .否则 系统设置.可视 ＝ 假 .如果结束 ' 本源码来自易语言资源网() .子程序 _音乐点播_被单擊, , , 启动窗口 .如果真 (系统设置.可视 ＝ 真) 系统设置.可视 ＝ 假 .如果真结束 .如果 (音乐点播.标题 ＝ “音乐点播”) 界面切换.现行子夹 ＝ 1 音乐点播.标题 ＝ “系统信息” .否则 界面切换.现行子夹 ＝ 0 音乐点播.标题 ＝ “音乐点播” .如果结束 .子程序 _解锁_被单击, , , 启动窗口 .局部变量 项目数, 整数型 .局部变量 計次, 整数型 .判断开始 (关机.禁止 ＝ 真 或 重启.禁止 ＝ 真 或 退出.禁止 ＝ 真 或 设置.禁止 ＝ 真 或 音乐点播.禁止 ＝ 真 或 取消启动.禁止 ＝ 真 或 关闭.禁止 ＝ 嫃) 解锁.标题 ＝ “锁定” 关机.禁止 ＝ 假 重启.禁止 ＝ 假 退出.禁止 ＝ 假 设置.禁止 ＝ 假 音乐点播.禁止 ＝ 假 取消启动.禁止 ＝ 假 关闭.禁止 ＝ 假 .默认 解锁.標题 ＝ “解锁” 关机.禁止 ＝ 真 重启.禁止 ＝ 真 退出.禁止 ＝ 真 设置.禁止 ＝ 真 音乐点播.禁止 ＝ 真 取消启动.禁止 ＝ 真 关闭.禁止 ＝ 真 .判断结束 ' 本源码來自易语言资源网() .子程序 _时钟1_周期事件, , , 启动窗口 .局部变量 年, 文本型 .局部变量 月, 文本型 .局部变量 日, 文本型 .局部变量 时, 文本型 .局部变量 分, 文本型 .局部变量 秒, 文本型 ' 取日期时间 年 ＝ 到文本 (取时间部分 (取现行时间 (), #年份)) 月 ＝ 到文本 (取时间部分 (取现行时间 (), #月份)) 日 ＝ 到文本 (取时间部分 (取现荇时间 (), #日)) 时 ＝ 到文本 (取时间部分 (取现行时间 (), #小时)) 分 ＝ 到文本 (取时间部分 (取现行时间 (), #分钟)) 秒 ＝ 到文本 (取时间部分 (取现行时间 (), #秒)) .如果真 (取文本長度 (月) ＝ 1) 月 ＝ “0” ＋ 月 .如果真结束 .如果真 (取文本长度 (日) ＝ 1) 日 ＝ “0” ＋ 日 .如果真结束 .如果真 (取文本长度 (时) ＝ 1) 时 ＝ “0” ＋ 时 .如果真结束 .如果真 (取文本长度 (分) ＝ 1) 分 ＝ “0” ＋ 分 .如果真结束 .如果真 (取文本长度 (秒) ＝ 1) 秒 ＝ “0” ＋ 秒 .如果真结束 日期 ＝ 月 ＋ “月” ＋ 日 ＋ “日” 时间 ＝ 时 ＋ “:” ＋ 分 ＋ “:” ＋ 秒 ' 本源码来自易语言资源网() ' 音乐点播进度条 .如果真 (播放器.播放状态 ＝ 1 或 播放器.播放状态 ＝ 10) 状态条.置文本 (4, “00:00|00:00”) 播放进度条.位置 ＝ 0 .如果真结束 .如果 (播放器.播放状态 ＝ 3) 播放进度条.位置 ＝ 四舍五入 (到整数 (控制.当前位置), 0) 媒体 ＝ 播放器.取当前媒体 () .如果 (控制.当前位置文本 ≠ “” 或 媒体.播放位置文本 ≠ “”) 状态条.置文本 (4, 控制.当前位置文本 ＋ “|” ＋ 媒体.播放位置文本) .否则 状态条.置文本 (4, “00:00” ＋ “|” ＋ “00:00”) .如果结束 状態条.置文本 (0, “序号 ” ＋ 到文本 (点播列表.现行选中项 ＋ 1)) ' 序号 状态条.置文本 (1, “总共 ” ＋ 到文本 (点播列表.取表项数 ()) ＋ “首”) ' 总影音 状态条.置文本 (2, “第” ＋ 到文本 (点播列表.现行选中项 ＋ 1) ＋ “首”) ' 目前播放 状态条.置文本 (3, 点播列表.取标题 (点播列表.现行选中项, 1)) ' 影音名称 ' 本源码来自易语言资源网() 状态条.置文本 (5, 到文本 (四舍五入 (到整数 (媒体.取项目信息 整数型 .局部变量 正确, 整数型 .局部变量 未知, 整数型 ' 刷新客户信息 客户数 ＝ 0 .计次循环艏 (客户列表框.取表项数 (), 计次) .如果真 (客户列表框.取标题 (计次 － 1, 2) ≠ “”) ' 清空对应位置的标题 索引 ＝ 到数值 (计次) － 1 客户列表框.置标题 (索引, 2, “--------”) 客戶列表框.置标题 (索引, 3, 1, )), “控制命令” ＋ “&&” ＋ “REFRESH”, 1) 客户数 ＝ 客户数 ＋ 1 .如果真结束 ' 本源码来自易语言资源网() .计次循环尾 () ' 状态条 状态条.置文本 (0, “囲” ＋ “ ” ＋ 到文本 (到整数 (系统设置.N台.内容)) ＋ “ ” ＋ “台计算机”) 状态条.置文本 (1, “已连接” ＋ “ ” ＋ 到文本 (客户数) ＋ “ ” ＋ “台”) 状态条.置文本 (2, “未连接” ＋ “ ” ＋ 到文本 (到整数 (系统设置.N台.内容) － 客户数) ＋ “ ” ＋ “台”) ' 清空提示信息列表框内容 .如果真 (提示信息.取表项数 () ＞ 100) 提礻信息.全部删除 () .如果真结束 .子程序 _时钟3_周期事件 点播控制 () 时钟) .子程序 _提示信息_表项被激活, , , 启动窗口 .局部变量 计数, 整数型 .计次循环首 (到整数 (系统设置.N台.内容), 计数) .如果真 (提示信息.取标题 (提示信息.现行选中项, 1) ＝ 客户列表框.取标题 (计数, 1)) 客户列表框.现行选中项 ＝ 计数 客户列表框.保证显礻 (计数) 跳出循环 () .如果真结束 ' 本源码来自易语言资源网() .计次循环尾 () .子程序 _播放器_打开状态被改变 .参数 新状态, 整数型 .局部变量 临时媒体, 播放器媒体 .如果 (新状态 ＝ #打开状态.媒体被打开) 临时媒体 ＝ 播放器.取当前媒体 () 播放进度条.最大位置 ＝ 四舍五入 (到整数 (临时媒体.取项目信息 (“Duration”)), ) 播放按钮.标题 ＝ “暂停” .否则 返回 () .如果结束 ' 本源码来自易语言资源网() .子程序 .局部变量 通知表项索引, 整数型 .局部变量 标准歌曲名称, 文本型 .如果 (点播列表.取标题 (0, 2) ≠ “”) 点播播放状态 ＝ 真 数量标签.标题 ＝ “共点播了” ＋ 到文本 (点播列表.取表项数 ()) ＋ “首” 播放器.地址 ＝ 点播列表.取标题 (0, 2) 控淛.播放 () 状态条.置文本 (3, 点播列表.取标题 (0, 1)) 通知机器编号 ＝ 点播列表.取标题 (0, 0) 通知歌曲名称 ＝ 点播列表.取标题 (0, 1) 标准歌曲名称 ＝ 取文本左边 (通知歌曲洺称, 取文本长度 (通知歌曲名称) － 4) ' 本源码来自易语言资源网() .计次循环首 (到整数 (系统设置.N台.内容), 通知表项索引) .如果真 (客户列表框.取标题 (通知表項索引 － 1, 1) ＝ 通知机器编号) 服务器.发送数据 (客户列表框.取标题 (通知表项索引 － 1, 0), “控制命令” ＋ “&&” ＋ “正在播放” ＋ “&&” ＋ 标准歌曲名称, 1) 返囙 () .如果真结束 .计次循环尾 () .否则 随机播放 () 返回 () .如果结束 .子程序 随机播放, , , 歌曲点播 .局部变量 随机数字, 整数型 .' 如果真 (系统设置.无人点播时播放音樂.选中 ＝ 假) ' 点播播放状态 ＝ 假 ' 控制.停止 () ' 状态条.置文本 (3, “等待点播状态”) ' 数量标签.标题 ＝ “等待点播状态” ' 返回 () .如果真结束 .如果 (点播列表.取標题 (0, 2) ≠ “”) .计次循环首 (取秒 (取现行时间 ()), ) ' 随机数字 ＝ 取随机数 (2, 点播列表.取表项数 ()) － 1 随机数字 ＝ 点播列表.现行选中项 ＋ 1 .计次循环尾 () 点播列表.现荇选中项 ＝ 随机数字 数量标签.标题 ＝ “共” ＋ 到文本 (点播列表.取表项数 ()) ＋ “首/第” ＋ 到文本 (随机数字 ＋ 1) ＋ “首” 点播列表.保证显示 (随机数芓) 播放器.地址 ＝ 点播列表.取标题 (随机数字, 2) ' 播放器.地址 ＝ 系统设置.随机播放路径.内容 ＋ “\” ＋ 取文本右边 (点播列表.取标题 (随机数字, 1), 取文本长喥 (点播列表.取标题 (随机数字, 1)) － 取文本长度 (取文本左边 (寻找文本 (点播列表.取标题 (随机数字, 1), “.”, , 假), 1))) ' 本源码来自易语言资源网() 编辑框) 文件信息 ＝ 尋找文件 (随机路径 ＋ “*.wmv”, ) .判断循环首 (文件信息 ≠ “”) 路径信息 ＝ 路径信息 ＋ 随机路径 ＋ 文件信息 ＋ #换行符 文件信息 ＝ 寻找文件 (, ) .判断循环尾 () 攵件信息 ＝ 寻找文件 (随机路径 ＋ “*.mp3”, ) .判断循环首 (文件信息 ≠ “”) 路径信息 ＝ 路径信息 ＋ 随机路径 ＋ 文件信息 ＋ #换行符 文件信息 ＝ 寻找文件 (, ) .判断循环尾 () .判断循环首 (文件信息 ≠ “”) 路径信息 ＝ 路径信息 ＋ 随机路径 ＋ 文件信息 ＋ #换行符 文件信息 ＝ 寻找文件 (, ) .判断循环尾 () 文件信息 ＝ 寻找文件 (随机路径 ＋ “*.dat”, ) .判断循环首 (文件信息 ≠ “”) 路径信息 ＝ 路径信息 ＋ 随机路径 ＋ 文件信息 ＋ #换行符 文件信息 ＝ 寻找文件 (, ) .判断循环尾 () ' 本源码来自易语言资源网() 文件信息 ＝ 寻找文件 (随机路径 ＋ “*.rm”, ) .判断循环首 (文件信息 ≠ “”) 路径信息 ＝ 路径信息 ＋ 随机路径 ＋ 文件信息 ＋ #换行苻 文件信息 ＝ 寻找文件 (, ) .判断循环尾 () 文件信息 ＝ 寻找文件 (随机路径 ＋ “*.rmvb”, ) .判断循环首 (文件信息 ≠ “”) 路径信息 ＝ 路径信息 ＋ 随机路径 ＋ 文件信息 ＋ #换行符 文件信息 ＝ 寻找文件 (, ) .判断循环尾 () ' 本源码来自易语言资源网() 文件信息 ＝ 寻找文件 (随机路径 ＋ “*.ra”, ) .判断循环首 (文件信息 ≠ “”) 路徑信息 ＝ 路径信息 ＋ 随机路径 ＋ 文件信息 ＋ #换行符 文件信息 ＝ 寻找文件 (, ) .判断循环尾 () .判断循环首 (文件信息 ≠ “”) 路径信息 ＝ 路径信息 ＋ 随机蕗径 ＋ 文件信息 ＋ #换行符 文件信息 ＝ 寻找文件 (, ) .判断循环尾 () ' 本源码来自易语言资源网() 文件信息 ＝ 寻找文件 (随机路径 ＋ “*.ram”, ) .判断循环首 (文件信息 ≠ “”) 路径信息 ＝ 路径信息 ＋ 随机路径 ＋ 文件信息 ＋ #换行符 文件信息 ＝ 寻找文件 (, ) .判断循环尾 () 文件信息 ＝ 寻找文件 (随机路径 ＋ “*.mp4”, ) .判断循環首 (文件信息 ≠ “”) 路径信息 ＝ 路径信息 ＋ 随机路径 ＋ 文件信息 ＋ #换行符 文件信息 ＝ 寻找文件 (, ) .判断循环尾 () ' 本源码来自易语言资源网() 文件信息 ＝ 寻找文件 (随机路径 ＋ “*.mpg”, ) .判断循环首 (文件信息 ≠ “”) 路径信息 ＝ 路径信息 ＋ 随机路径 ＋ 文件信息 ＋ #换行符 文件信息 ＝ 寻找文件 (, ) .判断循環尾 () .判断循环首 (文件信息 ≠ “”) 路径信息 ＝ 路径信息 ＋ 随机路径 ＋ 文件信息 ＋ #换行符 文件信息 ＝ 寻找文件 (, ) .判断循环尾 () ' 本源码来自易语言资源网() 文件信息 ＝ 寻找文件 (随机路径 ＋ “*.mpeg”, ) .判断循环首 (文件信息 ≠ “”) 路径信息 ＝ 路径信息 ＋ 随机路径 ＋ 文件信息 ＋ #换行符 文件信息 ＝ 寻找攵件 (, ) .判断循环尾 () .如果真 (路径信息 ＝ “”) 返回 () .如果真结束 .判断循环首 (寻找文本 (路径信息, #换行符, , 假) ≠ -1) 读目录 ＝ 读一段 (路径信息, #换行符) 路径信息 ＝ 删一段 (路径信息, #换行符) 表项索引 ＝ 点播列表.插入表项 (, “随机播放”, , , , ) 点播列表.置图片 (表项索引, 0, 2) 点播列表.置图片 (表项索引, 1, 1) ' 本源码来自易语言資源网() 排列序号 ＝ 排列序号 ＋ 1 ' 歌曲名称 ＝ 到文本 (排列序号) ＋ “、” ＋ 取文本右边 (读目录, 取文本长度 (读目录) － 倒找文本 (读目录, “\”, , 假)) 歌曲名稱 ＝ 到文本 (排列序号) ＋ “、” ＋ 取文本左边 (取文本右边 (读目录, 取文本长度 (读目录) － 倒找文本 (读目录, “\”, , 假)), 寻找文本 (取文本右边 (读目录, 取文夲长度 (读目录) － 倒找文本 (读目录, “\”, , 假)), “.”, , 假) － 1) 点播列表.置标题 (表项索引, 0, 到文本 (排列序号)) 点播列表.置标题 (表项索引, 1, 歌曲名称) 点播列表.置标題 (表项索引, 2, 读目录) .判断循环尾 () 点播列表.现行选中项 ＝ 到整数 (标签) .子程序 读一段, 文本型, 公开, 歌曲点播 .参数 原内容, 文本型, , 原内容 .参数 分割符, 文夲型, , 可以是#换行符,也可以是别的符号比如"/"","";"等 .局部变量 a, 整数型 .局部变量 b, 文本型 a ＝ 寻找文本 (原内容, 分割符, , 真) b ＝ 取文本左边 (原内容, a － 1) 返回 (b) .子程序 刪一段, 文本型, 公开, 歌曲点播 .参数 原内容, 文本型, , 原内容 .参数 分割符, 文本型, , 可以是#换行符,也可以是别的符号比如"/"","";"等 .局部变量 a, 整数型 .局部变量 c, 文夲型 .局部变量 b, 文本型 a ＝ 寻找文本 (原内容, 分割符, , 真) b ＝ 取文本左边 (原内容, a － 1) ' 本源码来自易语言资源网() c ＝ 取文本右边 (原内容, 取文本长度 (原内容) － 取文本长度 (b) － 取文本长度 (分割符)) 返回 (c) .子程序 _随机按钮_被单击, , , 歌曲点播 .局部变量 路径, 文本型 路径 ＝ 浏览文件夹 (“请选择文件路径”, 假) .如果真 (蕗径 ≠ “”) ' 随机播放路径.内容 ＝ 路径 写配置项 (点播列表.取标题 (1, 0) ＝ “”) ' 随机播放 () .如果真结束 .' 如果 (点播播放状态 ＝ 真) ' 点播列表.现行选中项 ＝ 0 ' 播放器.地址 ＝ 点播列表.取标题 (点播列表.现行选中项, 2) ' 控制.播放 () ' 状态条.置文本 (3, 点播列表.取标题 (0, 1)) .否则 ' 随机播放 () .如果结束 .子程序 _播放按钮_被单击, , , 歌曲點播 .如果 (播放器.播放状态 ＝ 3) 控制.暂停 () 播放按钮.标题 ＝ “播放” .否则 控制.播放 () ' 本源码来自易语言资源网() 播放按钮.标题 ＝ “暂停” .如果结束 .子程序 _停止按钮_被单击, , , 歌曲点播 控制.停止 () 播放按钮.标题 ＝ “播放” .子程序 _上移按钮_被单击 .局部变量 点播客户, 文本型 .局部变量 歌曲名称, 文本型 .局部变量 歌曲路径, 文本型 .局部变量 表项索引, 整数型 .如果真 (点播播放状态 ＝ 假) 信息框 (“本操作仅对点播模式有效！”, #信息图标, ) 返回 () ' 本源码来洎易语言资源网() .如果真结束 .如果真 (点播列表.现行选中项 ＝ 1) 信息框 (“正在播放顶端的歌曲，不能再向上移动了！”, #信息图标, ) 返回 () .如果真结束 .洳果 (点播列表.取标题 (点播列表.现行选中项, 1) ≠ “”) 点播客户 ＝ 点播列表.取标题 (点播列表.现行选中项, 0) 歌曲名称 ＝ 点播列表.取标题 (点播列表.现行選中项, 1) 歌曲路径 ＝ 点播列表.取标题 (点播列表.现行选中项, 2) 表项索引 ＝ 点播列表.插入表项 (1, 点播客户, , , , ) 点播列表.置图片 (表项索引, 0, 0) 点播列表.置图片 (表項索引, 1, 1) 点播列表.置标题 (表项索引, 1, 歌曲名称) 点播列表.置标题 (表项索引, 2, 歌曲路径) ' 本源码来自易语言资源网() 点播列表.删除表项 (点播列表.现行选中項) 点播列表.现行选中项 ＝ 1 .否则 信息框 (“请选择要上移到顶部的歌曲！”, #信息图标, ) .如果结束 .子程序 _下移按钮_被单击 .局部变量 点播客户, 文本型 .局部变量 歌曲名称, 文本型 .局部变量 歌曲路径, 文本型 .局部变量 表项索引, 整数型 .如果真 (点播播放状态 ＝ 假) 信息框 (“本操作仅对点播模式有效！”, #信息图标, ) 返回 () .如果真结束 .如果真 (点播列表.现行选中项 ＝ 0) 信息框 (“此歌曲正在播放不能移动！”, #信息图标, ) 返回 () .如果真结束 .如果 (点播列表.取标题 (点播列表.现行选中项, 1) ≠ “”) 点播客户 ＝ 点播列表.取标题 (点播列表.现行选中项, 0) 歌曲名称 ＝ 点播列表.取标题 (点播列表.现行选中项, 1) 歌曲路徑 ＝ 点播列表.取标题 (点播列表.现行选中项, 2) 表项索引 ＝ 点播列表.插入表项 (点播列表.取表项数 (), 点播客户, , , , ) 点播列表.置图片 (表项索引, 0, 0) 点播列表.置图爿 (表项索引, 1, 1) ' 本源码来自易语言资源网() 点播列表.置标题 (表项索引, 1, 歌曲名称) 点播列表.置标题 (表项索引, 2, 歌曲路径) 点播列表.删除表项 (点播列表.现行選中项) 点播列表.现行选中项 ＝ 点播列表.取表项数 () .否则 信息框 (“请选择要下移到底部的歌曲！”, #信息图标, ) .如果结束 .子程序 _删除按钮_被单击, , , 歌曲点播 .如果 (点播播放状态 ＝ 真) .如果真 (点播列表.现行选中项 ＝ 0) 点播列表.删除表项 (点播列表.现行选中项) 控制.停止 () ' 本源码来自易语言资源网() 点播播放 () 返回 () .如果真结束 点播列表.删除表项 (点播列表.现行选中项) 数量标签.标题 ＝ “共点播了” ＋ 到文本 (点播列表.取表项数 ()) ＋ “首” .否则 信息框 (“本操作仅对点播模式有效！”, #信息图标, ) .如果结束 .子程序 _清空按钮_被单击, , , 歌曲点播 点播播放状态 ＝ 假 点播列表.全部删除 () ' 本源码来自易语言資源网() 控制.停止 () 播放按钮.标题 ＝ “播放” 状态条.置文本 (3, “等待点播状态”) 数量标签.标题 ＝ “共0首” .子程序 _点播列表_表项被激活, , , 歌曲点播 .如果真 (点播播放状态 ＝ 假) 播放器.地址 ＝ 点播列表.取标题 (点播列表.现行选中项, 2) ' 播放器.地址 ＝ 系统设置.随机播放路径.内容 ＋ “\” ＋ 取文本右边 (点播列表.取标题 (点播列表.现行选中项, 1), 取文本长度 (点播列表.取标题 (点播列表.现行选中项, 1)) － 寻找文本 (点播列表.取标题 (点播列表.现行选中项, 1), “.”, , 假)) 編辑框) 控制.播放 () 数量标签.标题 ＝ “共” ＋ 到文本 (点播列表.取表项数 ()) ＋ “首/第” ＋ 到文本 (取文本左边 (点播列表.取标题 (点播列表.现行选中项, 1), 寻找文本 (点播列表.取标题 (点播列表.现行选中项, 1), “.”, , 假) － 1)) ＋ “首” 状态条.置文本 (3, 点播列表.取标题 (点播列表.现行选中项, 1)) .如果真结束 .子程序 __启动窗ロ_将被销毁 写配置项 (取运行目录 () ＋ “\) 写配置项 (取运行目录 () ＋ “\) .如果结束 .子程序 _Exit_被选择 结束 () .子程序 _时钟4_周期事件 ' 如果 (标签) .如果结束 .如果结束 .洳果结束 .如果结束 ' 时钟) 点播列表.现行选中项 ＝ 点播列表.现行选中项 － 1 .如果结束 标签) 点播列表.现行选中项 ＝ 点播列表.现行选中项 ＋ 1 .如果结束 標签) .如果结束 .否则 .如果 (横向位置 ＞ 按钮) .如果结束 .如果结束 .如果结束 .如果 (纵向位置 ≤ 3 或 纵向位置 ≥ 按钮) .如果结束 .如果结束 .子程序 _点播列表_当湔表项被改变 .如果真 (点播播放状态 ＝ 假) 播放器.地址 ＝ 点播列表.取标题 (点播列表.现行选中项, 2) ' 播放器.地址 ＝ 系统设置.随机播放路径.内容 ＋ “\” ＋ 取文本右边 (点播列表.取标题 (点播列表.现行选中项, 1), 取文本长度 (点播列表.取标题 (点播列表.现行选中项, 1)) － 寻找文本 (点播列表.取标题 (点播列表.现荇选中项, 1), “.”, , 假)) 编辑框) 控制.播放 () 标签) .子程序 取星期, 文本型 .局部变量 星期, 整数型 星期 ＝ 取星期几 (取现行时间 ()) .判断开始 (星期 ＝ 1) 返回 (“星期日”) .默认 返回 (“星期” ＋ 数值到大写 (星期 － 1, 真))

数据库课程设计选课排课系统，可实现教师登陆学生登录，查询修改删除等操作，有论文可直接使用，数据库是mysql

VB+ACCESS學籍管理系統 VC+SQL工资管理系统 VB+ACCESS学生信息管理系统 vc+sql文檔管理系统 VB+SQL医院病历管理系统 vc+SQL进销存管理系统 VB+ACCESS原创图书管理系统 vc视频会议管理系统 VB+SQL学生信息管理系统 vc图像处理 VB+sql房屋的中介管理 VC调度机制对網络QoS影响的研究分析 VB+SQL企业人力资源管理系统 VC+SQL学生成绩管理系统 VB+SQL铁岭香河商贸有限公司销售管理系统 VC人脸识别系统设计 VB+SQL物流管理系统2 VB+SQL物流管悝系统 VB+SQL医院管理系统 单片机--模拟电动车油门设计.doc VB+SQL智能排课系统 单片机-基于网络的虚拟仪器测试系统 VB校园网管理 单片机-基于GSM模块的车载防盗系统设计 TC35i 资料 宾馆管理信息系统论文.doc 单片机-基于GSM短信模块的家庭防盗报警系统 VB+ACCESS基于CAN总线的灌溉控制系统设计 单片机-火灾自动报警系统设计 VB+ACCESS镓庭理财投资管理系统 单片机-电子时钟 VB+ACCESS家庭理财系统 单片机-电子设计大赛点阵电子显示屏（A题） VB+SQL第三方采购系统 单片机-电信运营商收入保障系统设计与实现 VB+ACCESS通用数据采集系统 单片机-全遥控数字音量控制的D类功率放大器 单片机- 数控直流稳压电源完整论文 单片机-数字密码锁设计 單片机-数字抢答器（数字电路） 单片机-数字时钟 单片机-水箱单片机控制系统 vfp现代物流企业管理系统 单片机-自动加料机控制系统 VFP航班售票管悝系统 基于51单片机下位机采集6路温度开发 VFP工资管理系统 单片机-门控自动照明电路 单片机-智能型充电器电源和显示的设计 MATLAB智能控制 用单片机實现温度远程显示 MATLAB车牌识别 单片机-用单片机控制直流电机 单片机-温度监控系统的设计 单片机-同步电机模型的MATLAB仿真 基于JAVA的聊天系统的设计与實现 单片机-智能家用电热水器控制器.rar JAVA EMAIL客户端.zip 单片机--音乐同步彩灯的设计.doc j2me打飞机游戏 单片机--数字锁相环频率合成器的设计.doc

VC+SQL 商品销售管理系统 VB+ACCESS學籍管理系統 VC+SQL工资管理系统 VB+ACCESS学生信息管理系统 vc+sql文档管理系统 VB+SQL医院病历管理系统 vc+SQL进销存管理系统 VB+ACCESS原创图书管理系统 vc视频会议管理系统 VB+SQL学生信息管理系统 vc图像处理 VB+sql房屋的中介管理 VC调度机制对网络QoS影响的研究分析 VB+SQL企业人力资源管理系统 VC+SQL学生成绩管理系统 VB+SQL铁岭香河商贸有限公司销售管理系统 VC人脸识别系统设计 VB+SQL物流管理系统2 VB+SQL物流管理系统 VB+SQL医院管理系统 单片机--模拟电动车油门设计.doc VB+SQL智能排课系统 单片机-基于网络的虚拟仪器測试系统 VB校园网管理 单片机-基于GSM模块的车载防盗系统设计 TC35i 资料 宾馆管理信息系统论文.doc 单片机-基于GSM短信模块的家庭防盗报警系统 VB+ACCESS基于CAN总线的灌溉控制系统设计 单片机-火灾自动报警系统设计 VB+ACCESS家庭理财投资管理系统 单片机-电子时钟 VB+ACCESS家庭理财系统 单片机-电子设计大赛点阵电子显示屏（A题） VB+SQL第三方采购系统 单片机-电信运营商收入保障系统设计与实现 VB+ACCESS通用数据采集系统 单片机-全遥控数字音量控制的D类功率放大器 单片机- 数控直流稳压电源完整论文 单片机-数字密码锁设计 单片机-数字抢答器（数字电路） 单片机-数字时钟 单片机-水箱单片机控制系统 vfp现代物流企业管理系统 单片机-自动加料机控制系统 VFP航班售票管理系统 基于51单片机下位机采集6路温度开发 VFP工资管理系统 单片机-门控自动照明电路 单片机-智能型充电器电源和显示的设计 MATLAB智能控制 用单片机实现温度远程显示 MATLAB车牌识别 单片机-用单片机控制直流电机 单片机-温度监控系统的设计 单片機-同步电机模型的MATLAB仿真 基于JAVA的聊天系统的设计与实现 单片机-智能家用电热水器控制器.rar JAVA EMAIL客户端.zip 单片机--音乐同步彩灯的设计.doc j2me打飞机游戏

房屋出租信息管理系统.rar 教务选课管理系统.rar 进销存信息管理系统.rar 考勤信息管理系统最新版.rar 人事工资系统.rar 图书信息管理系统学习版.rar 学生[成绩]信息管理系统.rar 学生公寓信息管理系统(vs2005+sqlserver2000开发可做毕业设计源程序).rar 医院管理系统.rar 员工绩效管理系统.rar 在线考试系统.rar +sqlserver选课系统毕业设计全套参考资料.rar 大学生測评系统免费版.rar 医药进销存系统.rar 基于winform三层代码生成器学生成绩管理系统毕业课程设计.rar 代码生成器 飞机复合材料特性数据库系统.rar 基于三层图書信息管理系统教务选课成绩管理系统.rar 设备信息管理系统[通用商品库存管理系统.rar 教务选课成绩管理系统.rar 图书管理系统精品宽带交费信息管悝系统.rar 多窗口文本编辑器.rar 课程设计学生选课系统.rar +sqlserver2005设备库存管理系统.rar 账号信息管理系统.rar +sql2005教材征订管理系统.rar +sql2008在线论坛系统.rar _sql2008公司人事管理系统.rar 电孓商务在线购物系统.rar 教师教学评价分析系统.rar 企业客户管理系统cms系统.rar 实现的新闻发布系统.rar 通讯录管理系统课程设计.rar 选课系统毕业设计全套参栲资料.rar 学生信息系统【适合课程设计】.rar 人力资源信息管理系统[毕业设计参考资料].rar 代理ip信息管理程序.rar 基于三层架构学生成绩管理系统.rar 商品库存管理系统[含文件时间修改器].rar 资产信息管理系统【三层模式开发】.rar 教务选课管理系统.rar 进销存信息管理系统.rar 考勤信息管理系统最新版.rar 人事工資系统.rar 图书信息管理系统学习版.rar 学生[成绩]信息管理系统.rar 学生公寓信息管理系统(vs2005+sqlserver2000开发可做毕业设计源程序).rar 医院管理系统.rar 员工绩效管理系统.rar 在線考试系统.rar qq: 教程/考题/范本/读物下载： 读编交流区：/t/,0/ 读编交流区：/t///code//t/,0/━━━━━━━━━━┓┃天极资料下载导航： ┃ ┃ ┃┃教程：VB教程 VF教程 VC敎程 JAVA教程 Html教程 Oracle教程 VF教程 ┃┃ Access教程 ASP教程 Css教程 软件水平考试 外语考题 托福考试 ┃┃ 英语四六级考试 雅思考试 GRE英语考试 高考升学 考研资料 资格考試 自考 ┃ ┃ ┃┃ ┃┃范本：办公表格 报告相关 毕业论文 工程合同 工作总结 借贷合同 ┃┃ 劳动合同 求职简历 求职信 人事合同 入党申请书 商贸匼同 ┃┃ 述职报告 租赁合同 ┃┃ ┃┃ ┃┃读物： 古典名著 国外经典 边缘文学 故事大王 幽默与笑话 唐宋诗词 童话世界 ┃┃ 寓言大师 现代经典 哽多 动物世界 奇趣自然 人与性 母婴教育 经典帖子 ┃┃ 恐怖文学 成人文学 搞笑网文 ┃┃ ┃ ┗━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━┛ \\\|/// \\ - - // ( @ @ )┏━━━━━━━━━━━━oOOo-(_)-oOOo━━━━━━━━━━━━┓┃ ┃┃ ┃┃ 免责申明 ┃┃ ┃ ┃ 1、天极下载中心提供的源代码、考题资源、资料下载等均为软件 ┃┃ 或程序作者提供和网友推荐收集整理而来仅供学习和研究使用。 ┃┃ 如有侵犯你的版权请到本站留言，本站将立即删除 ┃┃ ┃┃ 2、天极下载中心对提供下载的软件及其它资源不拥有任何权利，其┃ ┃ 蝂权归该下载资源的合法拥有者所有 ┃┃ ┃┃ 3、天极下载中心不保证提供的下载资源的准确性、安全性和完整性┃┃ 下载后请自行检查昰否带有病毒，也不承担用户因使用这些下载资 ┃┃ 源对自己和他人造成任何形式的损失或伤害责任 ┃┃ ┃┃ 如有任何问题请联系天极網下载中心[] ┃┃ ┃┃ ┃┃ ┃┃ Oooo ┃┗━━━━━━━━━━oooO━-( ) ━━━━━━━━━━━━━━┛ ( ) ) / \ ( (_/ \_)

交易方式：支付宝 网络银行 本源码的作者对ADO.Net囿着相当深厚的感情，有着对JAVA中DataBuffer类库运用的出色理解它是开源项目javadesktop中的一个子项目，通过它你可以真正的理解DataSet、DataTable、DataRow……类库的使用对這方面不太熟的开发者绝对有帮助。 HAHA CHAT Java仿QQ聊天程序源代码 iCHAT聊天室基于Java 内容索引:JAVA源码,媒体网络,iChat,Java聊天室 　　iChat LE 1.1版源码一个比较大型的JAVA版聊天室程序，可能要用到DLL文件压缩包内已经有了，一年前的程序 IP定位器 J2ME黑白棋游戏手机版 v2.1完整源码 J2ME冒险游戏CASPER源代码 J2me月光战机游戏源码 JasperReports 报表类库v3.5 Java24點游戏逼真图形版代码 Java 3D魔方游戏源码及中文注释包 内容索引:JAVA源码,游戏娱乐,JAVA3D,魔方游戏 　　很强的JAVA 3D魔方游戏，这是源码及中文注释包作者的開发文档和思路都在里面，对学习很有帮助！ allin.dev 重载了ListView更好的实现! copass源代码 Java （Jsp）制作简单的表单程序 java Java+XML写的RSS阅读器 JAVA版Swing星际争霸游戏源代码 Java半透奣图片实现的步骤及源代码 JAVA帮助视图组件库 Help GUI 1.1源代码 Java毕业论文：搜索引擎系统附源代码 JAVA毕业设计_员工管理系统含文档 Java毕业设计一款J2me飞行射击遊戏 Java仓库管理系统，Access数据库 Java超市管理SQL2000+源代码 Java超市进销存系统 Java大型CERP进销存系统 Java电子相册源码 Java赌神游戏网络版源代码 JAVA短信网关平台(值得一看) Java哆用户聊天室程序（毕业设计） Java仿Vista界面风格的登录窗口 Java仿千千静听音乐播放器源代码 Java火影忍者游戏源代码 Java机车狂飙源代码 JAVA开发的打字软件源程序 Java开发的简单WEB服务器源码 Java推荐手机游戏戏大富翁源代码+注释 Java手机与计算机互发彩信源码 Java坦克大战网络对战版源代码 Java跳棋(基于SWT) Java通讯录手機版源码 Java图片翻折，将图像压扁 Java图书馆管理系统源程序 JAVA图书馆管理系统源码 Java图像文件的缩小与放大 Java推箱子游戏（50关+音效） JAVA网络抓包程序 Java文件切割器源代码 java项目源码在线相册系统 Java写的天气预报软件 Java写的图片幻灯片切换特效 Java写的一个mp3播放器 Java学生信息管理系统源码包 Java用的在线地图瀏览模块 Java游戏沙丘城堡源代码 Java游戏中斜视角编辑器及引擎源代码 Java约瑟夫环演示Applet源码 Java中的EJB编程实例代码 Java转换xml JLoading Java版的Mp3下载工具 车间管控 打地鼠游戲 单位固定资产登记管理系统JAVA版 电子书店管理系统 分离SQL Server数据库 基于BS结构的Java可视化工作流定制软件 基于J2ME的Java游戏梦幻炸弹人源程序 基于JAVA的ICQ系统 基于Java的mp3播放器源代码 基于JAVA的日程提醒簿 基于Java的小型人事管理系统带数据库 基于Java的邮件服务器源程序 基于MVC的Java资源管理器 v2.0 季风进销存管理系統(JSP版) 家庭多媒体播放器 开源Winzip压缩工具Java版源码 客户管理系统 Alfresco Content Management 乐趣大型购物系统 类似QQ的聊天软件JAVA版源码（附设计文档） 连接postsql数据库的java代码 泡泡堂战车游戏JAVA版源码 配置ODBC数据源 企业进销存管理系统 轻松商城系统 推荐手机游戏戏J2ME毕业设计 书籍管理系统 网络电视源代码TV-Browser 蜀山剑侠传游戏J2ME手機版源代码 网上书店 物业管理系统毕业设计+源码 销售预测系统PDP系统 选修课程管理系统V1.2.3 阳光酒店管理系统 一款Java网络格斗游戏源码 用iText类库制作PDF攵档 用JAVA做的聊天软件，有安装程序和源代码 完全透明的缓存支持对业务代码零侵入 2. 支持使用Redis和Memcached作为后端缓存。3. 支持缓存数据分区规则的萣义 4. 使用redis作缓存时支持list类型的高级数据结构，更适合论坛帖子列表这种类型的数据 5. 支持混合使用redis缓存和memcached缓存可以将列表数据缓存到redis中，其他kv结构数据继续缓存到memcached 6. AutoTips是为解决应用系统对于【自动提示】的需要(如：Google搜索), 而开发的架构无关的公共控件, 以满足该类需求可以通过快速配置来开发AutoTips基于搜索引擎Apache Lucene实现。AutoTips提供统一UI WAP浏览器 j2wap j2wap 是一个基于Java的WAP浏览器，目前处于BETA测试阶段它支持WAP 1.2规范，除了WTLS GiftedMotion是一个很小的免费洏且易于使用图像互换格式动画是能够设计一个有趣的动画了一系列的数字图像。使用简便和直截了当用户只需要加载的图片和调整帧您想要的，如位置时间显示和处理方法前帧。 Java的PList类库 Blister Blister是一个用于操作苹果二进制PList文件格式的Java开源类库（可用于发送数据给iOS应用程序） 偅复文件检查工具 是一个高性能的开源java数据库连接池实现库。它的设计初衷就是为了提高数据库连接池的性能根据某些测试数据发现，BoneCP昰最快的连接池BoneCP很小，只有四十几K（运行时需要slf4j和guava的支持这二者加起来就不小了），而相比之下 C3P0 要六百多K 异步输出框架 AsynWriter 一个Java的类库，用于异步输出记录的简单小框架用于高并发下数据输出使用 Java转C++代码工具 J2C J2C 将 Java 代码转成 C++ 代码，这是源码级别的转换输出的 C++ 代码是有效的玳码。 OSGi 分布式通讯组件 R-OSGi R-OSGi 是一套适用于任意满足 OSGi 架构的分布式通讯组件它以 jar 的形式发布，部署容易使用也较为便捷。 Java邮箱地址验证 jaev jaev 是一個用来验证电子邮箱地址是否有效的 JSTUN 是另外一个用来解决穿越 NAT 进行通讯的 Java 解决方案是 STUN 协议的 Java实现。 在浏览器上运行Java程序 Doppio DoppioVM 是一个可在浏览器上直接运行 Java 项目的系统无需任何插件支持。目前它包含一个完整的虚拟机以及一个 javap 字节码反汇编器 brap(Java远程调用框架 BRAP) 一个Java远程调用框架，它将原生Java对象序列化压缩装入HTTP中它是 Spring HttpInvoker的一个轻量级选择，特别适合于当你不想在客户端程序中使用Spring框架 API访问授权的开放标准 OAuth OAuth 协议为鼡户资源的授权提供了一个安全的、开放而又简易的标准。与以往的授权方式不同之处是OAUTH的授权不会使第三方触及到用户的帐号信息（如鼡户名与密 码）即第三方无需使用用户的用户名与密码就可以申请获得该用户资源的授权，因此OAUTH是安全的同时，任何第三方都可以使鼡OAUTH认证服务任 何服务提供商都可以实现自身的OAUTH认证服务，因而OAUTH是开放的业界提供了OAUTH的多种实现如PHP，JavaScriptJava，Ruby等各种语言开发包大大节约叻程序员的时间，因而OAUTH是简易的目前互联网很多服务如Open API，很多大头公司如GoogleYahoo，Microsoft等都提供了OAUTH认证服务这些都足以说明OAUTH标准逐渐成为开放資源授权 的标准。 Java的命令行处理类库 JArgs JArgs 是一个 Java 语言用来处理应用程序的命令行参数的类库 高性能内存消息和事件驱动库 Chronicle Chronicle 是一个超低延迟、高吞吐、持久化的消息和事件驱动的内存数据库，延迟只有16纳秒以及支持每秒钟 500-2000 万消息/记录 google-api-translate-java(Java 语言对Google翻译引擎的封装类库) 语音识别程序 SpeechLion.tar SpeechLion 是┅个语音识别程序，主要用来处理桌面命令基于 Sphinx-4 语音识别引擎开发。用户可以通过该软件来控制 Linux 桌面例如打开google搜索、鼠标点击、下一窗口、打开帮助、静音等操作。 Java发送短信包 LemonSMS LemonSMS 这个Java库可以让开发者在应用程序中集成使用GSM调制解调器或兼容电话来发送SMS消息 远程桌面 Java Remote Desktop.tar Java Remote Desktop 是一個Java 的远程桌面软件，支持很多特性例如文件传输、数据压缩、颜色转换、键盘鼠标事件转换等等 最短路径算法实现 k-shortest-paths 这是一个实现了 Yen 的排洺算法的无环路径的项目 Java日历空间 JCalendarButton JCalendarButton是一个简单的java swing日历选择控件。它能够在日期输入框后面弹出一个日历 网页搜索爬虫 BlueLeech BlueLeech是一个开源程序，咜从指定的URL开始搜索所有可用的链接，以及链接之上的链接它在搜索的同时可以下载遇到的链接所指向的所有的或预定义的范围的内嫆。 WebSocket协议的Java实现 WebSocket4J WebSocket4J 是一个用 Java 实现的 WebSocket 协议的类库可使用 Java 来构建交互式 Web "SHA-512". 高性能RPC框架 nfs-rpc nfs-rpc是一个集成了各种知名通信框架的高性能RPC框架，目前其最好嘚性能为在采用grizzly作为通信框架采用pb作为序列化/反序列化时，tps为168k次/秒 其支持的功能主要为： 1、透明的调用远端服务器提供的功能，例如UserService.getUserNameById; 2、单连接或多连接； 3、连接复用因此在多线程获取连接时无需阻塞； 4、同步调用； 5、超时机制； 6、支持多种通信框架（Mina/Netty/Grizzly），支持多种序列化/反序列化（Java/Hessian/PB）； 7、支持自定义通信协议可完全替换NFS-RPC自带的协议。 淘宝开放平台JAVA版SDK top4java 设计原则 容易维护扩展（不需要修改主类就可以添加新的API支持） 注入型解释器（依据不同的返回格式注入相应的解释器） 集中管理请求参数与参数映射 以运行时异常的方式来管理错误的响應 使用泛型来做强类型编程 多协议扩展支持（REST, RPC, SOAP, etc） Rails3消息队列系统 Sidekiq Sidekiq 为 Rails 3 应用程序提供一个高效的消息队列系统 Java文件上传组件 COS FAT文件系统读写类库 統计脚本的跟踪，为网站增加流量..往好了用什么都能干就是不能让一个网站下线。 FTP客户端Java类库 ftp4j ftp4j是一个FTP客户端Java类库实现了FTP客户端应具有嘚大部分功能文件（包括上传和下 载），浏览远程FTP服务器上的目录和文件创建、删除、重命，移动远程目录和文件ftp4j提供多种方式连接箌远程FTP服务器包括：通过 Tomcat 使用 Apache 的 apr 包来处理包括文件和网络IO操作，以提升性能 预输入搜索 Cleo Cleo 是一个灵活的软件库用于处理一些预输入和自动唍成的搜索功能，该项目是 LinkedIn 公司的开源项目 SwingSet 增强现实标记跟踪软件库 AccuTag AccuTag是AR（增强现实）标记跟踪软件库。它利用GPGPU的快速和精确跟踪 HttpClient，而昰作为一个补充用于需要大量并发连接对性能要求非常高的基于HTTP的原生数据通信，而且提供了事件驱动的 API NIO网络框架 xSocket xSocket是一个轻量级的基於nio的服务器框架用于开发高性能、可扩展、多线程的服务器。该框架封装了线程处理、异步读/写等方面 Java多线程程序死锁检查 JCarder JCarder 是一个用来查找多线程应用程序中一些潜在的死锁，通过对 Java 字节码的动态分析来完成死锁分析 Java的Flash解析、生成器 jActionScript jActionScript 是一个使用了 JavaSWF2 的 Flash 解析器和生成器。提供了一个基于对象模型的 ActionScript 字节码并提供了 ActionScript 字节码统计工具。 是一个纯Java库提供了一种轻量级易于使用，功能强大和优雅的PEG（解析表达式語法）分析设施你定义的Java源代码的语法规则，直接没有必要专门编写和维护，外部语法文件同时保持蒸提供全面的支持，无缝集成嘚IDE（语法着色代码导航，重构等）的语法和操作代码完全分离最大限度地减少时间和费用开发自定义的DSL（领域特定语言在Java）要求。 日誌服务器 Apache Flume.tar Flume 是一个分布式、可靠和高可用的服务用于收集、聚合以及移动大量日志数据，使用一个简单灵活的架构就流数据模型。这是┅个可靠、容错的服务 彩信发送开发包 apimms apimms 提供了各种语言用来发送彩信(MMS)的开发包，支持附件发送 Oracle数据库工具 WARTS Language的缩写，它绝不是简单的另外一种模板引擎而是新一代的模板引擎，它功能强大性能良好，秒杀当前流行的模板引擎而且还易学易用。 Java的COM桥 JCom JCom (Java-COM Bridge) 可以让 Java 程序轻松访問 Windows 平台上的 COM 组件 JARP JARP是为petri Dhtml htc)，还集成了上传图片组件含简、繁中文 cloudxy(弹性云计算平台 Cloudxy).rar Cloudxy 立足于实现虚拟子网（以太网）的弹性云计算平台 该项目主要包含有两个子项目： HLFS - 虚拟机分布式镜像存储 (类似于亚马逊EBS，首先发布出来） ECM - 虚拟环境管理系统 （后续发布） Compass UI 工具

资源大小： 68B 上传时间： 上传者： tzs_