递归火山软件开发平台

标题: [模块源码]火山视窗内存加载64位皮肤模块源码 [打印本页]

作者: 乐易论坛    时间: 2025-1-3 18:51
标题: [模块源码]火山视窗内存加载64位皮肤模块源码
本帖最后由 乐易论坛 于 2025-1-4 13:08 编辑
从这里知道的网站
分享一个支持火山视窗64位的皮肤库
https://bbs.voldp.com/thread-23708-1-1.html
(出处: 递归火山软件开发平台)

原帖 火山视窗64位皮肤模块源码
https://www.leybc.cn/thread-345-1-1.html
(出处: 火山编程教程培训交流论坛-乐易网络)

演示效果 也6款皮肤
(, 下载次数: 259) (, 下载次数: 253)
(, 下载次数: 266)
(, 下载次数: 253)
(, 下载次数: 259)
(, 下载次数: 249)
采用内存加载的方式 不释放DLL
内存加载的代码开源 https://bbs.voldp.com/thread-23681-1-1.html
代码开源
  1. <火山程序 类型 = "通常" 版本 = 1 />

  2. 类 类_皮肤X64 <公开 注释 = "一件换肤,目前支持的比较少,采用的是内存加载的方式" 折叠 @输出名 = "L_SkinX64" @视窗.需求目标平台 = @"64位平台">
  3. {
  4.     变量 m_001 <类型 = 字节集类 @输出名 = "m_001" @视窗.值文件 = "L_SkinX64\\001.dll">
  5.     变量 m_002 <类型 = 字节集类 @输出名 = "m_002" @视窗.值文件 = "L_SkinX64\\002.dll">
  6.     变量 m_003 <类型 = 字节集类 @输出名 = "m_003" @视窗.值文件 = "L_SkinX64\\003.dll">
  7.     变量 m_009 <类型 = 字节集类 @输出名 = "m_009" @视窗.值文件 = "L_SkinX64\\009.dll">
  8.     变量 m_011 <类型 = 字节集类 @输出名 = "m_011" @视窗.值文件 = "L_SkinX64\\011.dll">
  9.     变量 m_012 <类型 = 字节集类 @输出名 = "m_021" @视窗.值文件 = "L_SkinX64\\012.dll">
  10.     变量 m_SkinLoader <类型 = 类_PeLoader @输出名 = "m_SkinLoader">

  11.     方法 加载皮肤 <公开 类型 = 文本型 注释 = "加载皮肤进行初始化,窗口打开之前调用效果最好" 返回值注释 = "执行成功返回空 失败返回错误文本" @输出名 = "SetSkin">
  12.     参数 参_编号 <类型 = 整数 注释 = "编号从0~5" @输出名 = "iIndex" @默认值 = 0>
  13.     {
  14.         变量 局_皮肤文件 <类型 = 字节集类 @输出名 = "bSkinData">
  15.         分支判断 (参_编号)
  16.         {
  17.             分支 (1)
  18.             {
  19.                 局_皮肤文件 = m_002
  20.             }
  21.             分支 (2)
  22.             {
  23.                 局_皮肤文件 = m_003
  24.             }
  25.             分支 (3)
  26.             {
  27.                 局_皮肤文件 = m_009
  28.             }
  29.             分支 (4)
  30.             {
  31.                 局_皮肤文件 = m_011
  32.             }
  33.             分支 (5)
  34.             {
  35.                 局_皮肤文件 = m_012
  36.             }
  37.             默认分支 ()
  38.             {
  39.                 局_皮肤文件 = m_001
  40.             }
  41.         }
  42.         如果 (m_SkinLoader.加载 (局_皮肤文件) == 假)
  43.         {
  44.             返回 ("[加载皮肤]:加载皮肤DLL失败")
  45.         }
  46.         变量 JD_Load <类型 = 变整数>
  47.         JD_Load = m_SkinLoader.取函数 ("JD_Load")
  48.         如果 (JD_Load <= 0)
  49.         {
  50.             m_SkinLoader.释放 ()
  51.             返回 ("[加载皮肤]:取函数地址失败")
  52.         }
  53.         程序_Call_无参数 (JD_Load)
  54.         返回 ("")
  55.     }

  56.     方法 是否禁用皮肤 <公开 类型 = 文本型 注释 = "开启或停用皮肤效果" 返回值注释 = "执行成功返回空 失败返回错误文本" @输出名 = "isSetSkin">
  57.     参数 参_是否开启 <类型 = 逻辑型 注释 = "真=开启,假=关闭" @默认值 = 真 @输出名 = "BSkinShow">
  58.     {
  59.         变量 JD_Skin <类型 = 变整数>
  60.         JD_Skin = m_SkinLoader.取函数 ("JD_Skin")
  61.         如果 (JD_Skin <= 0)
  62.         {
  63.             返回 ("[是否禁用皮肤]:取函数地址失败")
  64.         }
  65.         程序_Call (JD_Skin, 参_是否开启) //<span style="background-color: rgb(255, 255, 255);">程序Call 就是调用静态方法</span>
  66.         返回 ("")

  67.     }

  68.     方法 类_清理
  69.     {
  70.         m_SkinLoader.释放 ()
  71.     }

  72.     #
  73.     #
  74. }
