记录文件播放文件 

 1 .版本 2
 2 
 3 .局部变量 i, 整数型
 4 .局部变量 配置节, 文本型, , "0"
 5 
 6 .如果真 (msg ＝ “开始记录” 且 fromGroup ＝ #分身)
 7     写配置项 (应用目录 ＋ “记录.ini”, “记录开关”, “状态”, “开”)
 8 .如果真结束
 9 .如果真 (msg ＝ “关闭记录” 且 fromGroup ＝ #分身)
10     写配置项 (应用目录 ＋ “记录.ini”, “记录开关”, “状态”, “关”)
11 .如果真结束
12 .如果真 (fromGroup ＝ #分身 且 msg ≠ “关闭记录” 且 msg ≠ “开始记录”)
13     .如果真 (读配置项 (应用目录 ＋ “记录.ini”, “记录开关”, “状态”, ) ＝ “开”)
14         写配置项 (应用目录 ＋ “记录”, msg, “时间”, 到文本 (取现行时间 ()))
15     .如果真结束
16 
17 .如果真结束
18 .如果真 (取文本左边 (msg, 4) ＝ “播放”)
19     写配置项 (应用目录 ＋ “记录.ini”, “记录开关”, “状态”, “关”)
20     配置节 ＝ 取配置节名 (应用目录 ＋ “记录.ini”)
21     .计次循环首 (取数组成员数 (配置节), i)
22         CQ.发送群消息 (fromGroup, 配置节 [i])
23     .计次循环尾 ()
24     写配置项 (应用目录 ＋ “记录.ini”, “记录开关”, “状态”, “开”)
25 .如果真结束
26 返回 (#消息_忽略)  ' 关于返回值说明, 见“_eventFriendMsg”子程序
View Code

 

 

posted @ 2018-01-17 03:01  acshery  阅读(141)  评论(0)    收藏  举报