快播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

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

Qt 在线安装程序出现网络错误
最近安装Qt时,遇到了一个网络错误: 下载https://mirrors.aliyun.com/....时出现网络错误:Error transferring https://mirrors.aliyu ...
SQL SERVER2019 安装程序无法与下载服务器联系。无法安装机器学习服务的问题解决方式
SQL SERVER2019 安装程序无法与下载服务器联系.无法安装机器学习服务的问题解决方式在安装SQL SERVER2019时卡在脱机安装Microsoft 机器学习服务器组件中,下一步点击不 ...
SQL Server提示：安装程序无法与下载服务器联系。请提供 Microsoft机器学习服务器安装文件的位置。。。。
报错截图: 今天在安装SQL Server的过程中,出现问题:安装程序无法与下载服务器联系.请提供 Microsoft机器学习服务器安装文件的位置,然后单击"下一步",可从以下位置 ...
【Sql】安装Sql server2019/2016的时候停留在：安装程序无法与下载服务器联系。
[问题现象] 安装sql server2019的时候, 软件停留在[脱机安装Microsoft机器学习服务器组件]界面,无法点击[下一步]进行安装. 并且详细信息中提示,安装程序无法与下载服务器联系. ...
Win7无法安装程序提示Installer integrity check has failed的解决方法
Win7无法安装程序提示Installer integrity check has failed的解决方法参考文章: (1)Win7无法安装程序提示Installer integrity check ...
服务器装系统无法创建系统分区,重装系统出现“安装程序无法创建新的系统分区”的处理方法...
重装系统大家在重装系统时免不了出现各种各样的问题,就比如在选择系统安装分区时,却提示"装程序无法创建新的系统分区,也无法定位现有的系统分区".遇到这种情况,多数用户都会显得比较惊 ...
python下载可执行安装程序_如何下载并安装python
1 首先,需要到python的官方网站下载python的安装包.python官网的链接地址:https://www.python.org 2 打开官方网站,光标移到Downloads,选择window ...
VS2017安装程序提示“无法下载应用程序，请检查Internet连接”，以及安装程序在“一切准备”页面停一会之后就一闪而过没反应了
(1) 打开控制面板,进入"Windows功能",关闭Microsoft .NET Framework 3.5.1,再次安装试试,如果还是不行,进行第二步骤: (2) 卸载系统上本 ...
新装固态硬盘SSD，在安装WIN10，显示一直请稍后及Windows安装程序无法将Windows配置为此计算机的解决方法（网上都是胡诌）
(破博客限制图片最大为2M ,无奈上传不了图片) 显示-Windows安装程序无法将Windows配置为此计算机的硬件运行 shift+F10进入cmd输入 cd oobe 再输入 msoobe 之后 ...

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

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

最新文章

热门文章