• 欢迎访问奇跡の海网站,本站不上传任何资源,所有资源均来自于网络,欢迎加入奇跡の海~!奇跡の海-WordPress QQ群
  • 本站下载资源为网络上收集整理而来,并且以计算机技术研究交流为目的,版权归原作者所有,仅供大家参考,学习,不存在任何商业目的与商业用途.
  • 本站系统镜像均来自于官方原版,ed2k可视为P2P下载链接。所有操作系统默认均为试用版,如有正版密钥可以有效激活,本站不提供任何激活和相关服务。

AutoIt3(AU3源码)调用 qvod快播的二次开发实例程序

AutoIT3 奇跡の海 2年前 (2017-08-29) 854次浏览 已收录 0个评论 扫描二维码

AutoIt3(AU3源码)调用 qvod快播的二次开发实例程序

简介

快播的二次开发实例程序,以下调用方法是参照js的例子所测试的au3方法。

实例程序

#include <ButtonConstants.au3> 
#include <EditConstants.au3> 
#include <GUIConstantsEx.au3> 
#include <StaticConstants.au3> 
#include <WindowsConstants.au3> 
Local $qvod 
#Region ### START Koda GUI section ### Form= 
$Form1 = GUICreate("AU3对QVOD的二次开发实例程序----------------by:绿色风 [email]79664738@qq.com[/email]", 801, 501, 193, 130) 
$Input1 = GUICtrlCreateInput("输入快播网络资源地址 以:QVOD:// 或 http:// 开头,本地的输入影片路径 如: d:\sex\av.mp4", 3, 2, 577, 21) 
$Button1 = GUICtrlCreateButton("播放", 584, 0, 34, 25) 
$Button2 = GUICtrlCreateButton("缓冲影片", 620, 0, 62, 25) 
$Button3 = GUICtrlCreateButton("播放", 8, 472, 65, 25) 
$Button4 = GUICtrlCreateButton("停止", 80, 472, 65, 25) 
$Button5 = GUICtrlCreateButton("隐藏控制栏", 151, 472, 68, 25) 
$Button6 = GUICtrlCreateButton("静音", 224, 472, 65, 25) 
$Button9 = GUICtrlCreateButton("全屏", 224 + 70, 472, 65, 25) 
$Label1 = GUICtrlCreateLabel("", 296 + 70, 476, 170, 17) 
$Label2 = GUICtrlCreateLabel("", 608, 476, 160, 17) 
$Label3 = GUICtrlCreateLabel("", 692, 5, 55, 17) 
$Button7 = GUICtrlCreateButton("+", 756, 0, 17, 25) 
$Button8 = GUICtrlCreateButton("-", 774, 0, 18, 25) 
GUISetState(@SW_SHOW) 
#EndRegion ### END Koda GUI section ### 
_qvod_init() ;载入QVOD播放器 
While 1 
$nMsg = GUIGetMsg() 
Switch $nMsg 
Case $GUI_EVENT_CLOSE 
Exit 
Case $Button1 ;播放 输入框地址 
If GUICtrlRead($Input1) = "输入快播网络资源地址 以:QVOD:// 或 http:// 开头,本地的输入影片路径 如: d:\sex\av.mp4" Then 
MsgBox(0,"注意","你还没有输入地址") 
Else 
$qvod.url = GUICtrlRead($input1) 
EndIf 

Case $Button2 ;缓冲影片 
If GUICtrlRead($Input1) = "输入快播网络资源地址 以:QVOD:// 或 http:// 开头,本地的输入影片路径 如: d:\sex\av.mp4" Then 
MsgBox(0,"注意","你还没有输入地址") 
Else 
$qvod.StartNextDown(GUICtrlRead($input1)) 
EndIf 
Case $Button3 ;播放 
If $qvod.PlayState = 2 Then 
$qvod.play 
GUICtrlSetData($button3,"播放") 
Else 
$qvod.pause 
GUICtrlSetData($button3,"暂停") 
EndIf 
Case $Button4 ;停止 
$qvod.stop 
Case $Button5 ;控制栏 显示隐藏 
If GUICtrlRead($Button5) = "隐藏控制栏" Then 
$Qvod.Showcontrol=0 
GUICtrlSetData($Button5,"显示控制栏") 
ElseIf GUICtrlRead($Button5) = "显示控制栏" Then 
$Qvod.Showcontrol=1 
GUICtrlSetData($Button5,"隐藏控制栏") 
EndIf 
Case $Button6 ;静音 
If $qvod.Mute = 1 Then 
$qvod.Mute = 0 
GUICtrlSetData($button6,"静音") 
ElseIf $qvod.Mute = 0 Then 
$qvod.Mute = 1 
GUICtrlSetData($button6,"取消静音") 
EndIf 
Case $Button7 ;音量 + 
$qvod.volume = $qvod.volume +5 
Case $Button8 ;音量 - 
$qvod.volume = $qvod.volume -5 
Case $button9 ;全屏播放 
If $qvod.Full = 0 Then 
$qvod.Full = 1 
EndIf 
EndSwitch 
GUICtrlSetData($Label3,"音量:"&$qvod.volume&"%") 
GUICtrlSetData($Label1,"总时长"&$qvod.Duration&"秒 "&"已播时长"&$qvod.Currentpos&"秒") 
GUICtrlSetData($label2,"下载速度:"&$qvod.Downrate&" 下载进度:"&$qvod.Get_CurTaskProcess/10&"%") 
WEnd 

