易语言超类化源码

系统结构:超类化_安装,超类化_卸载,超类化_OnCreateWindowExA,超类化_初始化新类,超类化_OnHexEditProc,安装,开始,停止,卸载,取原回调函数,GetProcAddress,GetModuleHandle,VirtualProtect,GetClassInfoEx,CallWindowProc,RegisterClassEx,CreateWindowExA,

======Main
           |  |
           |  |------ _启动子程序
           |  |
           |  |------ 超类化_安装
           |  |
           |  |------ 超类化_卸载
           |  |
           |  |------ 超类化_OnCreateWindowExA
           |  |
           |  |------ 超类化_初始化新类
           |  |
           |  |------ 超类化_OnHexEditProc
           |  |
           |  |
======APIHook
           |  |
           |  |------ _初始化
           |  |
           |  |------ _销毁
           |  |
           |  |------ 安装
           |  |
           |  |------ 开始
           |  |
           |  |------ 停止
           |  |
           |  |------ 卸载
           |  |
           |  |------ 取原回调函数
           |  |
           |  |
======调用的Dll
           |  |
           |  |---[dll]------   GetProcAddress
           |  |
           |  |---[dll]------   GetModuleHandle
           |  |
           |  |---[dll]------   VirtualProtect
           |  |
           |  |---[dll]------   GetClassInfoEx
           |  |
           |  |---[dll]------   CallWindowProc
           |  |
           |  |---[dll]------   RegisterClassEx
           |  |
           |  |---[dll]------   CreateWindowExA

调用的DLL命令:

.DLL命令 GetProcAddress, 整数型, "kernel32", "GetProcAddress", , 返回函数地址
    .参数 hModule, 整数型
    .参数 lpProcName, 文本型

.DLL命令 GetModuleHandle, 整数型, "kernel32", "GetModuleHandleA", , 获取一个应用程序或动态链接库的模块句柄  如执行成功成功，则返回模块句柄。零表示失败。会设置GetLastError
    .参数 lpModuleName, 文本型, , 指定模块名，这通常是与模块的文件名相同的一个名字。例如，NOTEPAD.EXE程序的模块文件名就叫作NOTEPAD;

.DLL命令 VirtualProtect, 整数型, "kernel32.dll", "VirtualProtect"
    .参数 lpAddress, 整数型
    .参数 dwSize, 整数型
    .参数 flNewProtect, 整数型
    .参数 lpflOldProtect, 整数型, 传址

.DLL命令 GetClassInfoEx, 整数型, "user32.dll", "GetClassInfoExA"
    .参数 hinstance, 整数型
    .参数 lpcstr, 文本型
    .参数 lpwndclassexa, WNDCLASSEX

.DLL命令 CallWindowProc, 整数型, "user32", "CallWindowProcA", , 将消息传答窗口函数
    .参数 lpPrevWndFunc, 整数型
    .参数 hwnd, 整数型
    .参数 msg, 整数型
    .参数 wParam, 整数型
    .参数 lParam, 整数型

.DLL命令 RegisterClassEx, 整数型, "user32", "RegisterClassExA"
    .参数 pcWndClassEx, WNDCLASSEX

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