lvsea2008 发表于 2009-8-30 14:59:55

找简单点的哦皮肤下来用下

zyangc 发表于 2009-9-19 06:45:24

很好支持了！！！！谢谢啊！~

zyangc 发表于 2009-9-19 06:45:41

很好支持了！！！！谢谢啊！~

xupanfeng 发表于 2009-9-19 14:29:11

好东西多多发哦

wmysbbs 发表于 2009-9-27 18:16:30

这不是有人发了吗？？？

smooth 发表于 2009-9-27 19:31:08

不错，先做个标记，需要的时候再来下载。

siuchingchow 发表于 2009-9-28 11:19:25

没钱了，也要想下！

newmin 发表于 2009-9-28 15:42:20

金钱不足。太贵了

yuji1 发表于 2009-10-22 21:52:37

这只是皮肤预览工具，就是把.skf皮肤文件放进来，预览一下效果的。
顺便问个问题，skincrafter官方的一些新皮肤为什么加载了没效果，
是不是它的DLL文件更新了？

qzhid 发表于 2009-10-22 23:34:13

下来看看在眼里

qzhid 发表于 2009-10-22 23:34:38

发帖子会扣钱吗

qzhid 发表于 2009-10-22 23:34:55

为什么刚刚发的扣了我4元

yuji1 发表于 2009-10-23 11:21:58

不知道，我的贴回复不收费！

adi 发表于 2009-10-23 16:25:47

好家伙。。。。。。。。。。。。。。

316428696 发表于 2009-10-25 22:09:47

皮肤预览工具源码！

if not FileExists("SkinCrafterDll.dll") Then
MsgBox(64, "错误", "当前目录SkinCrafterDll.dll文件丢失",5)
Exit
EndIf
$xx=0
$search = FileFindFirstFile("*.skf")
If $search = -1 Then
   MsgBox(64, "错误", "当前目录没有可用的.skf文件",5)
Exit
EndIf
While 1
    $file = FileFindNextFile($search)
    If @error Then ExitLoop
    $bf=$file
   $xx=$xx+1
WEnd
FileClose($search)
#include <GUIConstantsEx.au3>
MsgBox(64,"提示","一共找到"&$xx&"张皮肤")
Global $Dll , $Progress1
formbf()


Func formbf()
$Form1 = GUICreate("皮肤例子", 345, 184, 313, 309)
_SkinGUI("SkinCrafterDll.dll", $bf, $Form1)
$Group1 = GUICtrlCreateGroup("基本", 8, 8, 321, 129)
$Combo1 = GUICtrlCreateCombo("选择皮肤", 24, 40, 105, 25)
GUICtrlSetData($Combo1,$bf)
$Input1 = GUICtrlCreateInput("内容", 24, 80, 97, 21)
$Checkbox1 = GUICtrlCreateCheckbox("哈哈", 152, 32, 45, 25)
$Radio1 = GUICtrlCreateRadio("嘻嘻", 152, 72, 45, 25)
$List1 = GUICtrlCreateList("", 216, 32, 81, 84)
GUICtrlCreateGroup("", -99, -99, 1, 1)
$Progress1 = GUICtrlCreateProgress(8, 154, 241, 10)
$Button1 = GUICtrlCreateButton("退出", 272, 144, 49, 25, 0)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###

GUICtrlSetData($Input1,$bf &"皮肤")
$search = FileFindFirstFile("*.skf")
If $search = -1 Then
   MsgBox(64, "错误", "当前目录没有可用的.skf文件",5)
Exit
EndIf
While 1
    $file = FileFindNextFile($search)
    If @error Then ExitLoop
      GUICtrlSetData($List1,$file)
    GUICtrlSetData($Combo1,$file)
WEnd
FileClose($search)
jd()
While 1
        $nMsg = GUIGetMsg()
        Switch $nMsg
                        Case $GUI_EVENT_CLOSE
                 Quit()
                        Exit
                case $Button1
             Quit()
               Exit
         Case $Combo1
            $bf=GUICtrlRead ( $Combo1)
            GUIDelete ( $Form1)
                  formbf()
             ExitLoop
         Case $List1
            $bf=GUICtrlRead ( $List1)
            GUIDelete ( $Form1)
                  formbf()
             ExitLoop
        EndSwitch
WEnd

EndFunc

Func _SkinGUI($SkincrafterDll, $SkincrafterSkin, $Handle)
   $Dll = DllOpen($SkincrafterDll)
   MsgBox(0,"",$SkincrafterSkin);   
   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)
    ;DirRemove(@AppDataDir&"\skin",1)
    Exit
EndFunc


Func jd()
   GUICtrlSetData($Progress1,"10%")
Sleep(100)
   GUICtrlSetData($Progress1,"20%")
Sleep(100)
   GUICtrlSetData($Progress1,"30%")
Sleep(100)
   GUICtrlSetData($Progress1,"40%")
Sleep(100)
GUICtrlSetData($Progress1,"50%")
Sleep(100)
GUICtrlSetData($Progress1,"60%")
Sleep(100)
GUICtrlSetData($Progress1,"70%")
Sleep(100)
GUICtrlSetData($Progress1,"80%")
Sleep(100)
GUICtrlSetData($Progress1,"90%")
Sleep(100)
GUICtrlSetData($Progress1,"100%")
Sleep(100)
EndFunc
页: 1 [2] 3 4 5 6
查看完整版本: Skin皮肤+效果预览工具(仿官方) —— 檸檬樂園