易語言解析音悅臺MV提供超清下載地址的代碼

今天小編就爲大家分享一篇關於易語言解析音悅臺MV提供超清下載地址的代碼,小編覺得內容挺不錯的,現在分享給大家,具有很好的參考價值,需要的朋友一起跟隨小編來看看吧

音悅臺MV地址解析

此功能需要加載精易模塊5.6

.版本 2
.支持庫 exui
.支持庫 EThread
.程序集 窗口程序集_啓動窗口
.程序集變量 標清, 文本型
.程序集變量 高清, 文本型
.程序集變量 超清, 文本型
.子程序 _按鈕EX1_左鍵單擊
按鈕EX2.可視EX = 假
按鈕EX3.可視EX = 假
按鈕EX4.可視EX = 假
.判斷開始 (編輯框EX1.內容 = “”)
  信息框EX (, “告警 :”, , “先輸入MV地址才能解析的哦”, , { “好嘛” }, , , , , , , )
.默認
.判斷結束
.判斷開始 (尋找文本 (編輯框EX1.內容, “http://v.yinyuetai.com/video/”, , 假) = 1)
  啓動線程 (&json獲取真實地址, , )
.默認
  信息框EX (, “告警 :”, , “你輸入的地址不對哦,只能解析音悅臺的MV哦”, , { “好嘛” }, , , , , , , )
.判斷結束
.子程序 json獲取真實地址
.局部變量 json, 類_json
.局部變量 ID, 文本型
.局部變量 正則, 正則表達式類
正則.創建 (“/(\d+)”, 編輯框EX1.內容)
ID = 正則.取子匹配文本 (1, 1)
json.解析 (文本_取出中間文本 (編碼_utf8到gb2312 (網頁_訪問S (“http://www.yinyuetai.com/api/info/get-video-urls?callback=callback&videoId=” + ID + “&_=” + 時間_取現行時間戳 (), , , , , , )), “callback(”, “)”, , ))
.判斷開始 (json.取通用屬性 (“message”) ≠ “”)
  信息框EX (, “錯誤信息 :”, , “解析失敗!” + #換行符 + “失敗原因:” + json.取通用屬性 (“message”), , { “知道了” }, , , , , , , )
  返回 ()
.默認
.判斷結束
標清 = json.取通用屬性 (“hcVideoUrl”)
高清 = json.取通用屬性 (“hdVideoUrl”)
超清 = json.取通用屬性 (“heVideoUrl”)
.判斷開始 (標清 ≠ “”)
  按鈕EX2.可視EX = 真
.默認
.判斷結束
.判斷開始 (高清 ≠ “”)
  按鈕EX3.可視EX = 真
.默認
.判斷結束
.判斷開始 (超清 ≠ “”)
  按鈕EX4.可視EX = 真
.默認
.判斷結束
.子程序 _按鈕EX2_左鍵單擊
.局部變量 信息框返回, 整數型
信息框返回 = 信息框EX (, “信息 :”, , “你目前選擇的是標清!” + #換行符 + “你要複製MV真實地址還是在線播放預覽呢?”, , { “我要在線播放”, “我要複製下載地址” }, , , , , , , )
.判斷開始 (信息框返回 = 2)
  置剪輯板文本 (標清)
  信息框EX (, “信息 :”, , “複製成功” + #換行符 + 標清, , { “好的” }, , , , , , , )
.判斷 (信息框返回 = 1)
  網頁_打開指定網址 (標清)
.默認
.判斷結束
.子程序 _按鈕EX3_左鍵單擊
.局部變量 信息框返回, 整數型
信息框返回 = 信息框EX (, “信息 :”, , “你目前選擇的是高清!” + #換行符 + “你要複製MV真實地址還是在線播放預覽呢?”, , { “我要在線播放”, “我要複製下載地址” }, , , , , , , )
.判斷開始 (信息框返回 = 2)
  置剪輯板文本 (高清)
  信息框EX (, “信息 :”, , “複製成功” + #換行符 + 高清, , { “好的” }, , , , , , , )
.判斷 (信息框返回 = 1)
  網頁_打開指定網址 (高清)
.默認
.判斷結束
.子程序 _按鈕EX4_左鍵單擊
.局部變量 信息框返回, 整數型
信息框返回 = 信息框EX (, “信息 :”, , “你目前選擇的是超清!” + #換行符 + “你要複製MV真實地址還是在線播放預覽呢?”, , { “我要在線播放”, “我要複製下載地址” }, , , , , , , )
.判斷開始 (信息框返回 = 2)
  置剪輯板文本 (超清)
  信息框EX (, “信息 :”, , “複製成功” + #換行符 + 超清, , { “好的” }, , , , , , , )
.判斷 (信息框返回 = 1)
  網頁_打開指定網址 (超清)
.默認
.判斷結束

運行結果:

總結

以上就是這篇文章的全部內容了,希望本文的內容對大家的學習或者工作具有一定的參考學習價值,謝謝大家對神馬文庫的支持。如果你想了解更多相關內容請查看下面相關鏈接

發表評論
所有評論
還沒有人評論,想成為第一個評論的人麼? 請在上方評論欄輸入並且點擊發布.
相關文章