|
.程序集变量 dll, 整数型
.程序集变量 _启动子程序, 整数型
.版本 2
.子程序 _启动子程序, 整数型, 公开
初始化DLL ()
返回 (0)
.子程序 Dll入口函数, 逻辑型, 公开
.参数 DLL实例句柄, 整数型
.参数 调用类型, 整数型
.参数 保留, 整数型
.判断开始 (调用类型 = 1)
返回 (初始化DLL ())
.判断 (调用类型 = 0)
释放DLL ()
.默认
.判断结束
返回 (真)
.子程序 初始化DLL, 逻辑型
dll = LoadLibrary (取运行目录()+"\HJDLL.dll")
.如果真 (dll = 0)
返回 (假)
.如果真结束
_启动子程序 = GetProcAddress (dll, "_启动子程序")
.如果真 (_启动子程序 = 0)
FreeLibrary (dll)
返回 (假)
.如果真结束
返回 (真)
.子程序 释放DLL
.如果真 (dll ≠ 0)
FreeLibrary (dll)
.如果真结束
.子程序 Jmp, 整数型
.参数 地址, 整数型
.参数 参数一, 整数型, 可空
.参数 参数二, 整数型, 可空
.参数 参数三, 整数型, 可空
.参数 参数四, 整数型, 可空
.参数 参数五, 整数型, 可空
.参数 参数六, 整数型, 可空
.参数 参数七, 整数型, 可空
.参数 参数八, 整数型, 可空
.参数 参数九, 整数型, 可空
.参数 参数十, 整数型, 可空
.参数 参数十一, 整数型, 可空
.参数 参数十二, 整数型, 可空
.参数 参数十三, 整数型, 可空
.参数 参数十四, 整数型, 可空
返回 (_Jmp (地址, 参数一, 参数二, 参数三, 参数四, 参数五, 参数六, 参数七, 参数八, 参数九, 参数十, 参数十一, 参数十二, 参数十三, 参数十四))
.子程序 _Jmp, 整数型
.参数 函数指针, 整数型
.参数 参数一, 整数型
.参数 参数二, 整数型
.参数 参数三, 整数型
.参数 参数四, 整数型
.参数 参数五, 整数型
.参数 参数六, 整数型
.参数 参数七, 整数型
.参数 参数八, 整数型
.参数 参数九, 整数型
.参数 参数十, 整数型
.参数 参数十一, 整数型
.参数 参数十二, 整数型
.参数 参数十三, 整数型
.参数 参数十四, 整数型
置入代码 ({ 201, 88, 135, 4, 36, 255, 224 })
返回 (0)
.子程序 _启动子程序, 整数型, 公开
返回 (Jmp (_启动子程序))
.DLL命令 LoadLibrary, 整数型, "kernel32.dll", "LoadLibraryA"
.参数 lpLibFileName, 文本型
.DLL命令 FreeLibrary, 整数型, "kernel32.dll", "FreeLibrary"
.参数 hLibModule, 整数型
.DLL命令 GetProcAddress, 整数型, "kernel32.dll", "GetProcAddress"
.参数 hModule, 整数型
.参数 lpProcName, 文本型
|
|