Func _qvod_init() ;初始化快播.... 
Global $Qvod = ObjCreate("QvodInsert.QvodCtrl.1") 
If @error Then 
MsgBox(0,"错误","检测到系统未安装快播,请安装快播再打开本软件") 
ShellExecute("http://www.kuaibo.com/") 
Exit 
EndIf 
Global $Qvod_ctrl = GUICtrlCreateObj($Qvod, 0, 26, 800, 450-5) ;创建控件 在gui中的位置与大小 
If @error Then 
MsgBox(0,"错误","检测到系统未安装快播,请安装快播再打开本软件") 
ShellExecute("http://www.kuaibo.com/") 
Exit 
EndIf 
GUICtrlSetState($Qvod_ctrl,$GUI_ENABLE) ;设置控件状态 $GUI_ENABLE 可见;$GUI_HIDE 不可见 
;===========以下的可以不用放到这个地方。=========== 
$Qvod.Showcontrol=1 ; 值为:1 显示控制栏, 0 隐藏控制栏 
$qvod.url = "qvod://22993855|3B6341F8D37361A81000FACFBC814736CA23E14C|萧亚轩_他和她的故事_2002_MV_19.rmvb|" ;播放影片地址 
;===================end=================================== 
EndFunc

;;快播  Qvod 接口 AU3 调用方法
;; 以下根据 JS 操作QVOD的方法转换成au3的
;; 虽说不是最好的,但还是可适用的
;; 如大家有更好的,请大家都交流 公开一下  
;;名称:AU3调用QVOD的二次开发帮助文档_1.0.txt

1、属性接口设置:

    $qvod.url= "qvod://28381591|0DE3E7686C2B0F626EFB5BE72424316E0649365C|林贞熙_Golden.Lady_MV_03.rmvb|" 
                ;播放文件地址。URL值格式:qvod://文件大小|文件hash值|文件名|
                
    $qvod.AutoPlay=0 ;是否自动播放。0:不自动播放  1:自动播放。默认是不自动播放。
    
    $qvod.showcontrol=1 ;是否显示控制栏,0=不显示  1= 显示 默认参数是显示
    $qvod.showcontrol  ;返回控制栏状态
    
    $qvod.NextWebPage="qvod://38972262|45CD3051C0A0FFC876B9749D9A4382B090133EE0|林贞熙_Golden.Lady.20110519.Mnet.M.CountDown_LIVE_02.rmvb|"
                    ;播放当前节目后自动导航到下一集或者其它网页的功能.默认为空即不导航。网页地址请以http://开头.
                    ;初步测试 没通过

    $qvod.Numloop=0  ;0 为不循环, -1为一直循环。0-100 循环次数
    $qvod.Numloop   ;返回循环次数

    $qvod.QvodAdUrl="http://www.hacow.me/index.php?a=show&vid=36429"
            ;网页中的 链接地址 是 qvod:// 格式时,可以在网页中用此参数指定播放前的缓冲页面地址  (注:3.0.0.58版本及将来发布的版本才支持。)

