易语言HOOK API，程序奔溃以及数组下标错误

794229345

一共用了3个模块：精益模块9.2.0、乐易模块8.1、魔鬼作坊模块V8.5

HOOK的是：LoadLibraryA这个API

编译的格式为winspool.drv劫持补丁。

其中，精益模块提示数组下标错误，乐易模块程序直接卡死然后奔溃，魔鬼作坊用APIhook增强版拦截不到！

只有用魔鬼作坊的api_hook才能正常拦截，想知道这是为啥，写法不对还是什么情况？？？

a513021713

.....不应该是取到模块基址后 直接卸载HOOK啊·然后返回

a513021713

Api_Hook.暂停 (“kernel32.dll”, “LoadLibraryA”)
.如果真 (寻找文本 (参数一, “tt.dll”, , 假) ≠ -1)
    ret ＝ LoadLibraryA (参数一)
    Moduleaddr ＝ GetModuleHandleA (“tt.dll”)
    MessageBoxA (0, 取十六进制文本 (Moduleaddr), “”, 32)
    Api_Hook.卸载 (“kernel32.dll”, “LoadLibraryA”)
    返回 (ret)
.如果真结束
Api_Hook.继续 (“kernel32.dll”, “LoadLibraryA”)
ret ＝ LoadLibraryA (参数一)
返回 (ret)

揰掵佲

乐~易的不需要自己暂停 可以直接调用原函数
理论上说,不管是DLL还是exe 这个都是通用的

  

子程序名	返回值类型	公开	备 注
_按钮1_被单击

调试输出 (十到十六 (LoadLibrary (“C:\Users\Administrator\Desktop\tt.dll”)))

子程序名	返回值类型	公开	备 注
__启动窗口_创建完毕

APIHOOK.安装Hook_API_Name (“kernel32”, “LoadLibraryA”, 到整数 (&MyLoadLibraryA), , , )

子程序名	返回值类型	公开	备 注
MyLoadLibraryA	整数型
参数名	类 型	参考	可空	数组	备 注
lpLibFileName	文本型

变量名	类 型	静态	数组	备 注
ret	整数型

ret ＝ APIHOOK.调用原函数2 (lpLibFileName)
如果真 (寻找文本 (lpLibFileName, “tt.dll”, , 假) ≠ -1)
信息框 (“模块基址:” ＋ 十到十六 (ret), 0, , )
返回 (ret)

i支持库列表	支持库注释
spec	特殊功能支持库

.版本 2<br /> .支持库 spec<br /> <br /> .子程序 _按钮1_被单击<br /> <br /> 调试输出 (十到十六 (LoadLibrary (“C:\Users\Administrator\Desktop\tt.dll”)))<br /> <br /> <br /> .子程序 __启动窗口_创建完毕<br /> <br /> APIHOOK.安装Hook_API_Name (“kernel32”, “LoadLibraryA”, 到整数 (&MyLoadLibraryA), , , )<br /> <br /> <br /> <br /> <br /> .子程序 MyLoadLibraryA, 整数型<br /> .参数 lpLibFileName, 文本型<br /> .局部变量 ret, 整数型<br /> <br /> ret ＝ APIHOOK.调用原函数2 (lpLibFileName)<br /> <br /> .如果真 (寻找文本 (lpLibFileName, “tt.dll”, , 假) ≠ -1)<br />     信息框 (“模块基址:” ＋ 十到十六 (ret), 0, , )<br /> .如果真结束<br /> 返回 (ret)

794229345

LeyBc 发表于 2021-5-28 09:39
乐~易的不需要自己暂停 可以直接调用原函数
理论上说,不管是DLL还是exe 这个都是通用的

不行，我直接复制代码编译了个DLL然后注入就提示这个

794229345

多插入了一个没用的图，还不能删我吐了

794229345

a513021713 发表于 2021-5-28 09:12
Api_Hook.暂停 (“kernel32.dll”, “LoadLibraryA”)
.如果真 (寻找文本 (参数一, “tt.dll”, , 假) ≠  ...

这个也试了，编译成dll文件然后注入会奔溃的