#include <ButtonConstants.au3>
#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
#include <ie.au3>
Dim $dllpf
Dim $bf=@TempDir&"vista.skf"
FileInstall ( "SkinCrafterDll.dll", @TempDir&"SkinCrafterDll.dll",1)
FileInstall ( "vista.skf", @TempDir&"vista.skf",1)
#Region ### START Koda GUI section ### Form=
$Form1 = GUICreate("Form1", 397, 255, 359, 223)
_SkinGUI(@TempDir&"SkinCrafterDll.dll", $bf, $Form1)
$oIE1 = _IECreateEmbedded () ;
$GUIActiveX1 = GUICtrlCreateObj($oIE1, 0,0,358,222)
_IENavigate ($oIE1,"www.baidu.com")
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###
While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
EndSwitch
WEnd
Func _SkinGUI($SkincrafterDll, $SkincrafterSkin, $Handle)
$dllpf = DllOpen($SkincrafterDll)
DllCall($dllpf, "int:cdecl", "InitLicenKeys", "wstr", "1", "wstr", "", "wstr", "1@1.com", "wstr", "1")
DllCall($dllpf, "int:cdecl", "InitDecoration", "int", 1)
DllCall($dllpf, "int:cdecl", "LoadSkinFromFile", "wstr", $SkincrafterSkin)
DllCall($dllpf, "int:cdecl", "DecorateAs", "int", $Handle, "int", 25)
DllCall($dllpf, "int:cdecl", "ApplySkin")
EndFunc ;==_