易语言动态调用com模块源码

系统结构:模块_动态调用COM,取指针_对象,取指针_类厂,A2W,取指针_整数,取指针_字节集,模块_调用子程序,IClassFactory_QueryInterface,IClassFactory_AddRef,IClassFactory_Release,IClassFactory_CreateInstance,IClassFactory_LockServer,CLSIDFromString,MultiByteToWideChar,LoadLibrary,FreeLibrary,GetProcAddress,CallWindowProc,

======程序集1
           |  |
           |  |------ _启动子程序
           |  |
           |  |------ 模块_动态调用COM
           |  |
           |  |------ 取指针_对象
           |  |
           |  |------ 取指针_类厂
           |  |
           |  |------ A2W
           |  |
           |  |------ 取指针_整数
           |  |
           |  |------ 取指针_字节集
           |  |
           |  |------ 模块_调用子程序
           |  |
           |  |
======_IClassFactory
           |  |
           |  |------ IClassFactory_QueryInterface
           |  |
           |  |------ IClassFactory_AddRef
           |  |
           |  |------ IClassFactory_Release
           |  |
           |  |------ IClassFactory_CreateInstance
           |  |
           |  |------ IClassFactory_LockServer
           |  |
           |  |
======调用的Dll
           |  |
           |  |---[dll]------   CLSIDFromString
           |  |
           |  |---[dll]------   MultiByteToWideChar
           |  |
           |  |---[dll]------   _ClassFactory
           |  |
           |  |---[dll]------   _Int32
           |  |
           |  |---[dll]------   _Object
           |  |
           |  |---[dll]------   _bin
           |  |
           |  |---[dll]------   LoadLibrary
           |  |
           |  |---[dll]------   FreeLibrary
           |  |
           |  |---[dll]------   GetProcAddress
           |  |
           |  |---[dll]------   CallWindowProc

调用的DLL命令:

.DLL命令 CLSIDFromString, , "ole32.dll", "CLSIDFromString"
    .参数 lpsz, 字节集
    .参数 pclsid, 字节集, 传址

.DLL命令 MultiByteToWideChar, 整数型
    .参数 CodePage, 整数型
    .参数 dwFlags, 整数型
    .参数 lpMultiByteStr, 文本型, 传址
    .参数 cbMultiByte, 整数型
    .参数 lpWideCharStr, 字节集, 传址
    .参数 cchWideChar, 整数型

.DLL命令 _ClassFactory, 整数型, , "lstrcatA"
    .参数 a, IClassFactory, 传址
    .参数 b, 整数型, 传址

.DLL命令 _Int32, 整数型, , "lstrcatA"
    .参数 a, 整数型, 传址
    .参数 b, 整数型, 传址

.DLL命令 _Object, 整数型, , "lstrcatA"
    .参数 a, 对象, 传址
    .参数 b, 整数型, 传址

.DLL命令 _bin, 整数型, , "lstrcatA"
    .参数 a, 字节集, 传址
    .参数 b, 整数型, 传址

.DLL命令 LoadLibrary, 整数型, "kernel32", "LoadLibraryA"
    .参数 lpLibFileName, 文本型

.DLL命令 FreeLibrary, 整数型, "kernel32", "FreeLibrary"
    .参数 hLibModule, 整数型

.DLL命令 GetProcAddress, 整数型, "kernel32", "GetProcAddress"
    .参数 hModule, 整数型
    .参数 lpProcName, 文本型

.DLL命令 CallWindowProc, 整数型, "user32", "CallWindowProcA"
    .参数 lpPrevWndFunc, 字节集
    .参数 hwnd, 整数型
    .参数 msg, 整数型, 数组
    .参数 wParam, 整数型
    .参数 lParam, 逻辑型