易语言IE对象源码

系统结构:创建IE窗口,窗口位置,GetApplication,GetParent,GetContainer,GetDocument,GetTopLevelContainer,GetType,GetLeft,GetTop,GetWidth,GetHeight,GetLocationName,GetLocationURL,GetBusy,SetLeft,SetTop,SetWidth,SetHeight,GoBack,GoForward,GoHome,GoSearch,Navigate,Refresh,Refresh2,Stop,GetModuleHandle,CreateWindowEx,AtlAxWinInit,AtlAxGetControl,MoveWindow,GetWindowRect,ScreenToClient,GetParent,CoInitialize,CoUninitialize,

======窗口程序集1
           |  |
           |  |------ __启动窗口_创建完毕
           |  |
           |  |------ _按钮跳转_被单击
           |  |
           |  |------ __启动窗口_尺寸被改变
           |  |
           |  |------ _按钮刷新_被单击
           |  |
           |  |------ _按钮前进_被单击
           |  |
           |  |------ _按钮后退_被单击
           |  |
           |  |
======IE浏览器
           |  |
           |  |------ _初始化
           |  |
           |  |------ _销毁
           |  |
           |  |------ 创建IE窗口
           |  |
           |  |------ 窗口位置
           |  |
           |  |------ GetApplication
           |  |
           |  |------ GetParent
           |  |
           |  |------ GetContainer
           |  |
           |  |------ GetDocument
           |  |
           |  |------ GetTopLevelContainer
           |  |
           |  |------ GetType
           |  |
           |  |------ GetLeft
           |  |
           |  |------ GetTop
           |  |
           |  |------ GetWidth
           |  |
           |  |------ GetHeight
           |  |
           |  |------ GetLocationName
           |  |
           |  |------ GetLocationURL
           |  |
           |  |------ GetBusy
           |  |
           |  |------ SetLeft
           |  |
           |  |------ SetTop
           |  |
           |  |------ SetWidth
           |  |
           |  |------ SetHeight
           |  |
           |  |------ GoBack
           |  |
           |  |------ GoForward
           |  |
           |  |------ GoHome
           |  |
           |  |------ GoSearch
           |  |
           |  |------ Navigate
           |  |
           |  |------ Refresh
           |  |
           |  |------ Refresh2
           |  |
           |  |------ Stop
           |  |
           |  |
======调用的Dll
           |  |
           |  |---[dll]------   GetModuleHandle
           |  |
           |  |---[dll]------   CreateWindowEx
           |  |
           |  |---[dll]------   AtlAxWinInit
           |  |
           |  |---[dll]------   AtlAxGetControl
           |  |
           |  |---[dll]------   MoveWindow
           |  |
           |  |---[dll]------   GetWindowRect
           |  |
           |  |---[dll]------   ScreenToClient
           |  |
           |  |---[dll]------   GetParent
           |  |
           |  |---[dll]------   CoInitialize
           |  |
           |  |---[dll]------   CoUninitialize

调用的DLL命令:

.DLL命令 GetModuleHandle, 整数型, "kernel32", "GetModuleHandleA", , 获取一个应用程序或动态链接库的模块句柄
    .参数 lpModuleName, 文本型, , 指定模块名，这通常是与模块的文件名相同的一个名字。

.DLL命令 CreateWindowEx, 整数型, "user32", "CreateWindowExA", , 创建窗口
    .参数 dwExStyle, 整数型
    .参数 lpClassName, 文本型
    .参数 lpWindowName, 文本型
    .参数 dwStyle, 整数型
    .参数 x, 整数型
    .参数 y, 整数型
    .参数 nWidth, 整数型
    .参数 nHeight, 整数型
    .参数 hWndParent, 整数型
    .参数 hMenu, 整数型
    .参数 hInstance, 整数型
    .参数 lpParam, 整数型

.DLL命令 AtlAxWinInit, 整数型, "atl.dll", "AtlAxWinInit"

.DLL命令 AtlAxGetControl, 整数型, "atl.dll", "AtlAxGetControl"
    .参数 h
    .参数 x, 对象

.DLL命令 MoveWindow, 整数型, "user32.dll", "MoveWindow"
    .参数 窗口句柄, 整数型
    .参数 左侧位置, 整数型
    .参数 顶部位置, 整数型
    .参数 新宽度, 整数型
    .参数 高宽度, 整数型
    .参数 是否重画, 整数型

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

.DLL命令 ScreenToClient, 整数型, "user32"
    .参数 hwnd, 整数型
    .参数 lpPoint, POINTAPI

.DLL命令 GetParent, 整数型, "user32"
    .参数 hwnd, 整数型

.DLL命令 CoInitialize, , "ole32.dll", "CoInitialize"
    .参数 pvReserved, 整数型, , 值为0

.DLL命令 CoUninitialize, , "ole32.dll", "CoUninitialize"