QQ后台消息群发器开源升级版

易语言 2020-07-02 16:10:49

QQ后台消息群发器开源升级版

.计次循环首 (i, n)
uid = 超级列表框1.取标题 (n - 1, 1)
工作记录 (“正在查找是否禁发”)
.如果 (寻找文本 (编辑框_不允许.内容, uid, , 假) = -1)
工作记录 (“符合发送条件,正在给QQ:” + uid + “发送信息”)
窗口_置顶 (QQ句柄)
鼠标_消息 (QQ句柄, 269, 130, 1, 1)
文本_投递 (QQ句柄, uid)
键盘_消息 (QQ句柄, #回车键, 3)
清除剪辑板 ()
.判断循环首 (取剪辑板文本 () = “”)
窗口_置顶 (QQ句柄)
鼠标_消息 (QQ句柄, 108, 128, 1, 1)
鼠标_消息 (QQ句柄, 108, 128, 1, 1)
键盘_组合按键 (#C键, #Ctrl键, )
调试输出 (取剪辑板文本 ())
延迟 (1000)
.判断循环尾 ()
昵称 = 取剪辑板文本 ()
qq = QQ好友_取句柄 (昵称)
.判断循环首 (qq = 0)
qq = QQ好友_取句柄 (昵称)
.判断循环尾 ()
文本_投递 (qq, 编辑框_内容.内容)
键盘_消息 (qq, #回车键, 3)
窗口_关闭 (qq)
超级列表框1.置标题 (n - 1, 2, 昵称)
工作记录 (“QQ:” + uid + “发送完成功”)
超级列表框1.置标题 (n - 1, 3, “OK”)
超级列表框1.置标题 (n - 1, 4, 编辑框_内容.内容)
超级列表框1.置标题 (n - 1, 5, 到文本 (取现行时间 ()))
.否则
工作记录 (“禁止发送对像”)
.如果结束
工作记录 (“等待时间进行下一步操作:” + 编辑框_延时.内容 + “毫秒”)
延迟 (到整数 (编辑框_延时.内容))
.计次循环尾 ()