易语言一线邮箱群发营销工具源码

系统结构:生成4,生成3,生成2,生成1,生成,路径取文件名,开始发信,链接服务器,分析收件邮箱,发送,更换IP,归位,FindWindowA,FindWindowExA,

======窗口程序集1
           |  |
           |  |------ __启动窗口_创建完毕
           |  |
           |  |------ _按钮1_被单击
           |  |
           |  |------ _按钮2_被单击
           |  |
           |  |------ _超级列表框1_右键单击表项
           |  |
           |  |------ _删除本行_被选择
           |  |
           |  |------ _全部清空_被选择
           |  |
           |  |------ _全部选中_被选择
           |  |
           |  |------ _全部取消_被选择
           |  |
           |  |------ _测试连接_被选择
           |  |
           |  |------ _时钟1_周期事件
           |  |
           |  |------ _按钮4_被单击
           |  |
           |  |------ _按钮3_被单击
           |  |
           |  |------ 生成4
           |  |
           |  |------ 生成3
           |  |
           |  |------ 生成2
           |  |
           |  |------ 生成1
           |  |
           |  |------ 生成
           |  |
           |  |------ _按钮6_被单击
           |  |
           |  |------ _按钮5_被单击
           |  |
           |  |------ _按钮7_被单击
           |  |
           |  |------ _按钮8_被单击
           |  |
           |  |------ _按钮9_被单击
           |  |
           |  |------ _取消息管理器句柄
           |  |
           |  |------ _取群设置句柄
           |  |
           |  |------ _按钮10_被单击
           |  |
           |  |------ _按钮13_被单击
           |  |
           |  |------ _超级列表框2_右键单击表项
           |  |
           |  |------ _收件箱删除本行_被选择
           |  |
           |  |------ _收件箱全部清空_被选择
           |  |
           |  |------ _收件箱全部选中_被选择
           |  |
           |  |------ _收件箱全部取消_被选择
           |  |
           |  |------ _添加附件文件_被单击
           |  |
           |  |------ _删除全部附件_被单击
           |  |
           |  |------ 路径取文件名
           |  |
           |  |------ _这里写邮件的标题_鼠标左键被按下
           |  |
           |  |------ _这里写邮件的内容_鼠标左键被按下
           |  |
           |  |------ _按钮11_被单击
           |  |
           |  |------ 开始发信
           |  |
           |  |------ 链接服务器
           |  |
           |  |------ 分析收件邮箱
           |  |
           |  |------ 发送
           |  |
           |  |------ 更换IP
           |  |
           |  |------ 归位
           |  |
           |  |
======调用的Dll
           |  |
           |  |---[dll]------   FindWindowA
           |  |
           |  |---[dll]------   FindWindowExA

调用的DLL命令:

.DLL命令 FindWindowA, 整数型, "user32", "FindWindowA", , 寻找窗口列表中第一个符合指定条件的顶级窗口（在vb里使用：FindWindow最常见的一个用途是获得ThunderRTMain类的隐藏窗口的句柄；该类是所有运行中vb执行程序的一部分。获得句柄后，可用api函数GetWindowText取得这个窗口的名称；该名也是应用程序的标题）  找到窗口的句柄。如未找到相符窗口，则返回零。会设置GetLastError
    .参数 窗口类名, 文本型, , 指向包含了窗口类名的空中止（C语言）字串的指针；或设为零，表示接收任何类
    .参数 窗口文本, 文本型, , 指向包含了窗口文本（或标签）的空中止（C语言）字串的指针；或设为零，表示接收任何窗口标题  示例Dim hw&, cnt&Dim rttitle As  * 256hw& = FindWindow("ThunderRT5Main", vbNullString) ' ThunderRTMain under VB4cnt = GetWindowText(hw&, rttitle, 255)MsgBox Left, 0, "RTMain title";

.DLL命令 FindWindowExA, 整数型, "user32", "FindWindowExA", , 在窗口列表中寻找与指定条件相符的第一个子窗口  找到的窗口的句柄。如未找到相符窗口，则返回零。会设置GetLastError
    .参数 窗口句柄1, 整数型, , 在其中查找子的父窗口。如设为零，表示使用桌面窗口（通常说的顶级窗口都被认为是桌面的子窗口，所以也会对它们进行查找）
    .参数 窗口句柄2, 整数型, , 从这个窗口后开始查找。这样便可利用对FindWindowEx的多次调用找到符合条件的所有子窗口。如设为零，表示从第一个子窗口开始搜索
    .参数 欲搜索的类名1, 文本型, , 欲搜索的类名。零表示忽略
    .参数 欲搜索的类名2, 文本型, , 欲搜索的类名。零表示忽略;