IT天空

 找回密码
 加入我们

手机号码,快捷登录

搜索

[分享] AU3消逝的过去视频教学合集-采集版

[复制链接]
skysmile 发表于 2022-2-21 10:13:37 | 显示全部楼层 |阅读模式

本帖最后由 skysmile 于 2022-2-21 10:16 编辑
采集消逝的过去在优酷的视频教程,并用第三方解析成m3u8格式链接,在线播放,无广告,高清。
1.png

  1. #NoTrayIcon
  2. #RequireAdmin
  3. #AutoIt3Wrapper_Outfile=消逝的过去Autoit3视频教程.Exe
  4. #AutoIt3Wrapper_Compression=4
  5. #AutoIt3Wrapper_UseX64=n
  6. #AutoIt3Wrapper_Res_Fileversion=1.0
  7. #AutoIt3Wrapper_Res_ProductVersion=1.0
  8. #AutoIt3Wrapper_Res_Language=2052
  9. #AutoIt3Wrapper_Run_Tidy=y

  10. #include <ButtonConstants.au3>
  11. #include <GUIConstantsEx.au3>
  12. #include <GUIListBox.au3>
  13. #include <StaticConstants.au3>
  14. #include <WindowsConstants.au3>
  15. #include <Inet.au3>
  16. #include <IE.au3>
  17. #include <array.au3>
  18. #include <GuiListView.au3>
  19. #include <GuiMenu.au3>
  20. #include "WinHttp.au3"

  21. Global $Video_list[1][2], $Lsv_Video
  22. Const $HTML = '<!DOCTYPE html><html><head><meta charset="utf-8"><meta http-equiv="x-ua-compatible"content="IE=edge">' & _
  23.                 '<meta name="viewport"content="width=device-width, height=device-height, initial-scale=1, maximum-scale=1, minimum-scale=1, user-scalable=no"/>' & _
  24.                 '<title>标题</title><link rel="stylesheet"/>' & _
  25.                 '<script type="text/javascript"charset="utf-8"src="https://g.alicdn.com/de/prismplayer/2.9.17/aliplayer-min.js"></script></head>' & _
  26.                 '<body style="overflow-y:hidden;overflow-x:hidden; margin:0"><div class="prism-player"id="player-con"></div>' & _
  27.                 '<script>var player=new Aliplayer({"id":"player-con","source":"视频源","width":"720px","height":"375px","autoplay":false,"isLive":false,"rePlay":false,' & _
  28.                 '"videoHeight":"","playsinline":true,"preload":true,"autoPlayDelay":"3","autoPlayDelayDisplayText":"视频正在缓冲...","controlBarVisibility":"hover",' & _
  29.                 '"videoWidth":"","useH5Prism":true,"skinLayout":[{"name":"bigPlayButton","align":"blabs","x":30,"y":80},{"name":"H5Loading","align":"cc"},{"name":"errorDisplay",' & _
  30.                 '"align":"tlabs","x":0,"y":0},{"name":"infoDisplay"},{"name":"tooltip","align":"blabs","x":0,"y":56},{"name":"controlBar","align":"blabs","x":0,"y":0,' & _
  31.                 '"children":[{"name":"progress","align":"blabs","x":0,"y":44},{"name":"playButton","align":"tl","x":15,"y":12},{"name":"timeDisplay","align":"tl","x":10,"y":7},' & _
  32.                 '{"name":"fullScreenButton","align":"tr","x":10,"y":12},{"name":"setting","align":"tr","x":15,"y":12},{"name":"volume","align":"tr","x":5,"y":10}]}]},' & _
  33.                 'function(player){console.log("The player is created")});document.oncontextmenu=function(){return false}</script></body></html>'

  34. $hGUI = GUICreate("消逝的过去Autoit3视频", 566, 361, 1037, 357)
  35. GUISetFont(9, 400, 0, "微软雅黑")
  36. $Lsv_Video = GUICtrlCreateListView("视频名|", 5, 5, 208, 330, BitOR($LVS_SORTASCENDING, $LVS_SINGLESEL, $LVS_NOCOLUMNHEADER, $LVS_EX_GRIDLINES))
  37. _GUICtrlListView_SetColumnWidth($Lsv_Video, 0, 180)
  38. $Label1 = GUICtrlCreateLabel("说明" & @LF & _
  39.                 "1:视频来自于优酷" & @LF & _
  40.                 "2:双击列表即可播放,或许你可能要等一哈" & @LF & _
  41.                 "3:由于调用第三方解析,可能有点慢,或者失败" & @LF & _
  42.                 "4:弹出播放禁用最大化按钮,如果想最大化请点页面右下角的最大化", 230, 16, 315, 112)

  43. $Label2 = GUICtrlCreateLabel("", 230, 160, 315, 120)
  44. GUICtrlSetColor(-1, 0xFF0000)
  45. GUICtrlSetFont(-1, 12, 400)
  46. $Button1 = GUICtrlCreateButton("AU3中文论坛", 230, 292, 100, 32)
  47. $Button2 = GUICtrlCreateButton("AU3英文论坛", 340, 292, 100, 32)
  48. $Button3 = GUICtrlCreateButton("QQ群:318031798", 450, 292, 100, 32)
  49. GUISetState(@SW_SHOW)

  50. Video() ;提前加载视频到列表
  51. GUIRegisterMsg($WM_NOTIFY, "WM_NOTIFY")

  52. While 1
  53.         $nMsg = GUIGetMsg()
  54.         Switch $nMsg
  55.                 Case $GUI_EVENT_CLOSE
  56.                         Exit
  57.                 Case $Button1
  58.                         ShellExecute("https://www.autoitx.com/")
  59.                 Case $Button2
  60.                         ShellExecute("https://www.autoitscript.com/forum/")
  61.                 Case $Button3
  62.                         ShellExecute("https://qm.qq.com/cgi-bin/qm/qr?k=sTydkYhuLhqeQP3FUDYcDW8DeK9P7Rbf&jump_from=webapi")

  63.         EndSwitch
  64. WEnd

  65. ;提取所有教程列表
  66. Func Video()
  67.         _GUICtrlListView_DeleteAllItems($Lsv_Video)
  68.         $Source = BinaryToString(_INetGetSource("http://i.youku.com/i/UMjQ1MDI0NDQ4/videos?spm=a2hzp.%208244740%20.0.0&qq-pf-to=pcqq.group", False), 4)
  69.         $aArray = StringRegExp($Source, '<a class="videoitem_videolink aplus_exp aplus_clk" href="([^<>]+?)" title="([^<>]+?)" target="_blank"', 3)
  70.         If IsArray($aArray) And Mod(UBound($aArray), 2) = 0 Then
  71.                 ReDim $Video_list[UBound($aArray) / 2][2]
  72.                 For $i = 0 To UBound($Video_list) - 1
  73.                         $Video_list[$i][0] = StringMid($aArray[$i * 2 + 1], 1) ;标题
  74.                         $Video_list[$i][1] = "https:" & $aArray[$i * 2] ;链接
  75.                         _GUICtrlListView_AddItem($Lsv_Video, $Video_list[$i][0])
  76.                 Next
  77.         EndIf
  78. EndFunc   ;==>Video

  79. ;列表事件
  80. Func WM_NOTIFY($hWndGUI, $MsgID, $WParam, $LParam)
  81.         Local $tagNMHDR, $Event, $IDFrom, $Index, $Title, $New_HTML, $URL
  82.         Local $tagNMHDR = DllStructCreate("int;int;int;", $LParam)
  83.         If @error Then Return $GUI_RUNDEFMSG
  84.         $IDFrom = DllStructGetData($tagNMHDR, 2)
  85.         $Event = DllStructGetData($tagNMHDR, 3)
  86.         $tagNMHDR = 0
  87.         Switch $IDFrom
  88.                 Case $Lsv_Video ;列表
  89.                         Switch $Event
  90.                                 Case $NM_CLICK ;单击

  91.                                 Case $NM_DBLCLK ;双击
  92.                                         $Index = _GUICtrlListView_GetSelectedIndices($Lsv_Video)
  93.                                         $Text = _GUICtrlListView_GetItemText($Lsv_Video, Number($Index)) ;由于获取的$Index不是数值,这里需要用Number处理下
  94.                                         GUICtrlSetData($Label2, $Text & @CRLF & ">>解析中,请稍候")
  95.                                         For $i = 0 To UBound($Video_list) - 1
  96.                                                 If $Text = $Video_list[$i][0] Then
  97.                                                         $URL = m3u8($Video_list[$i][1])
  98.                                                         $Title = $Video_list[$i][0]
  99.                                                         m3u8_play($Title, $URL)
  100.                                                         GUICtrlSetData($Label2, "")
  101.                                                 EndIf
  102.                                         Next
  103.                         EndSwitch
  104.         EndSwitch
  105. EndFunc   ;==>WM_NOTIFY


  106. Func m3u8($URL) ;利用第三方解析出m3u8地址
  107.         ;https://www.moyicen.xyz/export.php
  108.         $hOpen = _WinHttpOpen("User-Agent: Mozilla/5.0 (Windows NT 6.1; WOW64) AppleWebKit/537.36 (KHTML, like Gecko) Chrome/50.0.2661.87 Safari/537.36")
  109.         $hConnect = _WinHttpConnect($hOpen, "https://www.moyicen.xyz")
  110.         $sAdditionalData = 'urls=' & $URL & ''
  111.         $sReturned = _WinHttpSimpleSSLRequest($hConnect, "POST", "export.php", Default, $sAdditionalData)
  112.         $name = StringRegExp($sReturned, '"data":"([\s\S]*?)"', 3)
  113.         $txt = BinaryToString(_INetGetSource("https://www.moyicen.xyz/download/" & $name[0], False), 4)
  114.         $txt = StringRegExpReplace($txt, "([\s\S]*?)http", "http")
  115.         $txt = StringReplace($txt, Chr(10), "")
  116.         $txt = StringReplace($txt, Chr(13), "")
  117.         Return $txt
  118. EndFunc   ;==>m3u8


  119. Func m3u8_play($Title, $URL) ;弹出IE播放视频
  120.         $New_HTML = StringRegExpReplace($HTML, "标题", $Title)
  121.         $New_HTML = StringRegExpReplace($New_HTML, "视频源", $URL)
  122.         $oIE = ObjCreate("InternetExplorer.Application.1")
  123.         $oIE.menubar = 0
  124.         $oIE.AddressBar = 0
  125.         $oIE.TooBar = 0
  126.         $oIE.StarusBar = 0
  127.         $oIE.visible = 1
  128.         $oIE.RegisterAsBrowser = 1
  129.         $oIE.Resizable = 0
  130.         $oIE.width = 730
  131.         $oIE.height = 410
  132.         _IENavigate($oIE, "about:blank")
  133.         _IEDocWriteHTML($oIE, $New_HTML)
  134. EndFunc   ;==>m3u8_play
