易语言监听类的复制源码

系统结构:子程序1,复制回调,初始化_复制监听,复制监听,复制监听对象_QueryInterface,复制监听对象_AddRef,复制监听对象_Release,asm_整数加法,asm_写整型内存,取变量地址_对象,取变量地址_子程序指针,asm_读整型内存,asm_调用子程序_1参数_整数,HeapAlloc,GetProcessHeap,HeapFree,InterlockedIncrementByPtr,InterlockedDecrementByPtr,

======程序集1
           |  |
           |  |------ _启动子程序
           |  |
           |  |------ 子程序1
           |  |
           |  |------ 复制回调
           |  |
           |  |
======程序集2
           |  |
           |  |------ 初始化_复制监听
           |  |
           |  |------ 复制监听
           |  |
           |  |------ 复制监听对象_QueryInterface
           |  |
           |  |------ 复制监听对象_AddRef
           |  |
           |  |------ 复制监听对象_Release
           |  |
           |  |------ asm_整数加法
           |  |
           |  |------ asm_写整型内存
           |  |
           |  |------ 取变量地址_对象
           |  |
           |  |------ 取变量地址_子程序指针
           |  |
           |  |------ asm_读整型内存
           |  |
           |  |------ asm_调用子程序_1参数_整数
           |  |
           |  |
======类1
           |  |
           |  |------ _初始化
           |  |
           |  |------ _销毁
           |  |
           |  |
======类2
           |  |
           |  |------ _初始化
           |  |
           |  |------ _销毁
           |  |
           |  |
======调用的Dll
           |  |
           |  |---[dll]------   HeapAlloc
           |  |
           |  |---[dll]------   GetProcessHeap
           |  |
           |  |---[dll]------   HeapFree
           |  |
           |  |---[dll]------   InterlockedIncrementByPtr
           |  |
           |  |---[dll]------   InterlockedDecrementByPtr

调用的DLL命令:

.DLL命令 HeapAlloc, 整数型, "kernel32.dll", "HeapAlloc", , 从堆中分配内存
    .参数 hHeap, 整数型
    .参数 dwFlags, 整数型
    .参数 dwBytes, 整数型

.DLL命令 GetProcessHeap, 整数型, "kernel32.dll", "GetProcessHeap", , 获取调用过程堆句柄

.DLL命令 HeapFree, 整数型, "kernel32.dll", "HeapFree", , 释放从堆中分配的内存
    .参数 hHeap, 整数型
    .参数 dwFlags, 整数型
    .参数 lpMem, 整数型

.DLL命令 InterlockedIncrementByPtr, 整数型, "kernel32.dll", "InterlockedIncrement"
    .参数 lpAddend, 整数型

.DLL命令 InterlockedDecrementByPtr, 整数型, "kernel32.dll", "InterlockedDecrement"
    .参数 lpAddend, 整数型