QY.取好友列表 (获取QQID (), 好友列表)
.计次循环首 (取数组成员数 (好友列表), i)
索引 = 超级列表框好友列表.插入表项 (i - 1, 到文本 (i), , , , )
超级列表框好友列表.置标题 (索引, 1, 到文本 (好友列表 [i].昵称))
超级列表框好友列表.置标题 (索引, 2, 到文本 (好友列表 [i].QQID))
.计次循环尾 ()
编辑框日志.加入文本 (“[” + 时 + “:” + 分 + “:” + 秒 + “]” + “刷新好友列表成功,共获取到” + 到文本 (到整数 (索引) + 1) + “个好友” + #换行符)
写到文件 (取运行目录 () + “\config” + “\好友列表.txt”, 到字节集 (好友列表))
QY.发送群临时消息 (获取QQID (), fromGroup, beingOperateQQ, QY.LQ码_本地图片 (主窗口.编辑框图片路径.内容) + 欢迎消息)
主窗口.编辑框日志.加入文本 (“{” + 时 + “:” + 分 + “:” + 秒 + “}” + “发送欢迎图片+文本消息到” + 到文本 (fromGroup) + “群成功” + #换行符)
.如果真 (选择框群发好友.选中 = 真 且 单选框JSON.选中 = 真)
JSON消息 = 编辑框JSON.内容
JSON消息 = QY.LQ码_特殊消息 (1, 编辑框JSON.内容)
时 = 到文本 (取小时 (取现行时间 ()))
分 = 到文本 (取分钟 (取现行时间 ()))
秒 = 到文本 (取秒 (取现行时间 ()))
QY.发送好友消息 (获取QQID (), 到长整数 (好友数组 [i]), JSON消息)
编辑框日志.加入文本 (“{” + 时 + “:” + 分 + “:” + 秒 + “}” + “发送JSON信息到” + 到文本 (好友数组 [i]) + “QQ成功” + #换行符)
上一篇 易语言捕获视频摄像头
下一篇 快捷方式截图小程序