关于皮肤问题：我在脚本里F5是有皮肤的，保存成EXE就没有了
关于皮肤问题：我在脚本里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
源代码。。 您想自动修改为：3.3.1.3吗？
这个会提示。。。 本帖最后由 afan 于 2009-8-19 15:08 编辑
你光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 谢谢楼上的大哥……
我看视频教程上没有那个"\"
实在感谢。。呵呵。。
页:
[1]