YY自定义颜色修改工具源码

YY自定义颜色修改工具源码，调用了精易模块 5.13。

.版本 2
.支持库 EThread
.支持库 shell

.程序集 窗口程序集_启动窗口
.程序集变量 当前选择, 整数型, , , 1.公屏 2.好友 3.广播
.程序集变量 XML文件路径_channel, 文本型
.程序集变量 XML文件路径_im, 文本型
.程序集变量 字体列表, 文本型, , "0"

.子程序 __启动窗口_创建完毕

启动线程 (&查YY号, , )

.子程序 _画板1_鼠标左键被按下, 逻辑型
.参数 横向位置, 整数型
.参数 纵向位置, 整数型
.参数 功能键状态, 整数型
.局部变量 RGB, 字节集

RGB ＝ 到字节集 (画板1.取点 (横向位置, 纵向位置))
编辑框_HEX.内容 ＝ RGB转十六进制 (到文本 (RGB [1]), 到文本 (RGB [2]), 到文本 (RGB [3]))
编辑框_HEX.文本颜色 ＝ 画板1.取点 (横向位置, 纵向位置)

.子程序 修改颜色
.参数 类型, 整数型, , 1.公屏 2.好友 3.广播
.参数 路径, 文本型
.局部变量 XML, XML树类
.局部变量 节点, 文本型
.局部变量 根节点, 文本型

.如果真 (文件_是否存在 (路径) ≠ 真)
    信息框 (“请选择需要更改颜色的YY号”, 0, , )
    返回 ()
.如果真结束
.如果真 (编辑框_HEX.内容 ＝ “”)
    信息框 (“颜色还没有选择哦！”, 0, , )
    返回 ()
.如果真结束

.如果真 (类型 ＝ 1)
    节点 ＝ “channel/textchat/font/color”
.如果真结束
.如果真 (类型 ＝ 2)
    节点 ＝ “im/textchat/font/color”
.如果真结束
.如果真 (类型 ＝ 3)
    节点 ＝ “channel/broadcast/font/color”
.如果真结束

根节点 ＝ 文本_取左边 (节点, “/”, 1, )
XML.导入文件 (路径)
.如果真 (XML.修改节点值 (节点, “ff” ＋ 到小写 (编辑框_HEX.内容)) ＝ 真)  ' 公屏字体颜色
    XML.导出到文件 (路径)
    XML.释放 ()
    返回 ()
.如果真结束
.如果真 (创建节点 (根节点, 类型, XML))
    XML.修改节点值 (节点, “ff” ＋ 到小写 (编辑框_HEX.内容))
    XML.导出到文件 (路径)
    XML.释放 ()
    返回 ()
.如果真结束
信息框 (“修改失败，程序异常！”, 0, , )

.子程序 _编辑框_HEX_内容被改变
.局部变量 R, 整数型
.局部变量 G, 整数型
.局部变量 B, 整数型
.局部变量 RGB, 文本型

RGB ＝ 子文本替换 (编辑框_HEX.内容, “#”, “”, , , 真)
十六进制转RGB (RGB, R, G, B)
编辑框_HEX.文本颜色 ＝ 取颜色值 (R, G, B)

.子程序 _按钮_公屏打字_被单击

' 修改字体 (1, XML文件路径_channel)
修改颜色 (1, XML文件路径_channel)

.子程序 _按钮_好友窗口_被单击

' 修改颜色 (2, XML文件路径_im)

.子程序 _按钮_频道广播_被单击

修改颜色 (3, XML文件路径_channel)

.子程序 _YY号列表_列表项被选择

.如果真 (YY号列表.取项目文本 (YY号列表.现行选中项) ≠ “”)
    XML文件路径_channel ＝ 取特定目录 (#程序数据目录) ＋ “duowan\yy\imgroup\” ＋ 查找到的文件夹 [YY号列表.现行选中项 ＋ 1] ＋ “channel.xml”
    XML文件路径_im ＝ 取特定目录 (#程序数据目录) ＋ “duowan\yy\imgroup\” ＋ 查找到的文件夹 [YY号列表.现行选中项 ＋ 1] ＋ “im.xml”
.如果真结束

@小呀小百百