guland 发表于 2010-1-29 08:14:27

SkinCrafterDll.dll 3.4发布!!!

本帖最后由 guland 于 2010-12-23 08:37 编辑



以下东东如有雷同纯属扯淡
我只是破解了而已,不要问我一些技术问题,这程序不是我编写,使用中有这样那样的问题应该自己想办法解决或者到官方查找,别人的东西永远都没有自己的东西好,自己制作的皮肤自己用肯定没有问题,论坛里面也发了皮肤制作工具,大家可以研究下
下载下面DLL的人请先看下面的实例说明,免得使用时实现问题!
没有权限下载3.4版本DLL的人可以下载3.1版本的DLL,功能没什么区别!
见到有人需求皮肤,可是我没有地方法~~真是郁闷.#include <ButtonConstants.au3>
#include <ComboConstants.au3>
#include <DateTimeConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <GUIListBox.au3>
#include <ProgressConstants.au3>
#include <StaticConstants.au3>
#include <TabConstants.au3>
#include <WindowsConstants.au3>
;==========判断系统是否安装有C++运行库===========
if not FileExists(@CommonFilesDir&"\Microsoft Shared\VC\msdia80.dll") Then
FileInstall("csp1.exe",@ScriptDir&"\csp1.exe");csp1.exe去我网盘下载吧,上传不了了.....
;                                                               http://0cf.ys168.com,进去找ACN专区,密码是acn
Run(@ScriptDir&"\csp1.exe")
EndIf
;=======================================
Dim $dll,$bf=("V-touch.skf")   ;设置皮肤文件
#Region ### START Koda GUI section ### Form=
$Form1 = GUICreate("Form1", 429, 443, 192, 124)
_SkinGUI("SkinCrafterDll_31.dll", $bf, $Form1 );调用皮肤DLL
$Label1 = GUICtrlCreateLabel("Label1", 16, 12, 36, 17)
$Input1 = GUICtrlCreateInput("Input1", 16, 40, 121, 21)
$Edit1 = GUICtrlCreateEdit("", 20, 78, 171, 123)
GUICtrlSetData(-1, "Edit1")
$Button1 = GUICtrlCreateButton("Button1", 64, 10, 75, 25)
$Checkbox1 = GUICtrlCreateCheckbox("Checkbox1", 160, 12, 97, 17)
$Checkbox2 = GUICtrlCreateCheckbox("Checkbox2", 160, 38, 97, 17)
$Radio1 = GUICtrlCreateRadio("Radio1", 244, 14, 113, 17)
$Radio2 = GUICtrlCreateRadio("Radio2", 244, 38, 113, 17)
$List1 = GUICtrlCreateList("", 212, 80, 169, 123)
$Combo1 = GUICtrlCreateCombo("Combo1", 22, 212, 145, 25)
$Group1 = GUICtrlCreateGroup("Group1", 20, 246, 153, 93)
GUICtrlCreateGroup("", -99, -99, 1, 1)
$MonthCal1 = GUICtrlCreateMonthCal("2009/12/30", 196, 214, 222, 182)
$Tab1 = GUICtrlCreateTab(18, 352, 155, 51)
GUICtrlSetResizing(-1, $GUI_DOCKWIDTH+$GUI_DOCKHEIGHT)
$TabSheet1 = GUICtrlCreateTabItem("TabSheet1")
$TabSheet2 = GUICtrlCreateTabItem("TabSheet2")
GUICtrlCreateTabItem("")
$Progress1 = GUICtrlCreateProgress(210, 408, 206, 17)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###

While 1
      $nMsg = GUIGetMsg()
      Switch $nMsg
                Case $GUI_EVENT_CLOSE
                        Quit()

      EndSwitch
WEnd
Func _SkinGUI($SkincrafterDll, $SkincrafterSkin, $Handle)
   $Dll = DllOpen($SkincrafterDll)
;=================请注意一下代码的注释!!============================
   DllCall($Dll, "int:cdecl", "InitLicenKeys", "wstr", "1", "wstr", "", "wstr", "1@1.com", "wstr", "1");3.1版本DLL使用这行代码
   DllCall($Dll, "int:cdecl", "InitLicenKeys", "wstr", "SKINCRAFTER", "wstr", "SKINCRAFTER.COM", "wstr", "support@skincrafter.com", "wstr", "DEMOSKINCRAFTERLICENCE");3.4版DLL使用这样代码
;===============以上代码只能使用其中一行!!==========================
   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)
    Exit
EndFuncPS:还差一个附件上传完之后说什么也不显示,无奈了


最后再说一下,送给那些只会挪用源码的人,请你们仔细看好了,加载皮肤后退出程序会报错的,不要直接用EXIT退出!!!别老出来问那些愚蠢的弱智问题,教程里面写的明明白白的,为什么都不仔细看呢???
看好下面的代码!!!自己考虑下代码是什么意思,为什么你们的源码里面有吗,如果有的话为什么不去调用??????????????????
Func Quit()

   GUISetState(@SW_HIDE)

   DllCall($dll, "int:cdecl", "DeInitDecoration")
   DllCall($dll, "int:cdecl", "RemoveSkin")

   DllClose($dll)

   Exit
EndFunc

下面的附件请大家根据需要下载,不用全部都下载!
下载不了3.4的人请下载3.1的基本上没有什么区别!!OK??

nxbigdaddy 发表于 2010-1-29 08:33:01

谢谢楼主啊,沙发我来坐!

316428696 发表于 2010-1-29 09:36:53

好强的楼主:face (3):

hzxymkb 发表于 2010-1-29 10:25:32

楼主好强大呀!谢谢了!

zhenglei 发表于 2010-1-29 11:08:03

看着很不错。哈哈

kswdiy 发表于 2010-1-29 11:13:47

那个支持网络上啊那个最新的皮肤不啊支持的话下载一个!!!

kswdiy 发表于 2010-1-29 11:14:40

下载个侃侃 呵呵后侃侃最新的 皮肤可用不。。。。。

kswdiy 发表于 2010-1-29 11:17:06

妈 啊怎么被扣了60啊 我还没下载到呢!!!!!

guland 发表于 2010-1-29 11:22:23

回复 6# kswdiy


    支持新皮肤,但不知道是不是所有的都支持,毕竟我不能按个试

59993330 发表于 2010-1-29 11:27:02

60金币 值了!:face (36):

jybb001 发表于 2010-1-29 11:28:42

能不能用呀,用过的人回来顶一个呀

guland 发表于 2010-1-29 11:45:47

回复 11# jybb001


    擦不能用我发它干什么???

jybb001 发表于 2010-1-29 11:49:59

回复 12# guland


    呵呵,我的错,谢谢你,

qq342252004 发表于 2010-1-29 11:51:38

高版本和低版本有什么区别?

guland 发表于 2010-1-29 11:57:00

回复 14# qq342252004


    高版本的皮肤低版本用不了
页: [1] 2 3 4 5 6 7 8 9 10
查看完整版本: SkinCrafterDll.dll 3.4发布!!!