QQ好友群发系统最新版

易语言 2020-07-17 18:07:45

QQ好友群发系统最新版

.如果真 (寻找文本 (发送内容, “<随机字母>”, , 假) ≠ -1)
发送内容 = 子文本替换 (发送内容, “<随机字母>”, , , , 真) + “<” + 文本_取随机字母 (6, 2) + “>”
调试输出 (发送内容)
.如果真结束
.如果真 (寻找文本 (发送内容, “<随机数字>”, , 假) ≠ -1)
发送内容 = 子文本替换 (发送内容, “<随机数字>”, , , , 真) + “<” + 文本_取随机范围数字 (0, 9, ) + 文本_取随机范围数字 (0, 9, ) + 文本_取随机范围数字 (0, 9, ) + 文本_取随机范围数字 (0, 9, ) + 文本_取随机范围数字 (0, 9, ) + 文本_取随机范围数字 (0, 9, ) + “>”
调试输出 (发送内容)
.如果真结束
.如果真 (寻找文本 (发送内容, “<随机汉字>”, , 假) ≠ -1)
发送内容 = 子文本替换 (发送内容, “<随机汉字>”, , , , 真) + “<” + 文本_取随机汉字 (6, 0) + “>”
调试输出 (发送内容)
.如果真结束
调试输出 (发送内容)
.如果 (发送好友消息 (超级列表框2.取标题 (i - 1, 1), 发送内容) = 真)
超级列表框2.置标题 (i - 1, 2, “发送成功”)
.否则
超级列表框2.置标题 (i - 1, 2, “发送失败”)
.如果结束
置随机数种子 ()
延迟 (取随机数 (到整数 (编辑框2.内容) × 1000, 到整数 (编辑框3.内容) × 1000))
处理事件 ()
.计次循环尾 ()
超级列表框1.置标题 (账号记数, 3, “全部发送完毕”)