复制代码
已编译_消逝的过去Autoit3视频教程.zip (714.61 KB, 下载次数: 13)

WinHttp_UDF.zip (29.79 KB, 下载次数: 3)

消逝的过去Autoit3视频源码.zip (3.33 KB, 下载次数: 2)




2.PNG
最近访问 头像模式 列表模式
y283146775 发表于 2022-2-21 11:50:05 | 显示全部楼层

活跃 15769| 技术 22| 互助 28| 钻石 300

好厉害的样子
柠檬十三 发表于 2022-3-14 10:34:12 | 显示全部楼层

活跃 17| 技术 0| 互助 0| 钻石 0


好厉害,下载看看
您需要登录后才可以回帖 登录 | 加入我们

本版积分规则

skysmile

252

活跃

20

技术

15

互助
签到任务
最火的业界新闻
  • 小米总裁透露小米汽车进展:计划不变 正研
  • 小米一季度净利润腰斩 中国智能手机月销量
  • 未来苹果键盘可能有一个可拆卸按键作为鼠标
  • 今年手机市场有点难?日媒称安卓系砍单两成
  • 惠普推出2022款Spectre/Envy系列笔记本电脑
  • 国内智能手机销量连续10周下滑 连iPhone也
  • 小米2022年第一季度营收734亿元 净利润29亿
  • GTX 1630千元亮机卡全曝光:RX 6400轻松碾
  • 显卡行情调查:RX 6000比MSRP溢价5% RTX 30
  • 消息称NVIDIA GeForce GTX 1630显卡将于5月
炫酷的硬件Show
  • MARK 1 - 设计型 PC 与垂直风道
  • 好的大王,没问题大王
  • 振华SUPER FLOWER 铜皇450W 铜牌电源
  • 比小更小,Mini-STX装机
  • 华擎X99E-ITX + 银欣ML06 装机记
  • 最强双路泰坦硬管水冷 制作流程
  • 银欣FT02,双路E5工作站
  • 迟到的定制机箱小钢炮清理灰尘
  • 乔思伯UMX1 Plus,小巧的家用综合主机
  • 分体水冷第二弹-Inwin 805 infinity
有趣的美图分享
  • 老兄 这水怎么越来越热呀
  • 没电都急哭了
  • 没毛病,但又觉得哪不对
  • 其实我也是可乐教的
  • 诡计多端的销售
  • 反客为主
  • 反重力楼梯
  • 这buff叠满了,可惜有个de的前缀
  • 8bit猫
  • 这猕猴桃真青椒
关注官方微信
快速回复 返回顶部 返回列表