本帖最后由 dmqhcx88 于 2012/2/21 23:42 编辑
用到的皮肤见年老此帖https://www.ampc8.com/thread-5424-1-1.html
大家可找新地址进行增加。
- #include <EditConstants.au3>
- #include <GUIConstantsEx.au3>
- #include <TreeViewConstants.au3>
- #include <WindowsConstants.au3>
- #include<ie.au3>
- Dim $dll
- FileInstall("SkinCrafterDll.dll", @TempDir & "\SkinCrafterDll.dll", 1)
- FileInstall("Crimson.skf", @TempDir & "\Crimson.skf", 1)
- #region ### START Koda GUI section ###
- $Form1 = GUICreate("Form1", 779, 442, -1, -1)
- Dim $pf = @TempDir & "\Crimson.skf"
- _SkinGUI(@TempDir & "\SkinCrafterDll.dll", $pf, $Form1)
- $oIE = _IECreateEmbedded()
- $GUIActiveX = GUICtrlCreateObj($oIE, 195, 0, 600, 445)
- $oIE.navigate("http://www.guduge.com/tv/player.asp?ID=618.html")
- $TreeView1 = GUICtrlCreateTreeView(0, 0, 195, 442)
- GUICtrlSetFont(-1, 10, 400, 0, "MS Sans Serif")
- GUICtrlSetColor(-1, 0xFFFFFF)
- GUICtrlSetBkColor(-1, 0x008000)
- $TreeView1_0 = GUICtrlCreateTreeViewItem("PPTV直播", $TreeView1)
- $TreeView1_1 = GUICtrlCreateTreeViewItem("中国教育1", $TreeView1_0)
- $TreeView1_2 = GUICtrlCreateTreeViewItem("上海电视剧", $TreeView1_0)
- $TreeView1_3 = GUICtrlCreateTreeViewItem("上海新闻", $TreeView1_0)
- $TreeView1_4 = GUICtrlCreateTreeViewItem("上海纪实", $TreeView1_0)
- $TreeView1_5 = GUICtrlCreateTreeViewItem("上海娱乐", $TreeView1_0)
- $TreeView1_6 = GUICtrlCreateTreeViewItem("东方电影台", $TreeView1_0)
- $TreeView1_7 = GUICtrlCreateTreeViewItem("东方卫视", $TreeView1_0)
- $TreeView1_8 = GUICtrlCreateTreeViewItem("北京卫视", $TreeView1_0)
- $TreeView1_9 = GUICtrlCreateTreeViewItem("天津卫视", $TreeView1_0)
- $TreeView1_10 = GUICtrlCreateTreeViewItem("重庆卫视", $TreeView1_0)
- $TreeView1_11 = GUICtrlCreateTreeViewItem("湖南卫视", $TreeView1_0)
- $TreeView1_12 = GUICtrlCreateTreeViewItem("湖北卫视", $TreeView1_0)
- $TreeView1_13 = GUICtrlCreateTreeViewItem("浙江卫视", $TreeView1_0)
- $TreeView1_14 = GUICtrlCreateTreeViewItem("江苏卫视", $TreeView1_0)
- $TreeView1_15 = GUICtrlCreateTreeViewItem("广东卫视", $TreeView1_0)
- $TreeView1_16 = GUICtrlCreateTreeViewItem("山东卫视", $TreeView1_0)
- $TreeView1_17 = GUICtrlCreateTreeViewItem("河南卫视", $TreeView1_0)
- $TreeView1_18 = GUICtrlCreateTreeViewItem("四川卫视", $TreeView1_0)
- $TreeView1_19 = GUICtrlCreateTreeViewItem("辽宁卫视", $TreeView1_0)
- $TreeView1_20 = GUICtrlCreateTreeViewItem("吉林卫视", $TreeView1_0)
- $TreeView1_21 = GUICtrlCreateTreeViewItem("东南卫视", $TreeView1_0)
- $TreeView1_22 = GUICtrlCreateTreeViewItem("贵州卫视", $TreeView1_0)
- $TreeView1_23 = GUICtrlCreateTreeViewItem("河北卫视", $TreeView1_0)
- $TreeView1_24 = GUICtrlCreateTreeViewItem("江西卫视", $TreeView1_0)
- $TreeView1_25 = GUICtrlCreateTreeViewItem("山西卫视", $TreeView1_0)
- $TreeView1_26 = GUICtrlCreateTreeViewItem("云南卫视", $TreeView1_0)
- $TreeView1_27 = GUICtrlCreateTreeViewItem("青海卫视", $TreeView1_0)
- $TreeView1_28 = GUICtrlCreateTreeViewItem("陕西卫视", $TreeView1_0)
- $TreeView1_29 = GUICtrlCreateTreeViewItem("甘肃卫视", $TreeView1_0)
- $TreeView1_30 = GUICtrlCreateTreeViewItem("广西卫视", $TreeView1_0)
- $TreeView1_31 = GUICtrlCreateTreeViewItem("旅游卫视", $TreeView1_0)
- $TreeView1_32 = GUICtrlCreateTreeViewItem("宁夏卫视", $TreeView1_0)
- $TreeView1_33 = GUICtrlCreateTreeViewItem("厦门卫视", $TreeView1_0)
- $TreeView1_34 = GUICtrlCreateTreeViewItem("兵团卫视", $TreeView1_0)
- $TreeView1_35 = GUICtrlCreateTreeViewItem("深圳卫视", $TreeView1_0)
- $TreeView1_36 = GUICtrlCreateTreeViewItem("内蒙古卫视", $TreeView1_0)
- $TreeView1_37 = GUICtrlCreateTreeViewItem("黑龙江卫视", $TreeView1_0)
- $TreeView1_38 = GUICtrlCreateTreeViewItem("UUsee直播", $TreeView1)
- $TreeView1_39 = GUICtrlCreateTreeViewItem("1", $TreeView1_38)
- $TreeView1_40 = GUICtrlCreateTreeViewItem("2", $TreeView1_38)
- $TreeView1_41 = GUICtrlCreateTreeViewItem("3", $TreeView1_38)
- 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
- GUISetState(@SW_SHOW)
- #endregion ### END Koda GUI section ###
- While 1
- $nMsg = GUIGetMsg()
- Switch $nMsg
- Case $GUI_EVENT_CLOSE
- Quit()
- Case $TreeView1_1
- $oIE.navigate("http://www.guduge.com/tv/player.asp?ID=628.html")
- Case $TreeView1_2
- $oIE.navigate("http://www.guduge.com/tv/player.asp?ID=627.html")
- Case $TreeView1_3
- $oIE.navigate("http://www.guduge.com/tv/player.asp?ID=626.html")
- Case $TreeView1_4
- $oIE.navigate("http://www.guduge.com/tv/player.asp?ID=625.html")
- Case $TreeView1_5
- $oIE.navigate("http://www.guduge.com/tv/player.asp?ID=624.html")
- Case $TreeView1_6
- $oIE.navigate("http://www.guduge.com/tv/player.asp?ID=623.html")
- Case $TreeView1_7
- $oIE.navigate("http://www.guduge.com/tv/player.asp?ID=622.html")
- Case $TreeView1_8
- $oIE.navigate("http://www.guduge.com/tv/player.asp?ID=621.html")
- Case $TreeView1_9
- $oIE.navigate("http://www.guduge.com/tv/player.asp?ID=620.html")
- Case $TreeView1_10
- $oIE.navigate("http://www.guduge.com/tv/player.asp?ID=619.html")
- Case $TreeView1_11
- $oIE.navigate("http://www.guduge.com/tv/player.asp?ID=618.html")
- Case $TreeView1_12
- $oIE.navigate("http://www.guduge.com/tv/player.asp?ID=617.html")
- Case $TreeView1_13
- $oIE.navigate("http://www.guduge.com/tv/player.asp?ID=616.html")
- Case $TreeView1_14
- $oIE.navigate("http://www.guduge.com/tv/player.asp?ID=615.html")
- Case $TreeView1_15
- $oIE.navigate("http://www.guduge.com/tv/player.asp?ID=614.html")
- Case $TreeView1_16
- $oIE.navigate("http://www.guduge.com/tv/player.asp?ID=613.html")
- Case $TreeView1_17
- $oIE.navigate("http://www.guduge.com/tv/player.asp?ID=612.html")
- Case $TreeView1_18
- $oIE.navigate("http://www.guduge.com/tv/player.asp?ID=611.html")
- Case $TreeView1_19
- $oIE.navigate("http://www.guduge.com/tv/player.asp?ID=610.html")
- Case $TreeView1_20
- $oIE.navigate("http://www.guduge.com/tv/player.asp?ID=609.html")
- Case $TreeView1_21
- $oIE.navigate("http://www.guduge.com/tv/player.asp?ID=608.html")
- Case $TreeView1_22
- $oIE.navigate("http://www.guduge.com/tv/player.asp?ID=607.html")
- Case $TreeView1_23
- $oIE.navigate("http://www.guduge.com/tv/player.asp?ID=606.html")
- Case $TreeView1_24
- $oIE.navigate("http://www.guduge.com/tv/player.asp?ID=605.html")
- Case $TreeView1_25
- $oIE.navigate("http://www.guduge.com/tv/player.asp?ID=604.html")
- Case $TreeView1_26
- $oIE.navigate("http://www.guduge.com/tv/player.asp?ID=603.html")
- Case $TreeView1_27
- $oIE.navigate("http://www.guduge.com/tv/player.asp?ID=602.html")
- Case $TreeView1_28
- $oIE.navigate("http://www.guduge.com/tv/player.asp?ID=601.html")
- Case $TreeView1_29
- $oIE.navigate("http://www.guduge.com/tv/player.asp?ID=600.html")
- Case $TreeView1_30
- $oIE.navigate("http://www.guduge.com/tv/player.asp?ID=599.html")
- Case $TreeView1_31
- $oIE.navigate("http://www.guduge.com/tv/player.asp?ID=598.html")
- Case $TreeView1_32
- $oIE.navigate("http://www.guduge.com/tv/player.asp?ID=597.html")
- Case $TreeView1_33
- $oIE.navigate("http://www.guduge.com/tv/player.asp?ID=596.html")
- Case $TreeView1_34
- $oIE.navigate("http://www.guduge.com/tv/player.asp?ID=595.html")
- Case $TreeView1_35
- $oIE.navigate("http://www.guduge.com/tv/player.asp?ID=594.html")
- Case $TreeView1_36
- $oIE.navigate("http://www.guduge.com/tv/player.asp?ID=593.html")
- Case $TreeView1_37
- $oIE.navigate("http://www.guduge.com/tv/player.asp?ID=592.html")
- Case $TreeView1_39
- $oIE.navigate("http://www.guduge.com/tv/player.asp?ID=772.html")
- Case $TreeView1_40
- $oIE.navigate("http://www.guduge.com/tv/player.asp?ID=771.html")
- Case $TreeView1_41
- $oIE.navigate("http://www.guduge.com/tv/player.asp?ID=770.html")
- EndSwitch
- WEnd
- Func Quit()
- GUISetState(@SW_HIDE)
- DllCall($dll, "int:cdecl", "DeInitDecoration")
- DllCall($dll, "int:cdecl", "RemoveSkin")
- DllClose($dll)
- FileDelete(@TempDir & "\SkinCrafterDll.dll")
- FileDelete(@TempDir & "\Crimson.skf")
- Exit
- EndFunc ;==>Quit
|
dmqhcx88
发表于 2012-02-14 13:33:01
