易语言对象登陆淘宝源码

系统结构:登陆,递归寻找子窗口,取网页对象,取网页句柄,ObjectFromLresult,RegisterWindowMessage,SendMessageTimeout,GetWindow,GetClassName,发送消息_,寻找子窗口_,

======窗口程序集1
           |  |
           |  |------ 登陆
           |  |
           |  |------ 递归寻找子窗口
           |  |
           |  |------ 取网页对象
           |  |
           |  |------ 取网页句柄
           |  |
           |  |------ _按钮1_被单击
           |  |
           |  |------ _按钮2_被单击
           |  |
           |  |
======调用的Dll
           |  |
           |  |---[dll]------   ObjectFromLresult
           |  |
           |  |---[dll]------   RegisterWindowMessage
           |  |
           |  |---[dll]------   SendMessageTimeout
           |  |
           |  |---[dll]------   GetWindow
           |  |
           |  |---[dll]------   GetClassName
           |  |
           |  |---[dll]------   发送消息_
           |  |
           |  |---[dll]------   寻找子窗口_

调用的DLL命令:

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

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

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

.DLL命令 GetWindow, 整数型, , "GetWindow", , 获得一个窗口的句柄，该窗口与某源窗口有特定的关系
    .参数 源窗口, 整数型
    .参数 关系, 整数型

.DLL命令 GetClassName, 整数型, "user32.dll", "GetClassNameA"
    .参数 句柄, 整数型
    .参数 类名, 文本型
    .参数 文本长度, 整数型

.DLL命令 发送消息_, 整数型, "user32", "SendMessageA", , 调用一个窗口的窗口函数，将一条消息发给那个窗口。除非消息处理完毕，否则该函数不会返回。SendMessageBynum， ;    SendMessageByString是该函数的“类型security”声明形式  由具体的消息决定
    .参数 窗口句柄, 整数型, , 要接收消息的那个窗口的句柄
    .参数 信息值, 整数型, , 消息的标识符
    .参数 参数一, 整数型, , 具体取决于消息
    .参数 参数二, 文本型, , 具体取决于消息;

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