2、控制接口:

        $qvod.Play      ;播放   
        $qvod.Stop       ;停止   
        $qvod.Pause     ;暂停   
        $qvod.Currentpos = 60   ;单位以秒计算,这里是设置: 在影片一分钟的位置开始播放
        $qvod.Currentpos        ;返回的当前影片播放的时间位置
        $qvod.Duration          ;返回当前影片的时长
        $qvod.Full = 1          ;设置全屏播放方式  1,全屏  0,窗口
        $qvod.Full              ;取全屏状态     
        $qvod.Mute = 1         ;设置静音方式  1,静音  0,取消静音  
        $qvod.Mute              ;返回表静音状态
        $qovd.PlayState         ;返回当前播放状态   ;开始状态 10,正在连接中
                                ;0,准备就绪 1,停止;  2,暂停; 3,播放中; 4,缓冲中;  
                                ;5,等待中; 6,播放结束 ;7, 准备读; 8,重连中; 
                                ;9 BT种子下载中;  10,正在连接中; 11 正在停止;
        $qvod.Volume = 50       ;设置声音大小  值在 0-100 之间
        $qvod.volume            ;返回当前声音大小
        $qvod.viewframe = 0 ;设置视频框架填充   0,按窗口拉伸埴充    1,按比例填充  
                        ;注意:此条只检测了一下 viewframe 是否可用,未做拉伸测试
        $qvod.get_rate          ;获取播放文件码率
        $qvod.SoundTrack = 0 ;设置播放文件的声道
                                ;0 混合音
                                ;1 左声道
                                ;2 右声道
                                ;3 默认
                                ;4 左声道扩展到全部
                                ;5 右声道扩展到全部
        $qvod.AdjustVideo = 0 ;设置播放视频的亮度与对比度
                                ;0 视频调节
                                ;1 音频调节
                                ;2 均衡调节
                                ;3 字幕调节
                        ;;注意:此条初步测试失败(待详细测试)
        $qvod.MainInfo          ;返回播放文件的路径
        $qvod.Get_CurTaskProcess    ;返回播放文件的下载进度
        $qvod.Downrate              ;返回播放文件的下载速度
        $qvod.StartNextDown("资源地址url")  ; 缓冲 下一集 支持http或者QVOD格式两种协议
                                            ;不能自动播放缓冲的下一集  用下面
                                                    ;$qvod.url="资源地址url"   再次载入播放。。。
                                                    ;$qvod.NextWebPage="资源地址url"  下集继续 ( .NextWebPage没测试成功)
                                            ;注意:缓冲下一集时,qvod是要等到当前播放的下载完成后才开始进行下一集的缓冲

3,快播对象 au3的引用:
      以下是首先载入qvod窗体 ,以上的指令才起到操作作用。。。

Func _qvod_init() ;初始化快播....
    Global $Qvod = ObjCreate("QvodInsert.QvodCtrl.1")  ;创建快播类对象
    If @error Then 
        MsgBox(0,"错误","检测到系统未安装快播,请安装快播再打开本软件")
        ShellExecute("http://www.kuaibo.com/")

        Exit
    EndIf 

    Global $Qvod_ctrl = GUICtrlCreateObj($Qvod, 8, 82, 449, 319) ;创建控件 在gui中的 位置 与 大小
    If @error Then 
        MsgBox(0,"错误","检测到系统未安装快播,请安装快播再打开本软件")
        ShellExecute("http://www.kuaibo.com/")
        Exit
    EndIf 
    
    GUICtrlSetState($Qvod_ctrl,$GUI_ENABLE)  ;设置控件状态  $GUI_ENABLE 可见;$GUI_HIDE 不可见
 EndFunc

 

#cs
;; ================以下两个是不会的=========期待高手解决=======
设置控件所属的父窗口:
    void PutParentWnd(long hWnd);
    long hWnd 为父窗口句柄
        如果设置该窗口后,当用户点击浮动的1倍,2倍或者右键菜单1倍,2倍,0.5倍时会向该窗口发送消息
        :: PostMessage(hWnd, value, 0, 0); 
    value:
        case WM_USER + 335://0.5倍
        case WM_USER + 336://1倍
        case WM_USER + 337://2倍

控件函数调用:
    javastricpt: var rexml = QvodPlayer.CallFunction(xml);
    现在暂只支持通过该函数获取播放文件视频原始宽高
    脚本函数如下:
    var xml = "<Invoke name=\"Width_Height\" returntype=\"xml\"></Invoke>";
    var rexml = QvodPlayer.CallFunction(xml);
    alert(rexml);
    输入为:<invoke name="QvodVersion" returntype="xml"></invoke>
    输出为:<invoke name="QvodVersion" returntype="xml" vn="%s" vs="%d"></invoke>
    %s表示具体的版本号如3.0.0.59 %d如果是0表示是标准版,1则表示为是增强版。
#ce

版权声明:本站所有文章和资源使用CC BY-NC-SA 4.0协议授权发布 , 转载应当以相同方式注明文章来自“SeaOMC.COM->AutoIt3(AU3源码)调用 qvod快播的二次开发实例程序!在下边可以分享本文哦!
喜欢 (0)
[]
分享 (0)
奇跡の海
关于作者:
一个WordPress菜鸟!
发表我的评论
取消评论

表情 贴图 加粗 删除线 居中 斜体 签到

Hi,您需要填写昵称和邮箱!

  • 昵称 (必填)
  • 邮箱 (必填)
  • 网址