分享仿win8的she皮肤附调用实例

cumtljj · 发表于 2014-6-8 21:23:34

本帖最后由 cumtljj 于 2014-6-15 11:37 编辑

写在前面：皮肤不是我写的我只是转来的可以说几乎完美
皮肤文件和dll文件在后面的附件中……

#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>

_skins()
#Region ### START Koda GUI section ### Form=
$Form1 = GUICreate("测试皮肤", 356, 229, 192, 124)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###

While 1
        $nMsg = GUIGetMsg()
        Switch $nMsg
                Case $GUI_EVENT_CLOSE
                        Exit
                        _deleteskins()
        EndSwitch
WEnd

;加载皮肤,放在创建窗口之前
Func _skins()
        FileInstall("C:\autoit3\skins\win8.she", @TempDir & "win8.she", 1) ;自定义she皮肤路径
        FileInstall("C:\autoit3\skins\Skin.dll", @TempDir & "Skin.dll", 1) ;自定义skin.dll文件路径
        $skins = @TempDir & "win8.she"
        $dll = DllOpen(@TempDir & "Skin.dll")
        DllCall($dll, "int", "SkinH_AttachEx", "str", $skins, "str", "mhgd")
EndFunc   ;==>_skins
;卸载皮肤
Func _deleteskins()
        FileDelete(@TempDir & "Skin.dll")
        FileDelete(@TempDir & "win8.she")
EndFunc   ;==>_deleteskins

she皮肤所调用的skin.dll函数汇总
http://www.autoitx.com/forum.php ... id=44503&extra=

游客，如果您要查看本帖隐藏内容请回复

panbin1512 · 发表于 2014-6-8 21:48:18

谢谢楼主分享

joyran · 发表于 2014-6-8 22:52:53

顶起来

ooxxgod · 发表于 2014-6-9 00:54:52

这个目的做什么

yinbinly · 发表于 2014-6-9 08:30:59

谢谢分享，下载试试

fcurrk · 发表于 2014-6-9 08:32:45

收藏了先，感谢

hnfeng · 发表于 2014-6-9 09:29:13

收藏了，谢谢分享

lindafu · 发表于 2014-6-9 13:33:15

得看看什么东东

longsan03 · 发表于 2014-6-9 21:01:58

谢谢LZ

dabaiyun · 发表于 2014-6-9 21:50:35

支持一下嘿嘿

bingshen2014 · 发表于 2014-6-10 08:01:00

感谢楼主分享，辛苦了。

huangshan719 · 发表于 2014-6-10 11:19:22

下载看看学习学习

xz00311 · 发表于 2014-6-10 11:23:00

那边都是E语言的啊为什么

xowen · 发表于 2014-6-10 12:02:07

maosi bu cuo e

cumtljj · 发表于 2014-6-10 12:02:11

回复 14# xz00311

这个不影响使用的

		自动登录	找回密码
密码			加入

[皮肤] 分享仿win8的she皮肤附调用实例

本帖子中包含更多资源

[皮肤] 分享仿win8的she皮肤 附调用实例

本帖子中包含更多资源

[皮肤] 分享仿win8的she皮肤附调用实例