易语言126邮箱网页登陆源码

系统结构:登录126,进入发信,邮箱126_填写标题,填正文,发送邮箱,检测是否发送出去,取IES对象,取IES句柄,彗星取光标处句柄,彗星取窗口类名,取所有句柄,窗口是否可见,ObjectFromLresult,RegisterWindowMessageA,SendMessageTimeoutA,FindWindowExA,SetCapture,ReleaseCapture,GetCursorPos,WindowFromPoint,GetClassName,GetWindowRect,寻找子窗口_,IsWindowVisible,

======程序集1
           |  |
           |  |------ 登录126
           |  |
           |  |------ 进入发信
           |  |
           |  |------ 邮箱126_填写标题
           |  |
           |  |------ 填正文
           |  |
           |  |------ 发送邮箱
           |  |
           |  |
======窗口程序集1
           |  |
           |  |------ _按钮1_被单击
           |  |
           |  |------ __启动窗口_创建完毕
           |  |
           |  |------ _按钮3_被单击
           |  |
           |  |------ _按钮4_被单击
           |  |
           |  |------ _按钮5_被单击
           |  |
           |  |------ _时钟1_周期事件
           |  |
           |  |------ 检测是否发送出去
           |  |
           |  |
======公用程序集
           |  |
           |  |------ 取IES对象
           |  |
           |  |------ 取IES句柄
           |  |
           |  |------ 彗星取光标处句柄
           |  |
           |  |------ 彗星取窗口类名
           |  |
           |  |------ 取所有句柄
           |  |
           |  |------ 窗口是否可见
           |  |
           |  |
======调用的Dll
           |  |
           |  |---[dll]------   ObjectFromLresult
           |  |
           |  |---[dll]------   RegisterWindowMessageA
           |  |
           |  |---[dll]------   SendMessageTimeoutA
           |  |
           |  |---[dll]------   FindWindowExA
           |  |
           |  |---[dll]------   SetCapture
           |  |
           |  |---[dll]------   ReleaseCapture
           |  |
           |  |---[dll]------   GetCursorPos
           |  |
           |  |---[dll]------   WindowFromPoint
           |  |
           |  |---[dll]------   GetClassName
           |  |
           |  |---[dll]------   GetWindowRect
           |  |
           |  |---[dll]------   寻找子窗口_
           |  |
           |  |---[dll]------   IsWindowVisible

调用的DLL命令:

.DLL命令 ObjectFromLresult, 整数型, "OLEACC.DLL", , , 　
    .参数 lResult, 整数型
    .参数 riid, 字节集
    .参数 wParam, 整数型
    .参数 ppvObject, 对象

.DLL命令 RegisterWindowMessageA, 整数型, , , , 获取分配给一个字串标识符的消息编号　&C000 到 &FFFF之间的一个消息编号。零意味着出错
    .参数 lpString, 文本型, , 注册消息的名字;  

.DLL命令 SendMessageTimeoutA, 整数型
    .参数 MSG, 整数型
    .参数 hwnd, 整数型
    .参数 wParam, 整数型
    .参数 lParam, 整数型
    .参数 fuFlags, 整数型
    .参数 uTimeout, 整数型
    .参数 lpdwResult, 整数型, 传址

.DLL命令 FindWindowExA, 整数型
    .参数 hWnd1, 整数型
    .参数 hWnd2, 整数型
    .参数 lpsz1, 文本型
    .参数 lpsz2, 文本型

.DLL命令 SetCapture, 整数型, , , , 将鼠标捕获设置到指定的窗口。在鼠标按钮按下的时候，这个窗口会为当前应用程序或整个系统接收所有鼠标输入
    .参数 hwnd, 整数型, , 要接收所有鼠标输入的窗口的句柄

.DLL命令 ReleaseCapture, 整数型, , , , 为当前的应用程序释放鼠标捕获

.DLL命令 GetCursorPos, 整数型, , , , 获取鼠标指针的当前位置
    .参数 lpPoint, Point

.DLL命令 WindowFromPoint, 整数型, , "WindowFromPoint"
    .参数 x, 整数型
    .参数 y, 整数型

.DLL命令 GetClassName, 整数型, , "GetClassNameA"
    .参数 hwnd
    .参数 lpClassName, 文本型
    .参数 nMaxCount

.DLL命令 GetWindowRect, 整数型, , "GetWindowRect", 公开
    .参数 hwnd, 整数型
    .参数 lpRect, RECT

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

.DLL命令 IsWindowVisible, 整数型, , "IsWindowVisible"
    .参数 句柄, 整数型