易语言自动点击窗口源码

系统结构:子程序_破解,子程序_置密码,子程序_查找子窗口,子程序_查找错误窗口,FindWindow,FindWindowExA,发送消息,GetInputState,

======窗口程序集1
           |  |
           |  |------ _按钮_开始_被单击
           |  |
           |  |------ 子程序_破解
           |  |
           |  |------ 子程序_置密码
           |  |
           |  |------ 子程序_查找子窗口
           |  |
           |  |------ 子程序_查找错误窗口
           |  |
           |  |------ _按钮_字典生成_被单击
           |  |
           |  |------ _按钮_重新开始_被单击
           |  |
           |  |------ __启动窗口_创建完毕
           |  |
           |  |------ _按钮_取字典数量_被单击
           |  |
           |  |
======调用的Dll
           |  |
           |  |---[dll]------   FindWindow
           |  |
           |  |---[dll]------   FindWindowExA
           |  |
           |  |---[dll]------   发送消息
           |  |
           |  |---[dll]------   GetInputState

调用的DLL命令:

.DLL命令 FindWindow, 整数型, "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, 整数型, , "FindWindowExA"
    .参数 hWnd1, 整数型, , 父窗口的句柄
    .参数 hWnd2, 整数型, , 子窗口的句柄，可以为0，为0的话从父窗口的第一个子窗口开始查找
    .参数 lpsz1, 文本型, , 要查找的窗口类名，可以为NULL,表示什么类都可以
    .参数 lpsz2, 文本型, , 窗口标题，可以为null，表示什么标题都行

.DLL命令 发送消息, 整数型, , "SendMessageA"
    .参数 窗口句柄, 整数型
    .参数 标识, 整数型
    .参数 消息1, 整数型
    .参数 消息2, 文本型

.DLL命令 GetInputState, 整数型, "user32", "GetInputState", , 判断存在事件_