易语言修改网页标题

系统结构:取IES对象,GetCursorPos,WindowFromPoint,SendMessageTimeout,ObjectFromLresult,RegisterWindowMessage,GetClassName,

======窗口程序集1
           |  |
           |  |------ 取IES对象
           |  |
           |  |------ _图片框1_鼠标左键被按下
           |  |
           |  |------ _图片框1_鼠标左键被放开
           |  |
           |  |------ _图片框1_鼠标位置被移动
           |  |
           |  |------ _网页_按钮_修改_被单击
           |  |
           |  |
======调用的Dll
           |  |
           |  |---[dll]------   GetCursorPos
           |  |
           |  |---[dll]------   WindowFromPoint
           |  |
           |  |---[dll]------   SendMessageTimeout
           |  |
           |  |---[dll]------   ObjectFromLresult
           |  |
           |  |---[dll]------   RegisterWindowMessage
           |  |
           |  |---[dll]------   GetClassName

调用的DLL命令:

.DLL命令 GetCursorPos, 整数型, "user32", "GetCursorPos", , 获取鼠标指针的当前位置  非零表示成功，零表示失败。会设置GetLastError
    .参数 lpPoint, Point, , POINTAPI，随同指针在屏幕像素坐标中的位置载入的一个结构;

.DLL命令 WindowFromPoint, 整数型, "user32", "WindowFromPoint", , 返回包含了指定点的窗口的句柄。忽略屏蔽、隐藏以及透明窗口  包含了指定点的窗口的句柄。如指定的点处没有窗口存在，则返回零
    .参数 xPoint, 整数型, , x点值
    .参数 yPoint, 整数型, , y点值;

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

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

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

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