.版本 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, “注意！”) ＝ #是钮) 返回 (真) .否则 返回 (假) .如果结束 .如果真结束