易语言多帐号发送邮件流程控制讲解

视频中的源码：

多帐号发送流程控制.zip

.版本 2

.支持库 iext

.支持库 spec

.支持库 eAPI

.子程序 _按钮_开始_被单击

.局部变量 发送帐号的数量, 整数型

.局部变量 i, 整数型

.局部变量 每帐号发送的数量, 整数型

.局部变量 a, 整数型

.局部变量 帐号, 文本型

.局部变量 密码, 文本型

.局部变量 目标邮箱, 文本型

发送帐号的数量 ＝ 超级列表框1.取表项数 ()

.计次循环首 (发送帐号的数量, i)

帐号 ＝ 超级列表框1.取标题 (i － 1, 0)

密码 ＝ 超级列表框1.取标题 (i － 1, 1)

.计次循环首 (10, a)

目标邮箱 ＝ 超级列表框2.取标题 ((i － 1) × 10 ＋ a － 1, 0)

.如果真 (取文本长度 (目标邮箱) ＝ 0)

跳出循环 ()

.如果真结束

发送 (帐号, 密码, 目标邮箱)

调试输出 (帐号, 密码, 目标邮箱)

.计次循环尾 ()

.计次循环尾 ()

.子程序 _窗口1_创建完毕

.局部变量 i, 整数型

.局部变量 index, 整数型

.计次循环首 (10, i)

index ＝ 超级列表框1.插入表项 (, , , , , )

超级列表框1.置标题 (index, , “帐号” ＋ 到文本 (i))

超级列表框1.置标题 (index, 1, “********”)

.计次循环尾 ()

.计次循环首 (95, i)

index ＝ 超级列表框2.插入表项 (, , , , , )

超级列表框2.置标题 (index, , “待发帐号” ＋ 到文本 (i))

超级列表框2.置标题 (index, 1, “未发”)

.计次循环尾 ()

.子程序 发送

.参数 帐号, 文本型

.参数 密码, 文本型

.参数 待发帐号, 文本型

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

打开指定网址 (“http://www.jinqiuxin.cn/post/33.html”)