Qvod下载器 For Linux 已经与浏览器插件关联!- Community

Qvod下载器 For Linux 已经与浏览器插件关联!

社区开发 2.8w views · 54 replies ·

deepin

2012-04-15 01:43

Author

下载地址：http://code.google.com/p/p2p-mediaplayer/downloads/list
下载器文件名(deb)：LvodDownLoader-3.0.0-testing.deb
下载器文件名(ypk)：lvoddownloader_3.0.0-any-testing.ypk
chromium插件文件名：qvodurlfinder_0.4.2_chromium.tar.gz
firefox插件文件名： qvodurlfinder_2.2.xpi

通过Wine——Qvod的在线安装程序实现的 , 但是在线安装程序已经处理过了，不会显示界面。

安装好之后　可以点击界面上的配置按钮，在弹出的配置界面把下载目录和默认播放器设置一下。

chromium插件安装和使用：
打开chromium ->右上角小扳手菜单->工具->扩展程序->开发人员模式->载入正在开发的扩展程序->选择解压缩的安装包->启用插件。刷新播放页面，然后ctrl+q
会提取页面的qvod地址然后自动发送到下载器的播放列表中（需要首先启动下载器！）。想看的电影添加完成后点击“全部下载”，可以点击播放列表里的条目查看下载进度。

firefox插件安装和使用：
打开firefox->文件->打开文件->选择下载好的xpi文件->安装。重启后即可使用。然后ctrl+e
会提取页面的qvod地址然后自动发送到下载器的播放列表中（需要首先启动下载器！）。想看的电影添加完成后点击“全部下载”，可以点击播放列表里的条目查看下载进度。

Q群：124782742

　　在此特别感谢Coollove和hawking两位前辈的辛苦劳动！

实在对不住大家，因为前段时间有些忙，所以开发工作暂停了，现在开始恢复开发！

此次的放出的3.0测试版其实早已成型，只是一直没发出来.

由于使用的是qvod的在线安装模块实现下载功能，并没有分析协议边下边看有些困难，故此功能已取消！

在此需要说明一点，并不是所有qvod影音站的地址都能支持的，有些支持有些不支持！如果遇到下载不了的，请换一个网站！

另外还有一点需要说明的是由于本软件使用的是qvod在线安装模块实现下载，那么它就需要有一个等待时间，并不是点了“开始下载”就立即会有进度的！！！！

在此推荐一个在我这里测试可用的影音站:www.dy120.com

安装完成后,程序启动时会提示更新，请先更新一下!

Reply Like 0 Favorite View the author

All Replies

2 / 3

wc******[email protected]

deepin

2012-05-03 00:39

#21

新版本已经发布，内容已更新

Reply Like 0 View the author

pp123

deepin

2012-05-06 06:24

#22

上一个安装包有问题重下一个吧

我想请问下，我的smplayer播放rmvb（就是下到一半的那种文件）只有声音没有图像，怎么改成gnome mplayer啊？我把配置里的名字改了，不管用

Reply Like 0 View the author

wc******[email protected]

deepin

2012-05-08 19:29

#23

[quote]上一个安装包有问题重下一个吧

我想请问下，我的smplayer播放rmvb（就是下到一半的那种文件）只有声音没有图像，怎么改成gnome mplayer啊？我把配置里的名字改了，不管用[/quote]

你改完之后要把smplayer关掉重新打开

Reply Like 0 View the author

Coollove

deepin

2012-05-09 19:12

#24

浏览器插件可以增加http to qvod 转换请参照：

http://www.qvod163.com/http2qvod/

Copy the Code

能解出这个算法么？

http://up2.3gdyy.com:8032/193329377/E14 ... EAC317B77/[3G高清影院]霹雳游侠第1季_04.rmvb
转换后
qvod://193329377|11097c69d1fca94d5d837e ... 48af7f897|[24cj.com][3g高清影院]霹雳游侠第1季_04.rmvb|

