#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
$oIE = ObjCreate("Shell.Explorer.2")
#Region ### START Koda GUI section ### Form=
$mainwindow = GUICreate("转角网络电视V3.0桌面版", 610, 560)
_SkinGUI("SkinCrafterDll.dll", "Vista.skf", $mainwindow)
Dim $text = "", $Dir = "", $Dll
$GUIActiveX = GUICtrlCreateObj ($oIE, 0, 0, 600, 550)
$M2 = GUICtrlCreateMenu("刷新")
$M3 = GUICtrlCreateMenuItem("刷新", $M2)
$sz = GUICtrlCreateMenu("窗口设置")
$szzd = GUICtrlCreateMenuItem("设置置顶",$sz)
$qxzd = GUICtrlCreateMenuItem("取消置顶",$sz)
$oIE.navigate("http://zjppaa.com/tv")
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###
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 ;==>quit
While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
Case $szzd
WinSetOnTop("转角网络电视V3.0桌面版", "", 1)
Case $qxzd
WinSetOnTop("转角网络电视V3.0桌面版", "", 0)
Case $M3
$oIE.navigate("http://zjppaa.com/tv")
EndSwitch
WEnd