[原创]借助快播3在线安装程序打造自己的快播资源下载器

dzeo

快播(Qvod)是一款基于准视频点播(QVOD)内核的、多功能、个性化的播放器软件。在短时间内成为目前国内最受欢迎的万能播放器。从快播测试开始我就开始用了,总

体上还是比较喜欢的.

来到快播3的时候 快播出现了个新功能 可以通过更改下载器文件名的方式随心所欲的下载任何文件，前提是您要先获取到被下载文件的Hash值（40位的无序字符串,就

是说 只要有这40位字符串就可以下载相应文件,不需要知道大小和文件名称）。

下载器下载地址（下载器大小：143KB，如果不改下载器文件名缺省下载快播增强版本（33.7M））：http://dl.qvod.com/QvodSetupPlus3.exe

在您获取到被下载文件的Hash值后，可以把下载器的文件名由：QvodSetupPlus3.exe更改为：

“文件下载完成后你想显示的文件名”+“_”+“Hash值(被下载文件的Hash)”.exe

更改下载器文件名样例：

测试文件01.rmvb_5438AAA43EE1E24FCA3EE5FDECE7238584A47162.exe

今天,我们就来借助快播的这功能,打造一个我们自己的快播下载器,需要用到释放资源文件方面的知识

主要的好处就是不需要安装快播(QVOD)播放器,可以直接下载快播资源.

需要用到的控件: label标签2个,text文本框2个,command按钮一个

首先 ,打开VB 6.0  新建一个工程 点击外接程序----外接程序管理器---双击加载 VB6资源编辑器 按确定
如图:



接着点击资源编辑器---自定义添加资源文件---选择下载下来的快播3在线安装程序


到写代码部分了
在代码窗口添加以下代码:
'资源的调用
Public Function SaveFileFromRes(vntResourceID As Variant, sType As String, sFileName As String) As Boolean
  Dim bytImage() As Byte
  Dim iFileNum As Integer
  On Error GoTo SaveFileFromRes_Err'发生错误跳到SaveFileFromRes_Err 事件
  SaveFileFromRes = True
  bytImage = LoadResData(vntResourceID, sType)
  iFileNum = FreeFile
  Open sFileName For Binary As iFileNum
    Put #iFileNum, , bytImage
  Close iFileNum
  Exit Function
SaveFileFromRes_Err: '发生错误提示
  SaveFileFromRes = False: Exit Function'错误为假,退出
End Function
Private Sub Form_Load()'加载窗体
Label1.Caption = "Hash地址:"   '定义控件Caption属性,下同
Label2.Caption = "文件名称:"
Command1.Caption = "开始下载"
End Sub
Private Sub Command1_Click()'单击事件
Dim a  '定义变量a
a = Text2.Text & "_" & Text1.Text
SaveFileFromRes 101, "CUSTOM", App.Path & "\" & a & ".exe"'修改释放资源的名称
Shell App.Path & "\" & a & ".exe" '打开资源开始下载
End Sub
代码就是这么简单的几句, 思路就是这样了,基本功能就都实现了,如果想批量下载,可以自己加个列表控件 逐个读取
最后放个成品图片,界面比较简单.功能实现就可以了



快播资源下载器.rar (257.38 KB, 下载次数: 76)

2010-3-6 18:28 上传

点击文件名下载附件

mir3000

很强 以后不怕被偷资源了

zhuzhenhaoa

很羡慕~~~

aduybbm

收藏了，谢谢咯

mischief

谢谢楼主分享

lgy11

不好用 一个半成品

251729112

非常支持！！！

dzb123

那 可以偷到别人的资源吗  

rryr

下一个试试