http://up2.3gdyy.com:8032/193329377/000 ... 000000000/[3G高清影院]霹雳游侠第1季_04.rmvb
转换后
qvod://193329377|d2940e7979d2940e9e34a5 ... 979d2940e|[24cj.com][3g高清影院]霹雳游侠第1季_04.rmvb|

http://up2.3gdyy.com:8032/193329377/111 ... 111111111/[3G高清影院]霹雳游侠第1季_04.rmvb
转换后
qvod://193329377|f0b62c5bf0b62c5bf0b62c ... bf0b62c5b|[24cj.com][3g高清影院]霹雳游侠第1季_04.rmvb|

其中

E14E398801B4539AC70BB8B3BD15FE2EAC317B77 -> 11097c69d1fca94d5d837e1ea8bff2248af7f897

0000000000000000000000000000000000000000 -> d2940e7979d2940e9e34a543d2940e7979d2940e

1111111111111111111111111111111111111111 -> f0b62c5bf0b62c5bf0b62c5bf0b62c5bf0b62c5b

Reply Like 0 View the author

Coollove

deepin

2012-05-09 20:34

#25

<%
response.Charset="gbk"
'¹«ÓÃº¯Êý¿ªÊŒ
Function BytesToBstr(Body,Cset)
Dim Objstream
Set Objstream = Server.CreateObject("adodb.stream")
objstream.Type = 1
objstream.Mode =3
objstream.Open
objstream.Write body
objstream.Position = 0
objstream.Type = 2
objstream.Charset = Cset
BytesToBstr = objstream.ReadText
objstream.Close
set objstream = nothing
End Function
Function GetHttpPage(RefererUrl,GetUrl)
Dim xmlHttp
Dim RetStr
Set xmlHttp = CreateObject("Msx" & "ml2.XM" & "LHT" & "TP")
xmlHttp.Open "Get", GetUrl, False
xmlHttp.setRequestHeader "Content-Type", "application/x-www-form-urlencoded"
xmlHttp.setRequestHeader "Referer", RefererUrl
xmlHttp.Send()
If Err.Number <> 0 Then
Set xmlHttp=Nothing
GetHttpPage = "$False$"
Exit Function
End If
GetHttpPage=bytesToBSTR(xmlHttp.responseBody,"GB2312")
Set xmlHttp = nothing
End Function
Function HttpToQvod(httpurl)
Dim regEx, Match, Matches,httpurltemp
httpurltemp="http://www.qvodsou.com/http2qvod/http2qvod.do?url=" & httpurl
Set regEx = New RegExp
regEx.Pattern = "×ª»»:<\/td>(.*?)<\/td>"
regEx.IgnoreCase = True
regEx.Global = False
Set Matches = regEx.Execute(GetHttpPage("http://www.qvodsou.com/http2qvod/",httpurltemp))
For Each Match in Matches
HttpToQvod=Match.SubMatches(0)
Next
End Function
Function removeSiteName(qvodurl)
Dim regEx, Match, Matches
Set regEx = New RegExp
regEx.Pattern = "\[[^\]]*?\]"
regEx.IgnoreCase = True
regEx.Global = False
removeSiteName=regEx.Replace(qvodurl,"")
End Function
'¹«ÓÃº¯ÊýœáÊø
%>
<%
Dim action:action=GetForm("action", "get")
Dim delmode:delmode=GetForm("delmode", "get")
Select case action
case "http2qvod" : Header:change:Footer
case else : Header:main:Footer
End Select
Sub Header%>
<%
End Sub
Sub Footer
%>

<%echoRunTime%>

ÃâÔðËµÃ÷:±Ÿ²åŒþÖ»¹©œ»Á÷Ê¹ÓÃ£¬¶Ô±Ÿ²åŒþµÄ·Ç·šÓÃÍŸ±ŸÈËžÅ²»žºÔð¡£

End Sub

Sub main

0nclick="window.location='?action=http2qvod&sitename='+document.getElementById('sitename').value+'&delmode='+(document.getElementById('delmode').checked?1:0);" />

