vb6引用vbRichClient5 下载对象 cDownloads 简单示例

Option Explicit
'vb6引用vbRichClient5.dll
'下载简单示例
'小噤 QQ574221329
Dim WithEvents 下载类 As cDownloads
Dim WithEvents 浏览器引擎 As cWebKit
Dim 下载列表() As StringDim 全局字典 As Object, Fso As ObjectPrivate Sub Command1_Click()Dim ObjFor Each Obj In 全局字典下载类.Download (Obj)      '保存路径NextEnd SubPrivate Sub Form_Load()'下载个数 = 6Set 全局字典 = CreateObject("Scripting.Dictionary")Set Fso = CreateObject("Scripting.FileSystemObject")全局字典("https://dl.360safe.com/360sd/360sd_std_5.0.0.8081C.exe") = -1全局字典("https://raw.githubusercontent.com/qq574221329/TlbbUpdate/master/README.md") = -1全局字典("https://raw.githubusercontent.com/qq574221329/TlbbUpdate/master/Bin.7z") = -1全局字典("https://raw.githubusercontent.com/qq574221329/TlbbUpdate/master/Begin20180427.7z.001") = -1全局字典("https://raw.githubusercontent.com/qq574221329/TlbbUpdate/master/Begin20180427.7z.002") = -1全局字典("https://raw.githubusercontent.com/qq574221329/TlbbUpdate/master/Begin20180427.7z.003") = -1全局字典("https://raw.githubusercontent.com/qq574221329/TlbbUpdate/master/Begin20180427.7z.004") = -1全局字典("https://raw.githubusercontent.com/qq574221329/TlbbUpdate/master/Begin20180427.7z.006") = -1全局字典("https://dldir1.qq.com/qqfile/qq/QQ9.0.2/23490/QQ9.0.2.exe") = -1全局字典("https://dl.360safe.com/setup.exe") = -1全局字典("http://down.360safe.com/se/360se9.1.0.420.exe") = -1Dim ObjFor Each Obj In 全局字典全局字典(Obj) = Me.List1.ListCountMe.List1.AddItem Fso.GetFileName(Obj)      '保存路径Next'MsgBox Fso.GetFileName("https://raw.githubusercontent.com/qq574221329/TlbbUpdate/master/Begin20180427.7z.001")Set 浏览器引擎 = New cWebKitSet 下载类 = 浏览器引擎.Downloads'DeleteUrlCacheEntryW "https://raw.githubusercontent.com/qq574221329/TlbbUpdate/master/Bin.7z"
End SubPrivate Sub 下载类_DownloadComplete(DownloadObj As vbRichClient5.cDownload, ByVal ErrNum As Long, ErrString As String)'Debug.Print "下载类_DownloadComplete", Now(), DownloadObj.URL, ErrNum, ErrString'DownloadObj.SaveContentBytesToFile 这个方法用不了.改成写文件了Dim 二进制() As Byte二进制 = DownloadObj.GetContentData()Dim 保存路径 As String保存路径 = "c:\" & Fso.GetFileName(DownloadObj.URL) '保存路径Dim 可用文件号 As Long可用文件号 = FreeFileOpen 保存路径 For Binary As #可用文件号Put #可用文件号, , 二进制Close #可用文件号Print 保存路径Me.List1.List(全局字典(DownloadObj.URL)) = "下载完成: " & Fso.GetFileName(DownloadObj.URL)DoEvents
End SubPrivate Sub 下载类_DownloadProgress(DownloadObj As vbRichClient5.cDownload, ByVal Percent As Single, ByVal StatusCode As Long, StatusDescription As String, StatusValue As String)'  Debug.Print "下载类_DownloadProgress", Now(), Percent, DownloadObj.URL, StatusCode, StatusDescription, StatusValue' Debug.Print DownloadObj.URL' Debug.Print Fso.GetFileName("https://raw.githubusercontent.com/qq574221329/TlbbUpdate/master/Begin20180427.7z.001")' Debug.Print Fso.GetFileName(DownloadObj.URL)Me.List1.List(全局字典(DownloadObj.URL)) = "开始下载: " & Fso.GetFileName(DownloadObj.URL) & " " & Format$(Percent, "Percent")DoEvents
End SubPrivate Sub 下载类_DownloadStart(DownloadObj As vbRichClient5.cDownload)' Debug.Print 全局字典(DownloadObj.URL), "下载类_DownloadStart", Now(), DownloadObj.URLMe.List1.List(全局字典(DownloadObj.URL)) = "等待下载: " & Fso.GetFileName(DownloadObj.URL)DoEvents
End Sub

vb6引用vbRichClient5 下载对象 cDownloads 简单示例相关推荐

php curl 下载网页,php 通过cURL函数抓取网页、下载网页的简单示例
这篇文章主要为大家详细介绍了php 通过cURL函数抓取网页.下载网页的简单示例,具有一定的参考价值,可以用来参考一下. php通过cURL函数抓取和下载网页,感兴趣的小伙伴,下面一起跟随512笔记的 ...
如何用python创建一个下载网站-使用Python下载文件的简单示例
Python部落(python.freelycode.com)组织翻译,禁止转载,欢迎转发. 学习如何使用各种Python模块从web下载文件在本教程中,你将学习如何使用不同的Python模块从we ...
python官网下载文件-使用Python下载文件的简单示例
在本教程中,您将学习如何使用不同的Python模块从Web下载文件.此外,您还将下载常规文件.网页.AmazonS 3和其他来源. 最后,您将学习如何克服可能遇到的各种挑战,例如下载重定向文件.下载大 ...
使用python下载文件的简单示例_Python
简单的FTP下载 ,不加任何异常判断. import os from ftplib import FTP ftp_addr = '10.10.0.1' f=FTP(ftp_addr) f.login( ...
使用python下载文件的简单示例_Python FTP 下载文件简单示例
简单的FTP下载 ,不加任何异常判断. import os from ftplib import FTP ftp_addr = '10.10.0.1' f=FTP(ftp_addr) f.login( ...
php通过ajax下载文件,PHP使用ajax的post方式下载excel文件简单示例
本文实例讲述了PHP使用ajax的post方式下载excel文件.分享给大家供大家参考,具体如下: 项目需求,前端发起ajax请求,后端生成excel并下载,同时需要在header头中,带上token ...
PHP使用ajax的post方式下载excel文件简单示例
本文实例讲述了PHP使用ajax的post方式下载excel文件.分享给大家供大家参考,具体如下: 项目需求,前端发起ajax请求,后端生成excel并下载,同时需要在header头中,带上token ...
php分页类示例下载,PHP 通用分页类的简单示例
这篇文章主要为大家详细介绍了PHP 通用分页类的简单示例,具有一定的参考价值,可以用来参考一下.对PHP通用分页类感兴趣的小伙伴,下面一起跟随512笔记的小编两巴掌来看看吧! 写了个php的通用分页类 ...
php打包压缩下载多大,php多文件打包压缩下载简单示例
调用php中内置扩展ZipArchive类可以进行文件压缩打包下载,(PHP 5>=5.2.0,PHP 7,PECL zip>=1.1.0) 调用php中内置扩展ZipArchive类可以 ...
python使用requests库下载单张图片的简单示例
python使用requests库下载单张图片的简单示例简要说明代码示例简要说明下载图片的核心代码如下: res = requests.get(url=img_url, headers=hea ...

vb6引用vbRichClient5 下载对象 cDownloads 简单示例

vb6引用vbRichClient5 下载对象 cDownloads 简单示例相关推荐

最新文章

热门文章