令人振奋的窗口皮肤,美化你的界面!
http://sogho.cn/UploadFiles/2008-6/21032260658.jpghttp://sogho.cn/UploadFiles/2008-6/21033105091.jpghttp://sogho.cn/UploadFiles/2008-6/21033344758.jpg
单调的默认皮肤如果让你厌烦,换个皮肤会使人振奋。
以下帖子转自:
http://sogho.cn/blog/6/archives/2008/200862102236.htm
皮肤的使用,一是下载一个皮肤样式,二是下载一个DLL文件,三是完成代码。
一、下载皮肤
提供各类皮肤下载的网站是:
http://www.skincrafter.com/skingal.php#
二、相应的DLL下载
运用皮肤需要一个Dll文件的支持:
SkinCrafterDll.rar
三、代码例子
使用方法:
#Region ### START Koda GUI section ### Form=
$Form1 = GUICreate("DrvT_2.6", 360, 256, -1, -1, BitOR($WS_CAPTION, $WS_POPUP), 0)
_SkinGUI(@WindowsDir & "\temp\SkinCrafterDll.dll", @WindowsDir & "\temp\Flexi_ST.skf", $Form1)
。。。。。。。。。。。。。。
。。。。。。。。。。。。
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###
While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
EndSwitch
WEnd
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;==>_SkinGUI
突然发现高手们有关皮肤资源、使用、视频教程等的好帖子:
http://www.autoitx.com/forum.php?mod=viewthread&tid=1375&extra=page%3D1
[ 本帖最后由 顽固不化 于 2008-6-24 15:52 编辑 ] 楼主在别的地方抄贴过来,也不知道抄清楚,搞完整。
Func Quit()
GUISetState(@SW_HIDE)
DllCall($dll, "int:cdecl", "DeInitDecoration")
DllCall($dll, "int:cdecl", "RemoveSkin")
DllClose($dll)
;DirRemove(@AppDataDir&"\skin",1)
Exit
EndFunc 加上很重要的一句...
Opt("OnExitFunc","Quit");
http://www.autoitx.com/forum.php?mod=viewthread&tid=1375&extra=page%3D1
看我有说明... 越来越牛X!!!!!!!! :face (36):
好文章,我收了!! 调用啊dll啊,对俺而言复杂了... 1# 顽固不化
不错 这个值得收藏.... 照做了以后没有效果也。也没有错误提示
但是:
-> Warning: Unable to open au3.api.Skipping ProperCase function for KeyWords/Function/Macros
这是怎么回事啊? 原来是放在脚本目录,我放在程序目录了 呵呵 好东西
我喜欢
收藏了 支持,收藏。 不管是原创,还是是转帖,支持前辈的劳动成果。 谢谢分享!:face (37):
学习中。 谢谢了
可是我没钱了
无法下了