精易模块 文件_下载

Mr.Yang

精易模块内现有的"文件_下载"不清楚是什么年代的代码 WIN10调用不起来 查了一下是个调用IE下载的函数 而且功能单一.所以重新写了一个.

@项目部002

  

子程序名	返回值类型	公开	备 注
文件_下载	逻辑型		支持HTTP,HTTPS协yi.成功返回真,失败返回假.(Mr.Yang提供)
参数名	类 型	参考	可空	数组	备 注
下载地址	文本型				需下载的URL地址.
保存路径	文本型				保存到本地的完整文件路径.
任务类型	整数型				0=覆盖 1=改名 2=跳过.当文件覆盖失败时返回假.跳过时返回真.

变量名	类 型	静态	数组	备 注
新地址	文本型
新路径	文本型
计次	整数型

如果 (寻找文本 (下载地址, “://”, , 假) ＝ -1)  ' 缺少协yi
新地址 ＝ “http://” ＋ 下载地址
新地址 ＝ 下载地址
如果 (文件是否存在 (保存路径))
判断 (任务类型 ＝ 0)  ' 覆盖
如果 (删除文件 (保存路径))
新路径 ＝ 保存路径
返回 (假)

判断 (任务类型 ＝ 1)  ' 改名
计次循环首 (99, 计次)
新路径 ＝ 保存路径
新路径 ＝ 文本_删右边 (新路径, 取文本长度 (文件_取后缀 (新路径))) ＋ “(” ＋ 到文本 (计次) ＋ “)” ＋ 文件_取后缀 (新路径)
如果真 (文件是否存在 (新路径) ＝ 假)
跳出循环 ()

计次循环尾 ()返回 (真)  ' 跳过

新路径 ＝ 保存路径
' //
DeleteUrlCacheEntry (新地址)
如果 (URLDownloadToFileA (0, 新地址, 新路径, 0, 0) ＝ 0)
返回 (真)
返回 (假)

DLL命令名	返回值类型	公开	备 注
DeleteUrlCacheEntry	逻辑型		删除Url
DLL库文件名:
wininet.dll
在DLL库中对应命令名:
DeleteUrlCacheEntry
参数名	类 型	传址	数组	备 注
lpszUrlName	文本型

DLL命令名	返回值类型	公开	备 注
URLDownloadToFileA	整数型
DLL库文件名:
urlmon.dll
在DLL库中对应命令名:
URLDownloadToFileA
参数名	类 型	传址	数组	备 注
LPUNKNOWN	整数型			控件的接口,如果不是控件则为0
LPCSTR	文本型			本参数指定欲读取文件在互联网上的HTTP地址(即URL),不能为空
LPCSTR	文本型			下载后保存的文件名(完整路径).例如:c:\1.exe
DWORD	整数型			保留字段,必需为0
LPBINDSTATUSCALLBACK	整数型			回调函数.若不需要填0.

.版本 2<br /> <br /> .子程序 文件_下载, 逻辑型, 公开, 支持HTTP,HTTPS协yi.成功返回真,失败返回假.(Mr.Yang提供)<br /> .参数 下载地址, 文本型, , 需下载的URL地址.<br /> .参数 保存路径, 文本型, , 保存到本地的完整文件路径.<br /> .参数 任务类型, 整数型, 可空, 0=覆盖 1=改名 2=跳过.当文件覆盖失败时返回假.跳过时返回真.<br /> .局部变量 新地址, 文本型<br /> .局部变量 新路径, 文本型<br /> .局部变量 计次, 整数型<br /> <br /> .如果 (寻找文本 (下载地址, “://”, , 假) ＝ -1)  ' 缺少协yi<br />     新地址 ＝ “http://” ＋ 下载地址<br /> .否则<br />     新地址 ＝ 下载地址<br /> .如果结束<br /> .如果 (文件是否存在 (保存路径))<br />     .判断开始 (任务类型 ＝ 0)  ' 覆盖<br />         .如果 (删除文件 (保存路径))<br />             新路径 ＝ 保存路径<br />         .否则<br />             返回 (假)<br />         .如果结束<br /> <br />     .判断 (任务类型 ＝ 1)  ' 改名<br />         .计次循环首 (99, 计次)<br />             新路径 ＝ 保存路径<br />             新路径 ＝ 文本_删右边 (新路径, 取文本长度 (文件_取后缀 (新路径))) ＋ “(” ＋ 到文本 (计次) ＋ “)” ＋ 文件_取后缀 (新路径)<br />             .如果真 (文件是否存在 (新路径) ＝ 假)<br />                 跳出循环 ()<br />             .如果真结束<br /> <br />         .计次循环尾 ()<br />     .默认<br />         返回 (真)  ' 跳过<br />     .判断结束<br /> <br /> .否则<br />     新路径 ＝ 保存路径<br /> .如果结束<br /> ' //<br /> DeleteUrlCacheEntry (新地址)<br /> .如果 (URLDownloadToFileA (0, 新地址, 新路径, 0, 0) ＝ 0)<br />     返回 (真)<br /> .否则<br />     返回 (假)<br /> .版本 2<br /> <br /> .DLL命令 DeleteUrlCacheEntry, 逻辑型, "wininet.dll", "DeleteUrlCacheEntry", , 删除Url<br />     .参数 lpszUrlName, 文本型<br /> <br /> .DLL命令 URLDownloadToFileA, 整数型, "urlmon.dll", "URLDownloadToFileA"<br />     .参数 LPUNKNOWN, 整数型, , 控件的接口,如果不是控件则为0<br />     .参数 LPCSTR, 文本型, , 本参数指定欲读取文件在互联网上的HTTP地址(即URL),不能为空<br />     .参数 LPCSTR, 文本型, , 下载后保存的文件名(完整路径).例如:c:\1.exe<br />     .参数 DWORD, 整数型, , 保留字段,必需为0<br />     .参数 LPBINDSTATUSCALLBACK, 整数型, , 回调函数.若不需要填0.

Hxiaolong

文件_取后缀 子程序源码分享一下

917622157

win10部分电脑无法下载 有什么解决方案吗

果心豆腐酱

精易模块没更新，，，差评啊

尚帝娱乐

感谢大佬的礼物

xmz_2005

谢谢分享

3300566478

66666啊啊啊啊啊啊啊啊啊啊啊啊啊啊啊啊啊啊啊

13012145633

感谢发布原创作品，精易因你更精彩！

888z

66666啊啊啊啊啊啊啊啊啊啊啊啊啊啊啊啊啊啊啊

dawnfeng

谢谢分享!