易语言 彩虹括号插件

神女软件定制

目前用了4种颜色，看起来显眼一点吧：clr ＝ { #红色, #绿色, #蓝色, #嫩黄 }，美工不行，这颜色怎么配都不好看，谁愿意改自己改了随便发，完全是出于无聊写这个
因为昨天有人说到：
编译好的插件： 123.rar (872.34 KB, 下载次数: 65)

2023-10-9 17:37 上传

点击文件名下载附件

原理：hook TextOutA，分析括号信息，上色

  

窗口程序集名	保 留	保 留	备 注
入口程序集
变量名	类 型	数组	备 注
hook	类_InlineHook
clr	整数型	4

子程序名	返回值类型	公开	备 注
_启动子程序	整数型

ET.添加事件处理 ( #事件标识_插件启用, &事件_插件启用)
ET.添加事件处理 ( #事件标识_插件停用, &事件_插件停用)
返回 (0)

子程序名	返回值类型	公开	备 注
插件信息	整数型

返回 (生成插件信息 (“插件名称”, “插件备注”, “1.0”, “插件作者”, , ))

子程序名	返回值类型	公开	备 注
事件_插件启用

hook.安装HOOK (-1, 地址_取API地址 (“Gdi32.dll”, “TextOutA”), &TextOutA, )
clr ＝ { #红色, #绿色, #蓝色, #嫩黄 }

子程序名	返回值类型	公开	备 注
事件_插件停用

hook.卸载HOOK ()

子程序名	返回值类型	公开	备 注
TextOutA	整数型
参数名	类 型	参考	可空	数组	备 注
hdc
x
y
lpString	文本型
nCount

变量名	类 型	静态	数组	备 注
i	整数型
c	整数型
flagx	整数型
ret	整数型
ff	逻辑型
sz	Size

hook.暂停HOOK ()
如果 (lpString ≈ “ (” 或 lpString ≈ “(” 或 lpString ≈ “)”)
变量循环首 (取文本长度 (lpString), 1, -1, i)  ' (40 )41
c ＝ 取代码 (lpString, i)
判断 (c ＝ 40)
flagx ＝ flagx － 1
判断 (c ＝ 41)
flagx ＝ flagx ＋ 1



变量循环尾 ()
sn_SaveDC (hdc)
判断 (flagx ＝ 0)
sn_SetTextColor (hdc, clr [1])
判断 (flagx ＞ 0)
如果 (c ＝ 40)
sn_SetTextColor (hdc, clr [flagx ％ 4 ＋ 1])
sn_SetTextColor (hdc, clr [ (flagx － 1) ％ 4 ＋ 1])



如果 (nCount ≥ 2 且 (取代码 (lpString, 2) ＝ 40 或 取代码 (lpString, 2) ＝ 41))  ' 如果后续还跟着括号，需要细分带颜色绘制
ff ＝ 真
ret ＝ sn_TextOut (hdc, x, y, lpString, 1)
ret ＝ sn_TextOut (hdc, x, y, lpString, nCount)
sn_RestoreDC (hdc, -1)ret ＝ sn_TextOut (hdc, x, y, lpString, nCount)
hook.继续HOOK ()
如果真 (ff)
sn_GetTextExtentPoint32 (hdc, lpString, 1, sz)
sn_TextOut (hdc, x ＋ sz.cx, y, 指针到文本 (取变量数据地址 (lpString) ＋ 1), nCount － 1)
返回 (ret)

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

.版本 2<br /> .支持库 spec<br /> <br /> .程序集 入口程序集<br /> .程序集变量 hook, 类_InlineHook<br /> .程序集变量 clr, 整数型, , "4"<br /> <br /> .子程序 _启动子程序, 整数型<br /> <br /> ET.添加事件处理 (#事件标识_插件启用, &事件_插件启用)<br /> ET.添加事件处理 (#事件标识_插件停用, &事件_插件停用)<br /> 返回 (0)<br /> <br /> .子程序 插件信息, 整数型, 公开<br /> <br /> 返回 (生成插件信息 (“插件名称”, “插件备注”, “1.0”, “插件作者”, , ))<br /> <br /> .子程序 事件_插件启用<br /> <br /> hook.安装HOOK (-1, 地址_取API地址 (“Gdi32.dll”, “TextOutA”), &TextOutA, )<br /> clr ＝ { #红色, #绿色, #蓝色, #嫩黄 }<br /> <br /> .子程序 事件_插件停用<br /> <br /> hook.卸载HOOK ()<br /> <br /> .子程序 TextOutA, 整数型<br /> .参数 hdc<br /> .参数 x<br /> .参数 y<br /> .参数 lpString, 文本型<br /> .参数 nCount<br /> .局部变量 i, 整数型<br /> .局部变量 c, 整数型<br /> .局部变量 flagx, 整数型<br /> .局部变量 ret, 整数型<br /> .局部变量 ff, 逻辑型<br /> .局部变量 sz, Size<br /> <br /> hook.暂停HOOK ()<br /> .如果 (lpString ≈ “ (” 或 lpString ≈ “(” 或 lpString ≈ “)”)<br />     .变量循环首 (取文本长度 (lpString), 1, -1, i)  ' (40 )41<br />         c ＝ 取代码 (lpString, i)<br />         .判断开始 (c ＝ 40)<br />             flagx ＝ flagx － 1<br />         .判断 (c ＝ 41)<br />             flagx ＝ flagx ＋ 1<br />         .默认<br /> <br />         .判断结束<br /> <br />     .变量循环尾 ()<br />     sn_SaveDC (hdc)<br />     .判断开始 (flagx ＝ 0)<br />         sn_SetTextColor (hdc, clr [1])<br />     .判断 (flagx ＞ 0)<br />         .如果 (c ＝ 40)<br />             sn_SetTextColor (hdc, clr [flagx ％ 4 ＋ 1])<br />         .否则<br />             sn_SetTextColor (hdc, clr [(flagx － 1) ％ 4 ＋ 1])<br />         .如果结束<br /> <br />     .默认<br /> <br />     .判断结束<br />     .如果 (nCount ≥ 2 且 (取代码 (lpString, 2) ＝ 40 或 取代码 (lpString, 2) ＝ 41))  ' 如果后续还跟着括号，需要细分带颜色绘制<br />         ff ＝ 真<br />         ret ＝ sn_TextOut (hdc, x, y, lpString, 1)<br />     .否则<br />         ret ＝ sn_TextOut (hdc, x, y, lpString, nCount)<br />     .如果结束<br />     sn_RestoreDC (hdc, -1)<br /> .否则<br />     ret ＝ sn_TextOut (hdc, x, y, lpString, nCount)<br /> .如果结束<br /> hook.继续HOOK ()<br /> .如果真 (ff)<br />     sn_GetTextExtentPoint32 (hdc, lpString, 1, sz)<br />     sn_TextOut (hdc, x ＋ sz.cx, y, 指针到文本 (取变量数据地址 (lpString) ＋ 1), nCount － 1)<br /> .如果真结束<br /> 返回 (ret)

源码： 彩虹括号.e (982.83 KB, 下载次数: 66)

2023-10-9 17:37 上传

点击文件名下载附件

dulang

看着挺好玩的

wolfpack

不错啊。。。。。。。。。。。。

九霜

有时候第一层括号会变成白色

九霜

感谢分享，感觉好分辨了一点了

b8008

怎么用啊

鹿鸣没烦恼

需要的模块在哪里可以下载呀楼主

GongGong

感谢分享支持

GongGong

感谢分享支持

year1970

感谢大神分享！