给大家写了个皮肤DLL，方便一些想偷懒写代码的朋友

lxh495349465

调用命令:

DllCall ( "wmSkin.dll", "none", "wmSkin" , "int", 13,"int", 0) 

这里的13就是13号皮肤，如果换成10就是10号皮肤

0=ShanMeng窄版；1=Areo；2=QQ_2009；3=QQ_2008；4=QQ_Game；5=Black；6=中国风；7=Office_2007；8=WhiteFire；9=纯净皮肤；10=MSN；11=炫绿；12=积木；13=QQ影音；14=Itunes；15=悬浮镂空；16=Adamant；17=Longhorn；18=Storm；19=Asus；20=QQ2009_宽_底边；21=QQ2009_窄_底边；22=Dogmax；23=QQ2009_黑色；24=彗星小助手深蓝色。
[全部函数]
调用函数名:wmSkin   {更换Skin++的皮肤,26个皮肤}
参数1(皮肤编号)类型为整数型;0到25
参数1(阴影效果)类型为整数型:0或1 ]0为无阴影效果,1反之]

调用函数名:delSkin   [在程序结束前前用上这一句，把皮肤内存释放掉]
无参

调用函数名:setSkin   {皮肤_颜色调整}
参数1的名称为“色调”，类型为“整数型”。取值范围-180-180,默认值0。
参数2的名称为“饱和度”，类型为“整数型”。取值范围-100-100,默认值0。
参数3的名称为“亮度”，类型为“整数型”。取值范围-100-100,默认值0。

调用函数名:VShin   {更换Vista皮肤}
参数<1>的名称为“皮肤文件”，类型为“文本型”。Vista 皮肤的绝对路径。

调用函数名:DVSkin  {Vista装载皮肤}
无参

会抽烟的鱼

顶一个。。。。。。。。

xyold1

很不错啊

xyold1

楼主，怎么换皮肤呢
再次调用没效果

顽固不化

调用命令:DllCall ( "wmSkin.dll", "none", "wmSkin" , "int", 13,"int", 0)

[全部函数]
调用函数名:w ...
lxh495349465 发表于 2010-10-26 18:35

不错，真是懒人之便捷工具

qianco2009

支持，非常的支持

seshomaru

比默认漂亮多了

lxh495349465

回复 4# xyold1


    看参数说明
调用函数名:wmSkin   {更换Skin++的皮肤,26个皮肤}
参数1(皮肤编号)类型为整数型;0到25
参数1(阴影效果)类型为整数型:0或1 ]0为无阴影效果,1反之]

如以更换皮肤就是修改第一个参数的值

DllCall ( "wmSkin.dll", "none", "wmSkin" , "int", 9,"int", 1)

这段中的9就是9号皮肤,换成10就是10号啦

xyold1

发现一BUG
调用皮肤之后，不能用GUICtrlSetData函数修改控件数据
杯具了我

xyold1

