【易IDE视觉库 插件】小助手插件集成工具箱和皮肤预览

阿婆

关于皮肤预览功能，初版见这篇帖子，存在不少问题 【易IDE视觉库 插件】Skin#窗口设计预览插件及源码分享

优化皮肤箱功能（解决初版问题如下）

1、皮肤过多在菜单显示不友好问题（使用窗口代替，增加了皮肤文类）
2、补全皮肤功能功能
3、优化Hook功能，初版中Hook非常粗暴，干扰了IDE正常功能，会造成一些闪退的情况（文末会重点说一下这点的解决方式）

新增工具箱功能（需要注意以下几点）

1、乱七八糟的程序放到指定目录，文件夹分好类，然后启动插件后会自动遍历exe文件
2、对于扫描出来的一些乱七八糟的exe(如 set.exe up.exe等等)可以右键加入黑名单，一劳永逸
3、分类纯粹依靠文件夹名的排序，手动排序暂未实现，视觉库对于tree view的拖拽功能没有重绘，凑活用吧


技术探讨

下面说下如何能在一个进程中精准Hook指定模块（dll）对API的调用，

拿皮肤预览功能来说， 我只需要Hook Skin_EL.dll 对 IsMenu 和 EnumThreadWindows 的调用，这样便可以实现不干扰IDE正常功能，Hook类原理参考了OD，对ESP地址进行判断调用者所属模块（虽然实现了对调用者的判断，奈何不懂汇编，代码中蹩脚的几句汇编指令纯粹个人不成熟的想法，有懂汇编的大佬希望能不吝赐教是否有更好的办法），多说无益，详细实现方法见代码：

  

窗口程序集名	保 留	保 留	备 注
InlineHook
变量名	类 型	数组	备 注
m_ProcAddress	整数型
m_OldProtect	整数型
m_Newdata	字节集
m_Olddata	字节集
m_DataLen	整数型
m_CurrentProcessId	整数型
m_IsHook	逻辑型
m_EspAddress	整数型

子程序名	返回值类型	公开	备 注
_初始化			当基于本类的对象被创建后，此方法会被自动调用

m_IsHook ＝ 假
m_CurrentProcessId ＝ GetCurrentProcessId ()

子程序名	返回值类型	公开	备 注
_销毁			当基于本类的对象被销毁前，此方法会被自动调用

UnInstall ()
释放内存 (m_EspAddress)

子程序名	返回值类型	公开	备 注
IsInstall	逻辑型		是否已安装HOOK

返回 (m_IsHook)

子程序名	返回值类型	公开	备 注
GetAddress	整数型		取原函数地址

返回 (m_ProcAddress)

子程序名	返回值类型	公开	备 注
GetCaller	文本型		返回调用者模块完整路径

变量名	类 型	静态	数组	备 注
hModule	整数型
sModule	文本型
mbi	MEMORY_BASIC_INFORMATION

' GetModuleHandleExA (位或 (#GET_MODULE_HANDLE_EX_FLAG_FROM_ADDRESS, #GET_MODULE_HANDLE_EX_FLAG_UNCHANGED_REFCOUNT), 到文本 (m_EspAddress), hModule)
如果真 (m_EspAddress ＞ 0)
如果真 (VirtualQuery (m_EspAddress, mbi, 28) ≠ 0)
hModule ＝ mbi.AllocationBase
sModule ＝ 取空白文本 (256)
如果真 (GetModuleFileNameA (hModule, sModule, 256) ＝ 0)
sModule ＝ “”


返回 (sModule)

子程序名	返回值类型	公开	备 注
Install	逻辑型		根据函数名安装APIHOOK
参数名	类 型	参考	可空	数组	备 注
sModuleName	文本型				如：user32.dll
sProcName	文本型				如：FindWindowA
hCallback	子程序指针				如：&myFindWindowA

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

如果真 (m_IsHook)
返回 (真)
hMod ＝ GetModuleHandleA (sModuleName)  ' 取模块句柄
如果真 (hMod ＝ 0)
hMod ＝ LoadLibraryA (sModuleName)

如果真 (hMod ≠ 0)
hAddress ＝ GetProcAddress (hMod, sProcName)
返回 (InstallAddress (hAddress, hCallback))
返回 (假)

子程序名	返回值类型	公开	备 注
InstallAddress	逻辑型		根据函数地址安装APIHOOK
参数名	类 型	参考	可空	数组	备 注
hAddress	整数型
hCallback	子程序指针				如：&myFindWindowA

如果真 (m_IsHook)
返回 (真)