复制代码



DLL压缩包下载 已经过UPX加壳




作者: 乐易论坛    时间: 2025-1-4 11:05
程序Call 就是调用静态方法
作者: 兵三进一    时间: 2025-1-4 11:33
好好学习,天天向上!
作者: alanwoo    时间: 2025-1-4 17:38
学习学习……
作者: 先生    时间: 2025-1-4 18:11
能用ski皮肤文件吗
作者: 网络注册会员    时间: 2025-1-4 20:35
支持支持支持
作者: adm    时间: 2025-1-4 23:14

好好学习,天天向上!
作者: 正版商业用户    时间: 2025-1-5 08:38
这个皮肤库早就过时了,XP时代的风格,现在看起来就像看文物一样
作者: 书写时光    时间: 2025-1-5 11:11
学习学习,感谢分享
作者: li327065266kun    时间: 2025-1-5 19:17
:噜阿噜牛逼啊,咋搞的X64皮肤啊???
作者: boxxie    时间: 2025-1-5 22:16

多谢楼主分享哟
作者: 米粒    时间: 2025-1-5 22:24
看看
作者: guangye1    时间: 2025-1-5 22:36
厉害厉害厉害
作者: amwji    时间: 2025-1-6 08:12
学习一下
作者: haihllong    时间: 2025-1-7 01:07
经典
作者: adm    时间: 2025-1-7 02:39
能自己设计吗
作者: gzylove    时间: 2025-1-7 15:29
大佬牛逼
作者: 先生    时间: 2025-1-8 00:26
怎么没有效果啊
作者: josn    时间: 2025-1-9 15:14
十分感谢,

作者: zzky    时间: 2025-1-10 09:36
感谢分享

作者: 浮云    时间: 2025-1-10 09:55
收藏了

作者: yb1984724    时间: 2025-1-10 10:43
好东西,谢谢分享!~
作者: 摘星揽月    时间: 2025-1-10 10:55
学习一下
作者: dldxdg    时间: 2025-1-10 20:28
感谢分享
作者: EZDD    时间: 2025-1-15 00:50
过UPX加壳
作者: dxp04    时间: 2025-1-15 01:16
虽然看着一般,但是总比没有强好多

作者: Lingdu2008    时间: 2025-1-25 12:03
牛,666666666
作者: yuangao    时间: 2025-1-25 12:07
学习,学习
作者: huang19781029    时间: 2025-1-31 16:53
66666666666666666666
作者: a524666979    时间: 2025-2-11 03:48
窗内存加载64位皮肤模块源码 [修改]
作者: flyhsx    时间: 2025-2-11 14:26
下载学习一下
作者: 7325701    时间: 2025-2-11 22:52
调用静态方法
作者: 本人吗?    时间: 2025-2-21 14:03
感谢分享
作者: boom    时间: 2025-2-22 00:50

作者: QQ_57A50C    时间: 2025-2-24 17:15
感谢分享支持爱看i有
作者: 3219720339    时间: 2025-2-25 17:28
666666666666666666666666
作者: a759077146    时间: 2025-3-8 01:37
888888888888
作者: huniu9981    时间: 2025-3-15 23:06
牛X
作者: 水常流    时间: 3 天前
感谢分享
作者: lloydstark    时间: 前天 22:05
让我看看
作者: youzhi311    时间: 前天 23:12
学习学习……




欢迎光临 递归火山软件开发平台 (https://bbs.voldp.com/) Powered by Discuz! X3.4