#include <ButtonConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <ProgressConstants.au3>
#include <SliderConstants.au3>
#include <StaticConstants.au3>
#include <TabConstants.au3>
#include <WindowsConstants.au3>
#Region ### START Koda GUI section ### Form=
$Form1 = GUICreate("Form1", 475, 306, 192, 114)
$Label1 = GUICtrlCreateLabel("Label1", 8, 8, 36, 17)
$Input1 = GUICtrlCreateInput("Input1", 0, 40, 73, 21)
$Edit1 = GUICtrlCreateEdit("", 0, 80, 81, 97)
GUICtrlSetData(-1, "Edit1")
$Button1 = GUICtrlCreateButton("Button1", 96, 8, 57, 25)
$Checkbox1 = GUICtrlCreateCheckbox("Checkbox1", 168, 8, 65, 25)
$Radio1 = GUICtrlCreateRadio("Radio1", 248, 8, 65, 33)
$Group1 = GUICtrlCreateGroup("Group1", 96, 72, 217, 113)
GUICtrlCreateGroup("", -99, -99, 1, 1)
$Progress1 = GUICtrlCreateProgress(0, 192, 313, 41)
$Slider1 = GUICtrlCreateSlider(0, 248, 313, 49)
$Tab1 = GUICtrlCreateTab(320, 0, 145, 297)
$TabSheet1 = GUICtrlCreateTabItem("TabSheet1")
$TabSheet2 = GUICtrlCreateTabItem("TabSheet2")
GUICtrlSetState(-1,$GUI_SHOW)
GUICtrlCreateTabItem("")
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###
$sk=0
;辉哥皮肤库
;http://wm0739.cn
;调用函数名:wmSkin
;参数1(皮肤编号)类型为整数型;0到25
;参数1(阴影效果)类型为整数型:0或1
While 1
        Sleep(3000)
        $sk=$sk+1
        If $sk=26 Then $sk=0
        ToolTip($sk)
        DllCall ( "wmSkin.dll", "none", "wmSkin" , "int", $sk,"int", 0) 
        $nMsg = GUIGetMsg()
        Switch $nMsg
                Case $GUI_EVENT_CLOSE
                        Exit

        EndSwitch
WEnd

这是那个测试换肤的
我这没有作用
XP SP2

lxh495349465

回复 [url=http://www.autoitx.com/redir

#include <ButtonConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <ProgressConstants.au3>
#include <SliderConstants.au3>
#include <StaticConstants.au3>
#include <TabConstants.au3>
#include <WindowsConstants.au3>
#Region ### START Koda GUI section ### Form=
FileInstall("wmSkin.dll",@SystemDir&"\wmSkin.dll")
$Form1 = GUICreate("Form1", 475, 306, 192, 114)
$Label1 = GUICtrlCreateLabel("Label1", 8, 8, 36, 17)
$Input1 = GUICtrlCreateInput("Input1", 0, 40, 73, 21)
$Edit1 = GUICtrlCreateEdit("", 0, 80, 81, 97)
GUICtrlSetData(-1, "Edit1")
$Button1 = GUICtrlCreateButton("Button1", 96, 8, 57, 25)
$Checkbox1 = GUICtrlCreateCheckbox("Checkbox1", 168, 8, 65, 25)
$Radio1 = GUICtrlCreateRadio("Radio1", 248, 8, 65, 33)
$Group1 = GUICtrlCreateGroup("Group1", 96, 72, 217, 113)
GUICtrlCreateGroup("", -99, -99, 1, 1)
$Progress1 = GUICtrlCreateProgress(0, 192, 313, 41)
$Slider1 = GUICtrlCreateSlider(0, 248, 313, 49)
$Tab1 = GUICtrlCreateTab(320, 0, 145, 297)
$TabSheet1 = GUICtrlCreateTabItem("TabSheet1")
$TabSheet2 = GUICtrlCreateTabItem("TabSheet2")
GUICtrlSetState(-1,$GUI_SHOW)
GUICtrlCreateTabItem("")
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###
DllCall ( "wmSkin.dll", "none", "wmSkin" , "int", 13,"int", 1) 
While 1
        $nMsg = GUIGetMsg()
        Switch $nMsg
                Case $GUI_EVENT_CLOSE
                        Exit
                Case $Button1
GUICtrlSetData($Button1,"不是吧")
        EndSwitch
WEnd

ect.php?goto=findpost&pid=226158&ptid=19288]9#[/url] xyold1

虎虎虎

被你雷到啦~要测试啊~

xyold1

回复 11# lxh495349465

上面代码可以运行，可我的程序里有60多个输入框，换肤之后，里面的内容全部不能显示
   也许是我的代码有问题吧

tankwu

不知道为什么用楼主的代码无法达到3秒钟变换界面效果，但是如果删去$sk变量，直接在Dllcall中赋值一切正常，另外，如果是只要一种界面的话，建议先用DLLcall，然后在GUISetState(@SW_SHOW)，这样的话不会出现一个明天的界面切换过程

zhongzijie

谢谢lxh495349465 分享