关于皮肤问题：我在脚本里F5是有皮肤的，保存成EXE就没有了

xhf100

关于皮肤问题：我在脚本里F5是有皮肤的，保存成EXE就没有了.....

按照版主大人的教程一步一步的来，最后脚本终于OK了。。。


转成EXE的时候，就不显示了。。

大概是集合到一起的时候出错了。。

#ce ＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿脚本开始＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿

#include <ButtonConstants.au3>
#include <GUIConstantsEx.au3>
#include <Process.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>


#Region ### START Koda GUI section ### Form=
dim $dll  
FileInstall("SkinCrafterDll.dll",@TempDir&"SkinCrafterDll.dll",1)
FileInstall("Skinastic.skf",@TempDir&"Skinastic.skf",1)


$Form1 = GUICreate("DNF选择器", 506, 109, 268, 137)
Dim $bf="Skinastic.skf" ;皮肤文件路劲
_SkinGUI("SkinCrafterDll.dll", $bf, $Form1)

$Button1 = GUICtrlCreateButton("地下城与勇士国服界面版", 8, 26, 225, 57, $WS_GROUP)
$Button2 = GUICtrlCreateButton("地下城与勇士韩服界面版", 275, 26, 225, 57, $WS_GROUP)
$Label1 = GUICtrlCreateLabel("八佰龙网吧", 424, 88, 64, 17)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###

While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
Case $Button1
                        RunWait("D:\网络游戏\地下城与勇士\start\DNFchina.exe"); 打开国服界面版
Case $Button2
                        RunWait("E:\Backup\dnf\ImagePacks2.exe");打开韩服界面版
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      ;==_



Func Quit()
    GUISetState(@SW_HIDE)
    DllCall($dll, "int:cdecl", "DeInitDecoration")
    DllCall($dll, "int:cdecl", "RemoveSkin")
    DllClose($dll)
        FileDelete(@TempDir&"SkinCrafterDll.dll")
    FileDelete(@TempDir&"Skinastic.skf")
    ;DirRemove(@AppDataDir&"\skin",1)
    Exit
EndFunc

源代码。。

xhf100

您想自动修改为：3.3.1.3吗？


这个会提示。。。

afan

你光FileInstall了但没调用当然不行；还有路径的格式也有错误；退出时也没调用删除。
这样改就可以了：

#include <ButtonConstants.au3>
#include <GUIConstantsEx.au3>
#include <Process.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>


#Region ### START Koda GUI section ### Form=
Dim $dll
FileInstall("SkinCrafterDll.dll", @TempDir & "\SkinCrafterDll.dll", 1)
FileInstall("Skinastic.skf", @TempDir & "\Skinastic.skf", 1)

$Form1 = GUICreate("DNF选择器", 506, 109, 268, 137)

_SkinGUI(@TempDir & "\SkinCrafterDll.dll", @TempDir & "\Skinastic.skf", $Form1)

$Button1 = GUICtrlCreateButton("地下城与勇士国服界面版", 8, 26, 225, 57, $WS_GROUP)
$Button2 = GUICtrlCreateButton("地下城与勇士韩服界面版", 275, 26, 225, 57, $WS_GROUP)
$Label1 = GUICtrlCreateLabel("八佰龙网吧", 424, 88, 64, 17)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###

While 1
        $nMsg = GUIGetMsg()
        Switch $nMsg
                Case $GUI_EVENT_CLOSE
                        Quit()
                Case $Button1
                        RunWait("D:\网络游戏\地下城与勇士\start\DNFchina.exe"); 打开国服界面版
                Case $Button2
                        RunWait("E:\Backup\dnf\ImagePacks2.exe");打开韩服界面版
        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

Func Quit()
        GUISetState(@SW_HIDE)
        DllCall($dll, "int:cdecl", "DeInitDecoration")
        DllCall($dll, "int:cdecl", "RemoveSkin")
        DllClose($dll)
        FileDelete(@TempDir & "\SkinCrafterDll.dll")
        FileDelete(@TempDir & "\Skinastic.skf")
        ;DirRemove(@AppDataDir&"\skin",1)
        Exit
EndFunc   ;==>Quit

xhf100

谢谢楼上的大哥……
我看视频教程上没有那个"\"
实在感谢。。呵呵。。