给精易模块“网页_断点续传W”增加协议头和Cookie

kingtt

使用精易模块“网页_断点续传W”下载时，可以增加协议头和Cookie

Awesome·LYG

我看了一下，应该是可以这么改的，是否可以需要你自己测试了

自己下载精易模块的源码修改这个子程序吧

  

子程序名	返回值类型	公开	备 注
网页_断点续传W			文件下载
参数名	类 型	参考	可空	数组	备 注
欲下载的Url	字节集
欲写入文件的路径	字节集
协议头	文本型				一行一个
cookies	文本型
交互回调函数	整数型				第一个参数为待下载文件总长度指针，第二个参数为已下载总长度指针。

变量名	类 型	静态	数组	备 注
hInternet	整数型
hFile	整数型
dwFileSize	长整数型
szHeaderAdd	字节集
hConnect	整数型
dwBufLen	整数型
pMem	整数型
dwContentLen	长整数型
aryBin	字节集
dwSize	整数型
timestamp	长整数型

timestamp ＝ 到长整数 (时间_到时间戳1 (, 1))
hInternet ＝ InternetOpenW ( #NULL, #INTERNET_OPEN_TYPE_PRECONFIG, #NULL, #NULL, 0)
如果真 (hInternet ＝ #NULL )
返回 ()
hFile ＝ CreateFileW (欲写入文件的路径, 位或 ( #GENERIC_READ, #GENERIC_WRITE ), #FILE_SHARE_READ, #NULL, #OPEN_ALWAYS, #FILE_ATTRIBUTE_NORMAL, #NULL )
如果真 (hFile ≠ #INVALID_HANDLE_VALUE )
SetFilePointerEx (hFile, 0, dwFileSize, #FILE_END )
' 修改后的代码
如果真 (是否为空 (协议头))
协议头 ＝ #headers ＋ “Range: bytes=” ＋ 到文本 (dwFileSize) ＋ “-” ＋ #换行符

如果真 (取反 (是否为空 (cookies)))
协议头 ＝ 协议头 ＋ “Cookie: ” ＋ cookies ＋ #换行符
szHeaderAdd ＝ 编码_Ansi到Unicode (协议头)
' 原来的代码
' szHeaderAdd ＝ 编码_Ansi到Unicode (#headers ＋ “Range: bytes=” ＋ 到文本 (dwFileSize) ＋ “-” ＋ #换行符, )
hConnect ＝ InternetOpenUrlW (hInternet, 取指针_字节集型 (欲下载的Url), 取指针_字节集型 (szHeaderAdd), -1, #INTERNET_FLAG_NO_CACHE_WRITE, #NULL )
如果真 (hConnect ≠ #NULL )
dwBufLen ＝ 16  ' sizeof(__int64) * sizeof(wchar_t)
pMem ＝ HeapAlloc (GetProcessHeap (), #HEAP_ZERO_MEMORY, dwBufLen)
如果真 (pMem ≠ #NULL )
如果真 (HttpQueryInfoW (hConnect, 位或 ( #HTTP_QUERY_CONTENT_LENGTH, #HTTP_QUERY_FLAG_NUMBER64 ), pMem, dwBufLen, #NULL ))
dwContentLen ＝ __get_int64 (pMem, 0)
HeapFree (GetProcessHeap (), 0, pMem)
如果真 (dwContentLen ＞ 0)
aryBin ＝ 取空白字节集 (m_stageSize)
循环判断首 ()
如果真 (InternetReadFile (hConnect, aryBin, m_stageSize, dwSize) ＝ 假)
跳出循环 ()
如果真 (dwSize ＝ 0)
跳出循环 ()
dwFileSize ＝ dwFileSize ＋ dwSize
WriteFile (hFile, aryBin, dwSize, #NULL, #NULL )
如果真 (交互回调函数 ≠ #NULL )
调用子程序x64_ (交互回调函数, dwContentLen, dwFileSize, , , , , , , , , , , , , )
处理事件 ()
循环判断尾 (真)
InternetCloseHandle (hConnect)
CloseHandle (hFile)
InternetCloseHandle (hInternet)
输出调试文本 (“耗时：” ＋ 到文本 (到长整数 (时间_到时间戳1 (, 1)) － timestamp) ＋ “ms”)

.版本 2<br /> <br /> .子程序 网页_断点续传W, , 公开, 文件下载<br /> .参数 欲下载的Url, 字节集<br /> .参数 欲写入文件的路径, 字节集<br /> .参数 协议头, 文本型, 可空, 一行一个<br /> .参数 cookies, 文本型, 可空<br /> .参数 交互回调函数, 整数型, 可空, 第一个参数为待下载文件总长度指针，第二个参数为已下载总长度指针。<br /> .局部变量 hInternet, 整数型<br /> .局部变量 hFile, 整数型<br /> .局部变量 dwFileSize, 长整数型<br /> .局部变量 szHeaderAdd, 字节集<br /> .局部变量 hConnect, 整数型<br /> .局部变量 dwBufLen, 整数型<br /> .局部变量 pMem, 整数型<br /> .局部变量 dwContentLen, 长整数型<br /> .局部变量 aryBin, 字节集<br /> .局部变量 dwSize, 整数型<br /> .局部变量 timestamp, 长整数型<br /> <br /> timestamp ＝ 到长整数 (时间_到时间戳1 (, 1))<br /> hInternet ＝ InternetOpenW (#NULL, #INTERNET_OPEN_TYPE_PRECONFIG, #NULL, #NULL, 0)<br /> .如果真 (hInternet ＝ #NULL)<br />     返回 ()<br /> .如果真结束<br /> hFile ＝ CreateFileW (欲写入文件的路径, 位或 (#GENERIC_READ, #GENERIC_WRITE), #FILE_SHARE_READ, #NULL, #OPEN_ALWAYS, #FILE_ATTRIBUTE_NORMAL, #NULL)<br /> .如果真 (hFile ≠ #INVALID_HANDLE_VALUE)<br />     SetFilePointerEx (hFile, 0, dwFileSize, #FILE_END)<br /> <br />     ' 修改后的代码<br />     .如果真 (是否为空 (协议头))<br />         协议头 ＝ #headers ＋ “Range: bytes=” ＋ 到文本 (dwFileSize) ＋ “-” ＋ #换行符<br />     .如果真结束<br /> <br />     .如果真 (取反 (是否为空 (cookies)))<br />         协议头 ＝ 协议头 ＋ “Cookie: ” ＋ cookies ＋ #换行符<br />     .如果真结束<br />     szHeaderAdd ＝ 编码_Ansi到Unicode (协议头)<br /> <br />     ' 原来的代码<br />     ' szHeaderAdd ＝ 编码_Ansi到Unicode (#headers ＋ “Range: bytes=” ＋ 到文本 (dwFileSize) ＋ “-” ＋ #换行符, )<br /> <br />     hConnect ＝ InternetOpenUrlW (hInternet, 取指针_字节集型 (欲下载的Url), 取指针_字节集型 (szHeaderAdd), -1, #INTERNET_FLAG_NO_CACHE_WRITE, #NULL)<br />     .如果真 (hConnect ≠ #NULL)<br />         dwBufLen ＝ 16  ' sizeof(__int64) * sizeof(wchar_t)<br />         pMem ＝ HeapAlloc (GetProcessHeap (), #HEAP_ZERO_MEMORY, dwBufLen)<br />         .如果真 (pMem ≠ #NULL)<br />             .如果真 (HttpQueryInfoW (hConnect, 位或 (#HTTP_QUERY_CONTENT_LENGTH, #HTTP_QUERY_FLAG_NUMBER64), pMem, dwBufLen, #NULL))<br />                 dwContentLen ＝ __get_int64 (pMem, 0)<br />             .如果真结束<br />             HeapFree (GetProcessHeap (), 0, pMem)<br />         .如果真结束<br />         .如果真 (dwContentLen ＞ 0)<br />             aryBin ＝ 取空白字节集 (m_stageSize)<br />             .循环判断首 ()<br />                 .如果真 (InternetReadFile (hConnect, aryBin, m_stageSize, dwSize) ＝ 假)<br />                     跳出循环 ()<br />                 .如果真结束<br />                 .如果真 (dwSize ＝ 0)<br />                     跳出循环 ()<br />                 .如果真结束<br />                 dwFileSize ＝ dwFileSize ＋ dwSize<br />                 WriteFile (hFile, aryBin, dwSize, #NULL, #NULL)<br />                 .如果真 (交互回调函数 ≠ #NULL)<br />                     调用子程序x64_ (交互回调函数, dwContentLen, dwFileSize, , , , , , , , , , , , , )<br />                 .如果真结束<br />                 处理事件 ()<br />             .循环判断尾 (真)<br />         .如果真结束<br />         InternetCloseHandle (hConnect)<br />     .如果真结束<br />     CloseHandle (hFile)<br /> .如果真结束<br /> InternetCloseHandle (hInternet)<br /> 输出调试文本 (“耗时：” ＋ 到文本 (到长整数 (时间_到时间戳1 (, 1)) － timestamp) ＋ “ms”)

kingtt

Awesome·LYG 发表于 2025-2-20 16:52
我看了一下，应该是可以这么改的，是否可以需要你自己测试了

自己下载精易模块的源码修改这个子程序吧

好用，谢谢