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”
.如果真结束