QQ邮件群发器易语言源码

QQ邮件群发器易语言源码，源码利用smtp发信。

@三叶自学网

.版本 2
.支持库 internet

.程序集 窗口程序集1

.子程序 __启动窗口_创建完毕

' 本源码来自三叶资源网(www.sanye.cx)

.子程序 _发送_被单击

.判断开始 (帐号.内容 ＝ “”)
    信息框 (“请输入帐号”, 0, )
    返回 ()
.判断 (密码.内容 ＝ “”)
    信息框 (“请输入密码”, 0, )
    返回 ()
.判断 (主题.内容 ＝ “”)
    信息框 (“请输入邮件主题”, 0, )
    返回 ()
.判断 (正文.内容 ＝ “”)
    信息框 (“请输入邮件正文”, 0, )
    返回 ()
.判断 (列表框1.取项目文本 (0) ＝ “”)
    信息框 (“请先导入邮件”, 0, )
    返回 ()  ' 三叶资源网(www.sanye.cx)
.默认
    .如果 (连接发信服务器 (“smtp.qq.com”, , 帐号.内容, 密码.内容, ) ＝ 真)
        信息框 (“登陆成功开始发送邮件”, 0, )
        帐号.禁止 ＝ 真
        密码.禁止 ＝ 真
        主题.禁止 ＝ 真
        正文.禁止 ＝ 真
        时间.禁止 ＝ 真
        _启动窗口.标题 ＝ “开始发送邮件” ＋ 收信人.内容
        时钟1.时钟周期 ＝ 到数值 (时间.内容) × 1000
        发送.禁止 ＝ 真
    .否则
        信息框 (“用户名或密码不正确！”, 64, )
        返回 ()
    .如果结束
    ' 三叶资源网(www.sanye.cx)
.判断结束

.子程序 _按钮4_被单击

.如果真 (发送.禁止 ＝ 真)
    .如果 (信息框 (“您确定要停止吗？”, 36, “注意！”) ＝ #是钮)
        时钟1.时钟周期 ＝ 0
        发送.禁止 ＝ 假
        帐号.禁止 ＝ 假
        密码.禁止 ＝ 假
        主题.禁止 ＝ 假
        正文.禁止 ＝ 假
        时间.禁止 ＝ 假
        _启动窗口.标题 ＝ “用户停止发送”
        延时 (3000)
        _启动窗口.标题 ＝ “邮件群发器   无需注册版”
    .否则
        ' 三叶资源网(www.sanye.cx)
    .如果结束

.如果真结束

.子程序 _时钟1_周期事件
.局部变量 邮件, 文本型

发送邮件 (主题.内容, 正文.内容, 收信人.内容, , , 帐号.内容 ＋ “@qq.com”, )
标签7.标题 ＝ 到文本 (到数值 (标签7.标题) ＋ 1)
邮件 ＝ 列表框1.取项目文本 (-1 ＋ 到数值 (标签7.标题))
收信人.内容 ＝ 邮件
_启动窗口.标题 ＝ “开始发送邮件” ＋ 收信人.内容
.如果真 (收信人.内容 ＝ “”)
    时钟1.时钟周期 ＝ 0
    发送.禁止 ＝ 假
    发送.禁止 ＝ 假
    帐号.禁止 ＝ 假
    密码.禁止 ＝ 假
    主题.禁止 ＝ 假
    正文.禁止 ＝ 假
    时间.禁止 ＝ 假
    _启动窗口.标题 ＝ “QQ邮件群发器   无需注册版”
    信息框 (“邮件发送完毕！”, #信息图标, )
.如果真结束
' 三叶资源网(www.sanye.cx)

.子程序 _导入邮件_被单击
.局部变量 文件名, 文本型
.局部变量 文件号, 整数型
.局部变量 计数, 整数型
.局部变量 文本, 文本型

.判断开始 (发送.禁止 ＝ 真)
    信息框 (“不能导入邮件,程序正在发送邮件”, 0, )
    返回 ()
.默认
    通用对话框.类型 ＝ 0
    .如果真 (通用对话框.打开 () ＝ 真)
        文件名 ＝ 通用对话框.文件名
        文件号 ＝ 打开文件 (文件名, , )
        移到文件首 (文件号)
    .如果真结束
    .判断循环首 (取反 (是否在文件尾 (文件号, )))
        文本 ＝ 读入一行 (文件号)
        列表框1.加入项目 (文本, )
        计数 ＝ 计数 ＋ 1
        分组框1.标题 ＝ “邮件数量：” ＋ 到文本 (计数)
    .判断循环尾 ()
    ' 三叶资源网(www.sanye.cx)
.判断结束


.子程序 _按钮2_被单击

.判断开始 (发送.禁止 ＝ 真)
    信息框 (“不能删除邮件,正在发送邮件！”, 0, )
    返回 ()
.默认
    列表框1.清空 ()
    分组框1.标题 ＝ “邮件数量：”
.判断结束
' 三叶资源网(www.sanye.cx)

.子程序 __启动窗口_可否被关闭, 逻辑型

.如果真 (发送.禁止 ＝ 真)
    .如果 (信息框 (“你确定要退出程序吗？”, 36, “注意！”) ＝ #是钮)
        返回 (真)
    .否则
        返回 (假)
    .如果结束

.如果真结束