如果真 (IsBadCodePtr (hAddress) ＝ 假)
' m_Newdata ＝ { 184 } ＋ 到字节集 (到整数 (hCallback)) ＋ { 255, 224 }
' mov eax, hCallback
' jmp eax
m_Newdata ＝ { 139, 4, 36, 163 } ＋ 到字节集 (取变量数据地址 (m_EspAddress)) ＋ { 184 } ＋ 到字节集 (到整数 (hCallback)) ＋ { 255, 224 }
' mov eax, dword ptr [esp]
' mov dword ptr [address], eax
' mov eax, hCallback
' jmp eax
m_DataLen ＝ 取字节集长度 (m_Newdata)
如果真 (VirtualProtect (hAddress, m_DataLen, 64, m_OldProtect))  ' 修改内存属性
m_Olddata ＝ 指针到字节集 (hAddress, m_DataLen)
m_ProcAddress ＝ hAddress
写到内存 (m_Newdata, m_ProcAddress, m_DataLen)
m_IsHook ＝ 真

返回 (m_IsHook)

子程序名	返回值类型	公开	备 注
Pause	逻辑型		停止HOOKAPI

如果 (m_IsHook)
写到内存 (m_Olddata, m_ProcAddress, m_DataLen)
返回 (真)
返回 (假)

子程序名	返回值类型	公开	备 注
Resume	逻辑型		开始HOOKAPI

如果 (m_IsHook)
写到内存 (m_Newdata, m_ProcAddress, m_DataLen)
返回 (真)
返回 (假)

子程序名	返回值类型	公开	备 注
UnInstall	逻辑型		卸载APIHOOK

如果 (m_IsHook)
写到内存 (m_Olddata, m_ProcAddress, m_DataLen)
VirtualProtect (m_ProcAddress, m_DataLen, m_OldProtect, 0)  ' 修改回原内存保护值
连续赋值 (0, m_ProcAddress, m_OldProtect, m_DataLen)
连续赋值 ({  }, m_Newdata, m_Olddata)
m_IsHook ＝ 假
返回 (真)
返回 (假)

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

.版本 2<br /> .支持库 spec<br /> <br /> .程序集 InlineHook<br /> .程序集变量 m_ProcAddress, 整数型<br /> .程序集变量 m_OldProtect, 整数型<br /> .程序集变量 m_Newdata, 字节集<br /> .程序集变量 m_Olddata, 字节集<br /> .程序集变量 m_DataLen, 整数型<br /> .程序集变量 m_CurrentProcessId, 整数型<br /> .程序集变量 m_IsHook, 逻辑型<br /> .程序集变量 m_EspAddress, 整数型<br /> <br /> .子程序 _初始化, , , 当基于本类的对象被创建后，此方法会被自动调用<br /> <br /> m_IsHook ＝ 假<br /> m_CurrentProcessId ＝ GetCurrentProcessId ()<br /> <br /> <br /> .子程序 _销毁, , , 当基于本类的对象被销毁前，此方法会被自动调用<br /> <br /> UnInstall ()<br /> 释放内存 (m_EspAddress)<br /> <br /> <br /> .子程序 IsInstall, 逻辑型, 公开, 是否已安装HOOK<br /> <br /> 返回 (m_IsHook)<br /> <br /> <br /> .子程序 GetAddress, 整数型, 公开, 取原函数地址<br /> <br /> 返回 (m_ProcAddress)<br /> <br /> <br /> .子程序 GetCaller, 文本型, 公开, 返回调用者模块完整路径<br /> .局部变量 hModule, 整数型<br /> .局部变量 sModule, 文本型<br /> .局部变量 mbi, MEMORY_BASIC_INFORMATION<br /> <br /> ' GetModuleHandleExA (位或 (#GET_MODULE_HANDLE_EX_FLAG_FROM_ADDRESS, #GET_MODULE_HANDLE_EX_FLAG_UNCHANGED_REFCOUNT), 到文本 (m_EspAddress), hModule)<br /> .如果真 (m_EspAddress ＞ 0)<br />     .如果真 (VirtualQuery (m_EspAddress, mbi, 28) ≠ 0)<br />         hModule ＝ mbi.AllocationBase<br />         sModule ＝ 取空白文本 (256)<br />         .如果真 (GetModuleFileNameA (hModule, sModule, 256) ＝ 0)<br />             sModule ＝ “”<br />         .如果真结束<br /> <br />     .如果真结束<br /> <br /> .如果真结束<br /> 返回 (sModule)<br /> <br /> <br /> .子程序 Install, 逻辑型, 公开, 根据函数名安装APIHOOK<br /> .参数 sModuleName, 文本型, , 如：user32.dll<br /> .参数 sProcName, 文本型, , 如：FindWindowA<br /> .参数 hCallback, 子程序指针, , 如：&myFindWindowA<br /> .局部变量 hMod, 整数型<br /> .局部变量 hAddress, 整数型<br /> <br /> .如果真 (m_IsHook)<br />     返回 (真)<br /> .如果真结束<br /> hMod ＝ GetModuleHandleA (sModuleName)  ' 取模块句柄<br /> .如果真 (hMod ＝ 0)<br />     hMod ＝ LoadLibraryA (sModuleName)<br /> .如果真结束<br /> <br /> .如果真 (hMod ≠ 0)<br />     hAddress ＝ GetProcAddress (hMod, sProcName)<br />     返回 (InstallAddress (hAddress, hCallback))<br /> .如果真结束<br /> 返回 (假)<br /> <br /> <br /> .子程序 InstallAddress, 逻辑型, 公开, 根据函数地址安装APIHOOK<br /> .参数 hAddress, 整数型<br /> .参数 hCallback, 子程序指针, , 如：&myFindWindowA<br /> <br /> .如果真 (m_IsHook)<br />     返回 (真)<br /> .如果真结束<br /> <br /> .如果真 (IsBadCodePtr (hAddress) ＝ 假)<br />     ' m_Newdata ＝ { 184 } ＋ 到字节集 (到整数 (hCallback)) ＋ { 255, 224 }<br />     ' mov eax, hCallback<br />     ' jmp eax<br />     m_Newdata ＝ { 139, 4, 36, 163 } ＋ 到字节集 (取变量数据地址 (m_EspAddress)) ＋ { 184 } ＋ 到字节集 (到整数 (hCallback)) ＋ { 255, 224 }<br />     ' mov eax, dword ptr [esp]<br />     ' mov dword ptr [address], eax<br />     ' mov eax, hCallback<br />     ' jmp eax<br />     m_DataLen ＝ 取字节集长度 (m_Newdata)<br />     .如果真 (VirtualProtect (hAddress, m_DataLen, 64, m_OldProtect))  ' 修改内存属性<br />         m_Olddata ＝ 指针到字节集 (hAddress, m_DataLen)<br />         m_ProcAddress ＝ hAddress<br />         写到内存 (m_Newdata, m_ProcAddress, m_DataLen)<br />         m_IsHook ＝ 真<br />     .如果真结束<br /> <br /> .如果真结束<br /> 返回 (m_IsHook)<br /> <br /> <br /> .子程序 Pause, 逻辑型, 公开, 停止HOOKAPI<br /> <br /> .如果 (m_IsHook)<br />     写到内存 (m_Olddata, m_ProcAddress, m_DataLen)<br />     返回 (真)<br /> .否则<br />     返回 (假)<br /> .如果结束<br /> <br /> <br /> .子程序 Resume, 逻辑型, 公开, 开始HOOKAPI<br /> <br /> .如果 (m_IsHook)<br />     写到内存 (m_Newdata, m_ProcAddress, m_DataLen)<br />     返回 (真)<br /> .否则<br />     返回 (假)<br /> .如果结束<br /> <br /> <br /> .子程序 UnInstall, 逻辑型, 公开, 卸载APIHOOK<br /> <br /> .如果 (m_IsHook)<br />     写到内存 (m_Olddata, m_ProcAddress, m_DataLen)<br />     VirtualProtect (m_ProcAddress, m_DataLen, m_OldProtect, 0)  ' 修改回原内存保护值<br />     连续赋值 (0, m_ProcAddress, m_OldProtect, m_DataLen)<br />     连续赋值 ({  }, m_Newdata, m_Olddata)<br />     m_IsHook ＝ 假<br />     返回 (真)<br /> .否则<br />     返回 (假)<br /> .如果结束

