快播3在线安装程序变身快播下载器 vb 源代码以及调用方法

快播3在线安装程序变身快播下载器 vb 源代码以及调用方法
2010年09月30日
　　软件的界面我已经做出来了，界面简单美观，双击软件的空白界面可以打开qvod资源网站，直接在那个网站批量复制批量粘贴到本软件批量下载，我做的软件地址在  http://download.csdn.net/source/2726329
　　下面用到的代码都是vb初学者容易接受的，开发步骤是新建一个工程，添加一个文本框和一个按钮，文本框要把允许添加多行的属性改成true
　　把下载下来的QvodSetupPlus3.exe改名为QvodSetupPlus3.dll 放在和vb生成的project1.exe文件同一个目录再执行生成的project1.exe文件。
　　QvodSetupPlus3.exe 这个文件去 www.qvod.com 下载，就是那个大约286KB的小文件，不要执行这个小文件，执行后他会缺省下载快播的安装程序。我们就是调用的这个小文件，快播播放器我们不需要下载也不需要安装。
　　下载是本软件的代码部分，代码部分可能不是最新的，但基本就是这些
　　Private Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" (ByVal hwnd As Long, ByVal lpOperation As String, ByVal lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long
　　Private Sub command1_click()
　　If Text1.Text = "" Then '判断是否空
　　MsgBox "请粘贴qvod文件地址，支持多行粘贴批量下载", vbOKOnly, "错误"
　　End  '为空结束
　　End If
　　'下面为去空格，空行
　　Text1.Text = Replace(Join(Split(Join(Split(Text1.Text, vbCrLf & vbCrLf), vbCrLf), vbCrLf & vbCrLf), vbCrLf), vbCrLf & vbCrLf, vbCrLf)
　　Dim b() As String
　　b = Strings.Split(Text1.Text, vbCrLf) '用换行分割粘贴的字符串
　　Dim str As String
　　Dim a As Integer
　　Dim abc(1 To 10) As Integer
　　Dim look(1 To 10) As String
　　For i = 0 To UBound(b) '最大行下标
　　'开始循环程序
　　str = b(i) '获取的每一行字符串赋值给str
　　a = 0
　　For Y = 1 To Len(str)
　　If Mid(str, Y, 1) = "|" Then  '检测该行是否含有 | 这个字符
　　a = a + 1
　　abc(a) = Y
　　End If
　　Next Y
　　If b(i) = "" Then '检测是否空行，最主要是最后一个空行
　　End
　　End If
　　If a  3 Then  '判断该行是否满足需要的格式，需要有3个 |
　　MsgBox "格式错误，示例为：qvod://1199456335|A4419F7F0CDBB410BDE477715B628652 FE4B5207|你的文件名.原扩展名|", vbOKOnly, "错误"
　　End
　　End If
　　look(1) = Mid(str, abc(1) + 1, abc(2) - abc(1) - 1) '分离出需要的字符串，第一个|到第二个|，共40个，就是qvod的hash值
　　look(2) = Mid(str, abc(1) + 42, abc(3) - abc(2) - 1) '分离出第二个|到第三个|，就是文件名加扩展名
　　Dim filex As String
　　Dim files() As String
　　files = Split(look(2), ".") '把获得的文件名加扩展名通过"点"在分组
　　filex = files(0)                     '点前面的就是文件名
　　filex = Replace(filex, " ", "")  '过滤文件名中的空格
　　For p = 0 To 9
　　filex = Replace(filex, p, "") '过滤文件名中的数字
　　Next p
　　If Dir$(filex, vbDirectory) = "" Then MkDir filex '判断当前要创建的文件夹是否存在，不存就创建一个，存在就不管
　　Dim s As String
　　s = look(2) & "_" & look(1) & ".exe" '拼接成快播下载器需要的文件名格式
　　FileCopy "QvodSetupPlus3.dll", App.Path & "\" & filex & "\" & s '复制前面的文件，变换名称为后面的，并把文件复制到创建的文件夹内
　　ShellExecute 0, "open", App.Path & "\" & filex & "\" & s, "", App.Path & "\" & filex, 1
　　'结束循环程序，一个大循环
　　Next i
　　End
　　End Sub
　　有问题联系QQ 1035518789