易语言获取网页源码和密码例程

系统结构:取文档对象,取浏览器文档对象_API,注册消息_API,发送消息_API,置鼠标捕获窗口_API,取消鼠标捕获窗口_API,取窗口类名_API,取座标窗口句柄_API,取光标位置_API,

======窗口程序集1
           |  |
           |  |------ 取文档对象
           |  |
           |  |------ _单选框1_被单击
           |  |
           |  |------ _单选框2_被单击
           |  |
           |  |------ __启动窗口_将被销毁
           |  |
           |  |------ _单选框1_鼠标左键被放开
           |  |
           |  |------ _单选框2_鼠标左键被放开
           |  |
           |  |
======调用的Dll
           |  |
           |  |---[dll]------   取浏览器文档对象_API
           |  |
           |  |---[dll]------   注册消息_API
           |  |
           |  |---[dll]------   发送消息_API
           |  |
           |  |---[dll]------   置鼠标捕获窗口_API
           |  |
           |  |---[dll]------   取消鼠标捕获窗口_API
           |  |
           |  |---[dll]------   取窗口类名_API
           |  |
           |  |---[dll]------   取座标窗口句柄_API
           |  |
           |  |---[dll]------   取光标位置_API

调用的DLL命令:

.DLL命令 取浏览器文档对象_API, 整数型, "OLEACC.DLL", "ObjectFromLresult"
    .参数 lRes
    .参数 IID, 字节集
    .参数 n
    .参数 pDispatch, 对象

.DLL命令 注册消息_API, 整数型, , "RegisterWindowMessageA"
    .参数 消息文本, 文本型

.DLL命令 发送消息_API, , , "SendMessageTimeoutA"
    .参数 hwnd
    .参数 msg
    .参数 wParam
    .参数 lParam
    .参数 fuFlags
    .参数 uTimeout
    .参数 lpdwResult, , 传址

.DLL命令 置鼠标捕获窗口_API, 整数型, , "SetCapture"
    .参数 hwnd

.DLL命令 取消鼠标捕获窗口_API, 整数型, , "ReleaseCapture"

.DLL命令 取窗口类名_API, , , "GetClassNameA"
    .参数 h
    .参数 t, 文本型
    .参数 n

.DLL命令 取座标窗口句柄_API, 整数型, "user32.dll", "WindowFromPoint"
    .参数 X轴光标, 整数型
    .参数 Y轴光标, 整数型

.DLL命令 取光标位置_API, 逻辑型, "user32.dll", "GetCursorPos"
    .参数 光标位置, POINT, 传址