插件安装方法


1、安装IDE视觉库
2、解压压缩包至易语言安装目录
3、放置皮肤文件至 易语言安装目录\assistant\skins
4、放置程序文件至 易语言安装目录\assistant\tools


源码及插件下载

1. iDraw_Assistant.dll
   
2. iDraw_Assistant.e

复制代码

回复可见
iDraw_Assistant.zip (689.53 KB, 下载次数: 504)

2021-9-10 19:18 上传

点击文件名下载附件












补充内容 (2021-11-7 22:24):
更新：修复一处BUG：IDraw_UnInterface函数内误用iDraw_img_destroy销毁图片导致的崩溃问题，应该使用iDraw_FreeResourceReturn

补充内容 (2021-11-7 22:28):
上面说的那个BUG虽然没有任何提示，但是会导致IDE修改的系统配置不会保存，成为万恶之源，好气啊，最新源码见置顶楼

阿婆

更新：修复一处BUG：IDraw_UnInterface函数内误用iDraw_img_destroy销毁图片导致的崩溃问题，应该使用iDraw_FreeResourceReturn
上面说的那个BUG虽然没有任何提示，但是会导致IDE修改的系统配置不会保存，成为万恶之源，好气啊，最新源码见置顶楼
请自行编译然后替换插件！！！！！！！！！！！！



iDraw_Assistant.e (317 KB, 下载次数: 164)

2021-11-7 22:31 上传

点击文件名下载附件

669665194

学习学习

xiaoxiao2

感谢分享

fenglin666

感谢分享，很给力！~666666666666

hyhyyt

感谢分享，很给力！~

hyhyyt

感谢分享，很给力！~

有理想猪猪

来看看 别人的皮肤不会用  试试大佬你的

hao198993

aiaixiaoye8

支持开源~！感谢分享

Z2023

sadamu999 发表于 2022-12-23 23:27
好象只能预览，调试界面时不行，编译肯定更不行了，或者我不会用？如果所见即所得，那这个插件还是不错的！ ...

那有啥卵用~

zhangchao123

上的胜多负少大师傅地方