Am云点播v2.4.3源码

不仅仅是云点播，更加入了最全的多线程网络电视直播
源码可直接放置网站根目录实行在线播放。也可创建窗口调用。

注：本版如失效不再更新，大家可安装鲁夫的爱脚本插件进行在线播放。方法例子如下：
先下载安装以Chrome为内核的浏览器，这里以安装金山猎豹浏览器为例
金山猎豹浏览器下载地址：http://www.liebao.cn/

下载安装好金山猎豹浏览器后，启动金山猎豹浏览器，在地址栏输入以下地址：
http://userscripts.org/scripts/show/138814

打开地址后点击右上角lnstall按钮按提示安装插件。安装完成后打开：
http://vod.xunlei.com登录一个免费账户（没有注册一个，无需VIP）
添加一个任务，点击播放





AU3调用源码：

1. 
   
2. #NoTrayIcon
   
3. #Region ;**** 参数创建于 ACNWrapper_GUI ****
   
4. #AutoIt3Wrapper_icon=10.ico
   
5. #AutoIt3Wrapper_outfile=Am云点播精简版.exe
   
6. #AutoIt3Wrapper_Compression=4
   
7. #AutoIt3Wrapper_UseUpx=n
   
8. #AutoIt3Wrapper_Res_Description=AM电脑吧 https://www.ampc8.com/
   
9. #AutoIt3Wrapper_Res_Fileversion=2.4.3.0
   
10. #AutoIt3Wrapper_Res_LegalCopyright=(C) 版权所有@翻版随便
    
11. #AutoIt3Wrapper_Res_Field=CompanyName|编写:dmqhcx88
    
12. #EndRegion ;**** 参数创建于 ACNWrapper_GUI ****
    
13. #include <StaticConstants.au3>
    
14. #include <ButtonConstants.au3>
    
15. #include <GUIConstantsEx.au3>
    
16. #include <WindowsConstants.au3>
    
17. #include <Process.au3>
    
18. #include<ie.au3>
    
19. #Include <ACN_MISC.au3>
    
20. Local $$$$A[10]
    
21. DirCreate(@TempDir & "\vod")
    
22. DirCreate(@TempDir & "\vod\js")
    
23. FileInstall("js\ajaxupload.min.js", @TempDir & "\vod\js\ajaxupload.min.js")
    
24. FileInstall("js\base64.min.js", @TempDir & "\vod\js\base64.min.js")
    
25. FileInstall("js\bv.js", @TempDir & "\vod\js\bv.js")
    
26. FileInstall("js\jquery.min.js", @TempDir & "\vod\js\jquery.min.js")
    
27. FileInstall("Am.html", @TempDir & "\vod\Am.html")
    
28. #Region ### START Koda GUI section ### Form=
    
29. $$$$Form1 = GUICreate("Am云点播v2.4.3精简版", 861, 588, -1, -1)
    
30. $$$$A[1] = GUICtrlCreateMenu("菜单操作")
    
31. $$$$A[2] = GUICtrlCreateMenuItem("电视直播", $$$$A[1])
    
32. $$$$A[3] = GUICtrlCreateMenuItem("访问论坛", $$$$A[1])
    
33. $$$$A[4] = GUICtrlCreateMenuItem("退出程序", $$$$A[1])
    
34. Dim $$$$Dll
    
35. FileInstall("Skin.dll", @TempDir & "\Skin.dll", 1)
    
36. FileInstall("AM54.she", @TempDir & "\AM54.she", 1)
    
37. Global $$$$SkinDll = DllOpen(@TempDir & "\Skin.dll")
    
38. DllCall($$$$SkinDll, "int", "SkinH_AttachEx", "str", @TempDir & "\AM54.she", "str", "mhgd")
    
39. DllCall($$$$SkinDll, "int", "SkinH_SetAero", "int", 0)
    
40. $$$$oIE = ObjCreate("Shell.Explorer.2")
    
41. $$$$GUIActiveX = GUICtrlCreateObj($$$$oIE, -25, -27, 910, 600)
    
42. $$$$oIE.navigate(@TempDir & "\vod\Am.html", 0)
    
43. GUISetState(@SW_SHOW)
    
44. #EndRegion ### END Koda GUI section ###
    
45. While 1
    
46. $$$$nMsg = GUIGetMsg()
    
47. Switch $$$$nMsg
    
48.   Case $$$$GUI_EVENT_CLOSE,$$$$A[4]
    
49.    GUISetState(@SW_HIDE)
    
50.    DllCall($$$$Dll, "int", "DeInitDecoration")
    
51.    DllCall($$$$Dll, "int", "RemoveSkin")
    
52.    DllClose($$$$Dll)
    
53.    FileDelete(@TempDir & "\Skin.dll")
    
54.    FileDelete(@TempDir & "\AM54.she")
    
55.    DirRemove(@TempDir & "\vod", 1)
    
56.    Exit
    
57.   Case $$$$A[2]
    
58. $$$$oIE.navigate(@TempDir & "\vod\Am.html", 0)
    
59.   Case $$$$A[3]
    
60. ShellExecute(<A href="https://www.ampc8.com/">https://www.ampc8.com/</A>)
    
61. EndSwitch
    
62. WEnd

复制代码

已经和谐了：
源码：

云点播，不错，还没学习到此地步，先过过眼瘾吧。

       哈哈。论坛有您更精彩。

不愧是技术达人，感谢提供技术支持！

dmqhcx88 发表于 2012/8/21 14:02
源码的第60行更改为：ShellExecute("https://www.ampc8.com/")
不知为何论坛在保存代码时多了几个不明字符无法 ...

不能以代码框为准..也无需全部贴出代码，附件代码完整就可以了，其他无非是au3版本不同，函数问题。

[帐号异常] 发表于 2012/8/21 11:20
报告楼主，代码为啥出错呢，"C:\Documents and Settings\Administrator\桌面\ydb.au3"(19,10) : error: ...

源码的第60行更改为：ShellExecute("https://www.ampc8.com/")
不知为何论坛在保存代码时多了几个不明字符无法更改。

    报告楼主，代码为啥出错呢，"C:\Documents and Settings\Administrator\桌面\ydb.au3"(19,10) : error: 不能打开包含文件 <ACN_MISC.au3>.
#Include <ACN_MISC.au3>
~~~~~~~~~^
"C:\Documents and Settings\Administrator\桌面\ydb.au3"(60,14) : error: 表达式错误
ShellExecute(<
~~~~~~~~~~~~~^
"C:\Documents and Settings\Administrator\桌面\ydb.au3"(60,59) : error: 表达式错误 (非法字符)
ShellExecute(<A >http:
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~^
C:\Documents and Settings\Administrator\桌面\ydb.au3 - 3 错误, 0 警告

哇，收费好贵，哈哈，还是用精简的吧。

vitas5566 发表于 2012/8/14 08:32
搂主 用这个看电视被杀掉了,

AU3程序过不了杀软，请添加至信任白名单使用！