¹ãžæÓòÃû£º

(Èç£ºqvod://305043178|BD5D8CEF9A8C39D4FFC656F75B1F4C57AF6DFDB7|[xxx.com]xxxx.rm| )

ÊÇ·ñÉŸ³ý²»ÄÜ×ª»»ÊýŸÝ

End Sub

Sub change

'echo "ÄÚÖÃÊýŸÝ¹² "&qvoddata.Count&" Ìõ
"

Dim sitename:sitename=GetForm("sitename", "get")

if isNul(sitename) then sitename=""

dim Qe,linkArray,i,n

set Qe = mainClassobj.createObject("MainClass.DataPage")

Qe.Query "select m_id,m_playdata from {pre}data where m_playdata like '%qvod%' and m_playdata like '%http://%'"

Qe.absolutepage=1

Qe.pagesize=6

linkArray = Qe.GetRows()

if Qe.recordcount>0 Then

n=ubound(linkArray,2)

Else

die "ÊýŸÝ×ª»»Íê³É£¡"

End If

Dim regEx, Match, Matches

Dim httpurl,qvodurl,tempdata,ischange,httpurla,qvodurla

for i=0 to n

tempdata=linkArray(1,i)

isChange=False

Set regEx = New RegExp

regEx.Pattern = "\$(http://[^\$]+?)\$qvod"

regEx.IgnoreCase = True

regEx.Global = True

Set Matches = regEx.Execute(tempdata)

For Each Match in Matches

httpurl=Match.SubMatches(0)

echo "http: "&httpurl&"
"

httpurla = Split(httpurl,"/")

If qvoddata.Exists(httpurla(4)) Then

qvodurl="qvod://"&httpurla(3)&"|"&qvoddata.Item(httpurla(4))&"|"&httpurla(5)&"|"

'echo "×ª»»·œÊœ£ºÄÚÖÃ×ª»»
"

Else

qvodurl=HttpToQvod(httpurl)

'echo "×ª»»·œÊœ£ºÇëÇó×ª»»
"

End If

qvodurl=removeSiteName(qvodurl)

qvodurla = Split(qvodurl,"|")

If ubound(qvodurla)>1 Then

If sitename<>"" Then

qvodurl=replace(qvodurl,qvodurla(2),"["&sitename&"]"&qvodurla(2))

End If

echo "qvod "&qvodurl&"
"

If Left(qvodurl,4)="qvod" Then

isChange=True

'echo httpurl&"
"

'echo qvodurl&"
"

'echo tempdata&"
"

tempdata=replace(tempdata,httpurl,qvodurl)

'echo tempdata&"
"

echo "×ª»»³É¹Š
"

Else

echo "×ª»»Ê§°Ü
"

End If

If isChange Then

'echo "update {pre}data set m_playdata='"&tempdata&"' where m_id="&linkArray(0,i)&"
"

tempdata=Jencode(tempdata)

conn.db "update {pre}data set m_playdata='"&tempdata&"' where m_id="&linkArray(0,i),"execute"

'echo "žüÐÂÊýŸÝID: "&linkArray(0,i)&"
"

'echo "ÔÊŒÊýŸÝ: "&linkArray(1,i)&"
"

'echo "žüÐÂÊýŸÝ: "&tempdata&"
"

echo "žüÐÂÊýŸÝ³É¹Š
"

Else

'ÉŸ³ý²»ÄÜ×ª»»ÊýŸÝ£¬Îª·ÀÖ¹Ò»Ö±Ñ»·²»ÄÜ×ª»»ÊýŸÝ

If delmode=1 Or delmode="1" Then

Dim SqlStr

SqlStr="delete from {pre}data where m_id="&linkArray(0,i)

conn.db SqlStr,"execute"

Echo "²»ÄÜ×ª»»ÊýŸÝ£¬ÊýŸÝÒÑÉŸ³ý
"

Else

Echo "²»ÄÜ×ª»»ÊýŸÝ£¬ÎŽžüÐÂÊýŸÝ
"

End If

Echo "ÔÝÍ£1Ãë×ª»»ÏÂÒ»ÁÐ±í*setTimeout('ReadGo();',1000);function ReadGo(){window.location='?action=http2qvod&sitename="&sitename&"&delmode="&delmode&"'}"

End Sub

Function Jencode(byVal iStr)

Dim E,F,i

IF isnull(iStr) or isEmpty(iStr) then

Jencode=""

Exit function

End IF

E=array("","","","","","","","","","","","","","","","","","","","","","","","","","","","'","""","[","]","\")

F=array("¥¬","¥®","¥°","¥²","¥Ž","¥¶","¥ž","¥º","¥Œ","¥Ÿ","¥À","¥Â","¥Å","¥Ç","¥É","¥Ð","¥Ó","¥Ö","¥Ù","¥Ü","¥Ñ","¥Ô","¥×","¥Ú","¥Ý","¥ô","#&chr(39)","#&chr(34)","&chr(91)","&chr(93)")

Jencode=iStr

For i=0 to 25

Jencode=Replace(Jencode,F(i),E(i))

End Function

Copy the Code

Reply Like 0 View the author

Coollove

deepin

2012-05-09 20:35

#26

还有段代码太长传不上。。。
可参考网址

http://www.tabboa.com/home.php?mod=space&uid=1&do=blog&id=97
http://topic.csdn.net/u/20090221/20/b0bd65ba-720e-49de-8c76-45cfa0943b95.html

Copy the Code

Reply Like 0 View the author

guogh

deepin

2012-05-10 03:26

#27

等稳定版。。

Reply Like 0 View the author

wc******[email protected]

deepin

2012-05-11 02:20

#28

还有段代码太长传不上。。。
可参考网址
http://www.tabboa.com/home.php?mod=space&uid=1&do=blog&id=97
http://topic.csdn.net/u/20090221/20/b0bd65ba-720e-49de-8c76-45cfa0943b95.html
Copy the Code

多谢兄台，我晚上把它交给负责处理浏览器插件的兄弟处理

Reply Like 0 View the author

wc******[email protected]

deepin

2012-05-11 02:22

#29

然后尽快修正这个错误

Reply Like 0 View the author

wc******[email protected]

deepin

2012-05-11 21:57

#30

还有段代码太长传不上。。。
可参考网址
http://www.tabboa.com/home.php?mod=space&uid=1&do=blog&id=97
http://topic.csdn.net/u/20090221/20/b0bd65ba-720e-49de-8c76-45cfa0943b95.html
Copy the Code

麻烦帮忙找个例子呗，要不没办法测试，我搜了一圈也没找到这样的。。。。

Reply Like 0 View the author

Coollove

deepin

2012-05-12 16:32

#31

[quote]还有段代码太长传不上。。。
可参考网址
http://www.tabboa.com/home.php?mod=space&uid=1&do=blog&id=97
http://topic.csdn.net/u/20090221/20/b0bd65ba-720e-49de-8c76-45cfa0943b95.html
Copy the Code

麻烦帮忙找个例子呗，要不没办法测试，我搜了一圈也没找到这样的。。。。[/quote]
https://www.dropbox.com/sh/qxw97kjcqm1o2j5/xraEbnCuHX
下载http2qvod.rar

Reply Like 0 View the author

Coollove

deepin

2012-05-12 17:03

#32

http://www.0123dy.com/playdata/168/5288.js?65293.75 影片测试

Reply Like 0 View the author

wc******[email protected]

deepin

2012-05-15 04:21

#33

好的谢谢

Reply Like 0 View the author

wc******[email protected]

deepin

2012-05-15 05:24

#34

http://www.0123dy.com/playdata/168/5288.js?65293.75 影片测试

你的QQ或gmail是多少？或者你加我QQ707519239也行有问题想聊聊

Reply Like 0 View the author

wc******[email protected]

deepin

2012-05-15 08:05

#35

http://www.0123dy.com/playdata/168/5288.js?65293.75 影片测试

插件已更新大家可以去测试一下 http2qvod功能了 http://code.google.com/p/debbuilder-cn/downloads/list

Reply Like 0 View the author

wc******[email protected]

deepin

2012-05-15 08:08

#36

插件已更新大家可以去测试一下 http2qvod功能了

本次发布的插件是测试版本，加入了对http类型的qvod链接的支持，有需要的可以去测试一下
http://code.google.com/p/debbuilder-cn/downloads/list

Reply Like 0 View the author

Coollove

deepin

2012-05-16 02:54

#37

[quote]http://www.0123dy.com/playdata/168/5288.js?65293.75 影片测试

你的QQ或gmail是多少？或者你加我QQ707519239也行有问题想聊聊[/quote]
已加QQ。。

Reply Like 0 View the author

Coollove

deepin

2012-05-16 02:55

#38

经测试LvodDownLoader-1.4.10-stable可增加以下功能：
1.http to Qvod 批量转换框
2.导出导入下载列表
小bug:
1.下载列表不会自动刷新（表现为新增url后要手动点击列表框才能刷新）
2.手动增加url可扩展为多行
3.如非必须可不关联SMPlayer(由用户自定义）
4.增加启动最小化托盘
5.启动后自动下载
6.改名存储，和下载完成清除同名的缓存（太占空间）
qvodurlfinder_0.4.2
1.可对非转换字符的http:进行成功取用
对http:中有汉字转码的不能识别。。可参考：https://chrome.google.com/webstore/detail/oiigbmnaadbkfbmpbfijlflahbdbdgdf
对脚本拦截后的转换，它是可以还原汉字的。。
2.对多行url不支持。可参考http://www.51ypk.com/read-htm-tid-1069.html对多行url的获取。。
3.建议增加浏览器按钮。可参考https://chrome.google.com/webstore/detail/mpmejihoknjjnpokcilnfodhfebpkhhe
将原URL和转换的地址抓取显示为可复制。。

个人浅见，如有不当，请兄海涵。。

Reply Like 0 View the author

wc******[email protected]

deepin

2012-05-16 04:08

#39

经测试LvodDownLoader-1.4.10-stable可增加以下功能：
1.http to Qvod 批量转换框
2.导出导入下载列表
小bug:
1.下载列表不会自动刷新（表现为新增url后要手动点击列表框才能刷新）
2.手动增加url可扩展为多行
3.如非必须可不关联SMPlayer(由用户自定义）
4.增加启动最小化托盘
5.启动后自动下载
6.改名存储，和下载完成清除同名的缓存（太占空间）
qvodurlfinder_0.4.2
1.可对非转换字符的http:进行成功取用
对http:中有汉字转码的不能识别。。可参考：https://chrome.google.com/webstore/detail/oiigbmnaadbkfbmpbfijlflahbdbdgdf
对脚本拦截后的转换，它是可以还原汉字的。。
2.对多行url不支持。可参考http://www.51ypk.com/read-htm-tid-1069.html对多行url的获取。。
3.建议增加浏览器按钮。可参考https://chrome.google.com/webstore/detail/mpmejihoknjjnpokcilnfodhfebpkhhe
将原URL和转换的地址抓取显示为可复制。。

个人浅见，如有不当，请兄海涵。。

哈哈客气了增加启动到托盘的功能暂时在java下有点麻烦，与smplayer绑定的问题已经不是问题了因为下个版本播放器会嵌入到下载器内。不如你到我的Q群（<124782742>）里来吧有问题随时反映

Reply Like 0 View the author

wc******[email protected]

deepin

2012-05-16 05:37

#40

放一张新播放器的效果图

播放器.jpg

Reply Like 0 View the author

2 / 3

New Thread

Rankings

7 days
30 days
90 days

Popular Events