au3调用皮肤视频教程

jhwl · 发表于 2008-6-23 23:57:35

www.hb909.cn/bbs

今天来做一个au3调用皮肤视频教程

这是一套专门提供换肤的DLL，DLL是动态链接库，非常幸运的是，AUTOIT具有直接调用DLL的功能，这使我们可以调用皮肤

论坛兄弟 * xtybfgu * 皮肤例子+使用方法+皮肤

http://www.autoitx.com/forum.php ... &extra=page%3D2

上面有例子,我们下载下来

下载完!

大家看,这是使用了皮肤的例子

我们打开源码

关键部分:

............
..............

下面我们来美化一个实例...

来看一下 * 叁恨居士 * 发的一贴 ....[ 硬件信息查看工具（简单版) ]...吧!

http://www.autoitx.com/forum.php ... &extra=page%3D1

我们下载下来...我这里已经下载了...
我们现在来美化吧
.............................
最终效果:

.......................................................
http://u.115.com/file/f6c3c260f0

au3调用皮肤视频教程.rar

jhwl · 发表于 2008-6-24 11:06:52

;AU3皮肤应用文本完整方法
;
;只需复制以下代码替换一窗口变量再加上dll和皮肤文件
;===================================================================================
;====== AU3皮肤应用文本教程                                                 ========
;====== www.jhlyu.cn/bbs                                                    ========
;===================================================================================

Opt("OnExitFunc","Quit");设置在 AutoIt 退出时将调用的函数(Quit).

;====================== 需要改动的地方 =============================================

;找到GUIcreate函数赋值的变量,这里是$form1,替换下句_SkinGUI中的$form1
;例: $form1=GUICreate ("标题金海领域",450,400,-1,-1)
Dim $dll,$bf=@TempDir&"vista.skf" ;皮肤文件路径
_SkinGUI(@TempDir&"SkinCrafterDll.dll", $bf, $form1);
;====================== $form1替换你的窗口变量 =====================================


;======================= 装入到编译后的文件 ========================================
FileInstall("SkinCrafterDll.dll",@TempDir&"SkinCrafterDll.dll",1)
FileInstall("vista.skf",@TempDir&"vista.skf",1)
FileInstall("Splash.jpg",@TempDir&"Splash.jpg",1)
;===================================================================================

Func _SkinGUI($SkincrafterDll, $SkincrafterSkin, $Handle) 
   $Dll = DllOpen($SkincrafterDll) 
   DllCall($Dll, "int:cdecl", "InitLicenKeys", "wstr", "1", "wstr", "", "wstr", "1@1.com", "wstr", "1") 
   DllCall($Dll, "int:cdecl", "InitDecoration", "int", 1) 
   DllCall($Dll, "int:cdecl", "LoadSkinFromFile", "wstr", $SkincrafterSkin) 
   DllCall($Dll, "int:cdecl", "DecorateAs", "int", $Handle, "int", 25) 
   DllCall($Dll, "int:cdecl", "ApplySkin") 
EndFunc      ;==_
;===================================================================================
;退出时析构
Func Quit()
    GUISetState(@SW_HIDE)
    DllCall($dll, "int:cdecl", "DeInitDecoration")
    DllCall($dll, "int:cdecl", "RemoveSkin")
    DllClose($dll)
    FileDelete(@TempDir&"SkinCrafterDll.dll")
    FileDelete(@TempDir&"vista.skf")
    FileDelete(@TempDir&"Splash.jpg")
    Exit
EndFunc
;===================================================================================

jhwl · 发表于 2008-6-24 11:24:36

Opt("OnExitFunc","Quit")
上面语句慎重使用
最好在退出时调用quit()

sanhen · 发表于 2008-6-24 12:39:06

好了。你的也加了。。。我加分是看到就加的。有时没加到，也是难免的。。

大家多发下教程和资料，我尽量帮你们加分。。。

sanhen · 发表于 2008-6-24 15:03:02

这不是表情吗？

顽固不化 · 发表于 2008-6-24 15:41:43

学习了，哈哈，还有教程，楼主辛苦了

jinghai · 发表于 2008-6-25 12:52:04

视频教程原创啊,并且增加和整理了代码,支持jhwl

135956 · 发表于 2008-7-1 19:05:27

很好的教程，多谢分享！

stjie · 发表于 2008-7-27 14:03:48

先保存,以后再看

zhwu530 · 发表于 2008-8-12 07:07:12

看了知了记下了！！！！！！！！！！！！1

脚印也留下了！！！！！！！！！！！1
闪人！

qqgghh1 · 发表于 2008-9-18 12:18:05

今日再看，依然受教。感谢jhwl，xtybfgu

ken0137 · 发表于 2008-9-18 22:05:14

多发点皮肤就好了

hx89021691 · 发表于 2008-10-22 21:05:08

很好的教程，多谢分享！

posheng · 发表于 2008-10-22 23:10:08

不错，很实用，

streamload · 发表于 2008-11-2 00:46:17

看看，谢谢分享。。。。

		自动登录	找回密码
密码			加入

[原创] au3调用皮肤视频教程

本帖子中包含更多资源

评分

AU3皮肤应用文本完整教程;只需复制以下代码替换一窗口变量再加上dll和皮肤文件