群发消息通用系统附模块

易语言 2020-07-08 13:24:16

群发消息通用系统附模块

.计次循环首 (999999999, )
l = l + 1
.如果真 (使用的帐号 ≥ vv)
使用的帐号 = 0
.如果真结束
cookies = 超级列表框_帐号管理.取标题 (使用的帐号, 3)
广告语 = 编辑框_当前广告语.内容
编辑框_发送使用的广告语.内容 = 编辑框_当前广告语.内容
透明标签_发送状态.标题 = “开始发送^”
VU = 超级列表框_帐号管理.取标题 (l - 1, 4)
uid = 超级列表框_帐号管理.取标题 (l - 1, 5)
key = 超级列表框_帐号管理.取标题 (l - 1, 6)
chk = 超级列表框_帐号管理.取标题 (l - 1, 7)
.如果真 (超级列表框1.取表项数 () ≤ l)
跳出循环 ()
.如果真结束
.如果 (天涯_发送私信 (超级列表框1.取标题 (l - 1, 1), 广告语, VU, uid, key, chk, cookies) = 真)
超级列表框1.置标题 (l - 1, 2, “发送 √”)
透明标签_发送状态.标题 = “消息发送成功!!:” + 超级列表框1.取标题 (l - 1, 1) + “广告语:” + 编辑框_当前广告语.内容 + #换行符
.否则
超级列表框1.置标题 (l - 1, 2, “发送 ×”)
调试输出 (超级列表框1.取标题 (l - 1, 1), 广告语)
透明标签_发送状态.标题 = “消息发送失败!!:” + 超级列表框1.取标题 (l - 1, 1) + #换行符
.如果结束
使用的帐号 = 使用的帐号 + 1
.计次循环尾 ()