求一个限速进度下载的源码例子

huameiyun

在下面看了吗，试了试都不行

https://bbs.125.la/search.php?mo ... F%E4%B8%8B%E8%BD%BD

不知道大家有没有源码例子

能实现进度下载和限速下载就可以




补充内容 (2024-9-23 21:46):
也看了调用迅雷的例子，但是那个太大了，我就一个小工具那个太高端繁琐了

baitso

动态调用代码.zip (281 Bytes, 下载次数: 8)

2024-9-23 22:07 上传

点击文件名下载附件

LEOONL

https://bbs.125.la/forum.php?mod ... 6%E4%B8%8B%E8%BD%BD

自己改成断断续续的延时下载就行了

baitso

自己用的网络下载，自己改下缓冲区的大小，达到限速的目地！至于缓冲区大小达到多少对应的限速是多少，我也不知道，具体的也没有对比过

  

窗口程序集名	保 留	保 留	备 注
网络下载

子程序名	返回值类型	公开	备 注
网页_下载文件2	逻辑型		边下载边保存，不需要cookies的，
参数名	类 型	参考	可空	数组	备 注
网址	文本型				完整的网页地址,必须包含http://或者https://
局_保存路径	文本型				完整的本地保存路径
下载回调函数	子程序指针				回调子程序 4个参数 都为整数型 参数1 当前已下载 参数2 下载进度 参数3 总大小 参数4 任务id
任务ID	整数型
访问方式	整数型				0=GET 1=POST 2=HEAD 3=PUT 4=DELETE 5=OPTIONS 6=TRACE 7=CONNECT
提交信息	文本型				POST专用
提交Cookies	文本型				本参数传递变量时会自动回传返回的Cookie
返回Cookies	文本型				返回的Cookie
附加协议头	文本型				一行一个请用换行符隔开,建议填写常量值或文本值,防止因传参引发错误
返回协议头	文本型				Location
禁止重定向	逻辑型				默认不禁止网页重定向
字节集提交	字节集				提交字节集数据
代理地址	文本型				代理地址，格式为 8.8.8.8:88
缓冲区大小	整数型				更改缓冲区大小，可以达到限速的目的

变量名	类 型	静态	数组	备 注
局_Internet句柄	整数型
局_Internet连接句柄	整数型
局_HTTP请求句柄	整数型
局_计次	整数型
局_字节集	字节集
局_访问方式	文本型
局_User_Agent	文本型
局_返回协议头	文本型		0
局_页面内容	字节集
局_请求标记	整数型
局_重定向地址	文本型
局_HTTPS	逻辑型
z_页面内容	字节集
局部_总大小	整数型
局_当前大小	整数型
局_进度	双精度小数型
FileHandle	整数型
参数	整数型		4
文件号	整数型
局_当次内容	字节集

局_访问方式 ＝ 选择 (访问方式 ＜ 0 或 访问方式 ＞ 3, “GET”, 多项选择 (访问方式 ＋ 1, “GET”, “POST”, “HEAD”, “PUT”, “DELETE”, “OPTIONS”, “TRACE”, “CONNECT”))
如果真 (访问方式 ＜ 0 或 访问方式 ＞ 2)
访问方式 ＝ 0
如果真 (到小写 (取文本左边 (网址, 8)) ＝ “https://”)
局_HTTPS ＝ 真
判断 (寻找文本 (附加协议头, “User-Agent:”, , 真) ≠ -1)
局_User_Agent ＝ 删首尾空 (文本_取出中间文本 (附加协议头 ＋ #换行符, “User-Agent:”, #换行符 ))
如果真 (局_User_Agent ＝ “”)
局_User_Agent ＝ 内部_协议头取值 (附加协议头)

局_User_Agent ＝ “Mozilla/5.0 (Windows NT 10.0; WOW64) AppleWebKit/537.36 (KHTML, like Gecko) Chrome/50.0.2661.102 Safari/537.36”
判断 (代理地址 ＝ “”)
局_Internet句柄 ＝ InternetOpenA (局_User_Agent, 1, 字符 (0), 字符 (0), 0)
判断 (局_HTTPS)  ' 用于解决win7下https协议代理无效问题
局_Internet句柄 ＝ InternetOpenA (局_User_Agent, 3, 代理地址, “”, 0)
局_Internet句柄 ＝ InternetOpenA (局_User_Agent, 3, “http=” ＋ 代理地址, “”, 0)

如果真 (局_Internet句柄 ＝ 0)
InternetCloseHandle (局_Internet句柄)
返回 (假)
局_Internet连接句柄 ＝ InternetConnectA (局_Internet句柄, 网页_取域名2 (网址), 网页_取端口2 (网址), 字符 (0), 字符 (0), 3, 0, 0)
如果真 (局_Internet连接句柄 ＝ 0)
InternetCloseHandle (局_Internet连接句柄)
InternetCloseHandle (局_Internet句柄)
返回 (假)
局_请求标记 ＝ 位或 ( #INTERNET_FLAG_RELOAD, #INTERNET_COOKIE_THIRD_PARTY )
如果真 (取反 (是否为空 (提交Cookies)))
局_请求标记 ＝ 位或 (局_请求标记, #INTERNET_FLAG_NO_COOKIES )
如果真 (禁止重定向)
局_请求标记 ＝ 位或 (局_请求标记, #INTERNET_FLAG_NO_AUTO_REDIRECT )
判断 (局_HTTPS)
局_请求标记 ＝ 位或 (局_请求标记, #INTERNET_FLAG_SECURE )
局_请求标记 ＝ 位或 (局_请求标记, #INTERNET_FLAG_IGNORE_REDIRECT_TO_HTTPS )
局_HTTP请求句柄 ＝ HttpOpenRequestA (局_Internet连接句柄, 局_访问方式, 网页_取页面地址 (网址), “HTTP/1.1”, 字符 (0), 字符 (0), 局_请求标记, 0)
如果真 (局_HTTP请求句柄 ＝ 0)
InternetCloseHandle (局_HTTP请求句柄)
InternetCloseHandle (局_Internet连接句柄)
InternetCloseHandle (局_Internet句柄)
返回 (假)
判断 (附加协议头 ＝ “”)
附加协议头 ＝ “Accept: */*”
如果真 (寻找文本 (附加协议头, “Accept:”, , 假) ＝ -1)
附加协议头 ＝ 附加协议头 ＋ #换行符 ＋ “Accept: */*”


如果真 (寻找文本 (附加协议头, “Referer:”, , 假) ＝ -1)
附加协议头 ＝ 附加协议头 ＋ #换行符 ＋ “Referer: ” ＋ 网址
如果真 (寻找文本 (附加协议头, “Accept-Language:”, , 假) ＝ -1)
附加协议头 ＝ 附加协议头 ＋ #换行符 ＋ “Accept-Language: zh-cn”
如果真 (寻找文本 (附加协议头, “Content-Type:”, , 假) ＝ -1)
附加协议头 ＝ 附加协议头 ＋ #换行符 ＋ “Content-Type: application/x-www-form-urlencoded”
如果真 (提交Cookies ≠ “”)
判断 (寻找文本 (提交Cookies, “Cookie:”, , 假) ＝ -1)
附加协议头 ＝ 附加协议头 ＋ #换行符 ＋ “Cookie: ” ＋ 提交Cookies
附加协议头 ＝ 附加协议头 ＋ #换行符 ＋ 提交Cookies


判断 (访问方式 ＝ 0)
HttpSendRequestA (局_HTTP请求句柄, 附加协议头, 取文本长度 (附加协议头), “”, 0)
如果真 (字节集提交 ＝ {  })
字节集提交 ＝ 到字节集 (提交信息)
HttpSendRequestA_字节集 (局_HTTP请求句柄, 附加协议头, 取文本长度 (附加协议头), 字节集提交, 取字节集长度 (字节集提交))
如果真 (是否为空 (缓冲区大小))
缓冲区大小 ＝ 10240
局_计次 ＝ 0
局_字节集 ＝ 取空白字节集 (缓冲区大小)
如果真 (文件_是否存在 (局_保存路径) ＝ 假)
文件_创建 (局_保存路径, 0)
文件号 ＝ 打开文件 (局_保存路径, #重写, )
移到文件尾 (文件号)
局_当前大小 ＝ 0
如果真 (局部_总大小 ＝ 0)
局部_总大小 ＝ 到整数 (网页_取网络文件尺寸 (网址))
循环判断首 ()
InternetReadFile (局_HTTP请求句柄, 局_字节集, 缓冲区大小, 局_计次)
如果真 (局_计次 ＝ 0)
跳出循环 ()
局_当次内容 ＝ 取字节集左边 (局_字节集, 局_计次)
局_页面内容 ＝ 局_页面内容 ＋ 局_当次内容
写出字节集 (文件号, 局_当次内容)
' 写到文件 (保存路径, 局_页面内容)
局_当前大小 ＝ 局_当前大小 ＋ 局_计次
局_进度 ＝ 局_当前大小 ÷ 局部_总大小 × 100
如果真 (是否为空 (下载回调函数) ＝ 假 且 到整数 (下载回调函数) ≠ 0)
参数 [1] ＝ 局_当前大小
参数 [2] ＝ 局_进度
参数 [3] ＝ 局部_总大小
参数 [4] ＝ 任务ID
CallWindowProcA_Asm ( #动态调用代码, 到整数 (下载回调函数), 参数, 4, 假)

循环判断尾 (局_计次 ≠ 0)
返回协议头 ＝ 取空白文本 (5000)
HttpQueryInfoA (局_HTTP请求句柄, 22, 返回协议头, 5000, 0)
返回协议头 ＝ 子文本替换 (返回协议头, “Set-Cookie”, “Set-Cookie”, , , 假)
InternetCloseHandle (局_HTTP请求句柄)
InternetCloseHandle (局_Internet连接句柄)
InternetCloseHandle (局_Internet句柄)
关闭文件 (文件号)
局_返回协议头 ＝ 分割文本 (返回协议头, #换行符, )
返回Cookies ＝ “”
计次循环首 (取数组成员数 (局_返回协议头), 局_计次)
如果真 (文本_取左边 (局_返回协议头 [局_计次], “: ”) ＝ “Set-Cookie”)
判断 (寻找文本 (局_返回协议头 [局_计次], “;”, , 假) ≠ -1)
返回Cookies ＝ 返回Cookies ＋ 删首尾空 (文本_取出中间文本 (局_返回协议头 [局_计次], “Set-Cookie:”, “;”)) ＋ “; ”
返回Cookies ＝ 返回Cookies ＋ 删首尾空 (子文本替换 (局_返回协议头 [局_计次], “Set-Cookie:”, , , , 假)) ＋ “; ”


计次循环尾 ()
返回Cookies ＝ 取文本左边 (返回Cookies, 取文本长度 (返回Cookies) － 2)
如果真 (取反 (是否为空 (提交Cookies)))
返回Cookies ＝ 网页_Cookie合并更新 (提交Cookies, 返回Cookies)

' 如果真 (寻找文本 (返回协议头, “Content-Encoding: gzip”, , 假) ≠ -1 或 寻找文本 (附加协议头, “Accept-Encoding: gzip, deflate”, , 假) ≠ -1)
' z_页面内容 ＝ Zlib.unzGzip (局_页面内容)
' 如果真 (寻找文本 (返回协议头, “Content-Encoding: deflate”, , 假) ≠ -1)
' z_页面内容 ＝ Zlib.unzDeflate (局_页面内容)
如果 (z_页面内容 ＝ {  })
写到文件 (局_保存路径, 局_页面内容)

写到文件 (局_保存路径, z_页面内容)
返回 (真)

子程序名	返回值类型	公开	备 注
内部_协议头取值	文本型
参数名	类 型	参考	可空	数组	备 注
协议头	文本型

变量名	类 型	静态	数组	备 注
位置	整数型
结果	文本型

位置 ＝ 寻找文本 (协议头, “:”, , 假)
如果真 (位置 ≠ -1)
结果 ＝ 取文本右边 (协议头, 取文本长度 (协议头) － 位置)
返回 (删首尾空 (结果))

子程序名	返回值类型	公开	备 注
网页_取域名2	文本型		通过“/”或者“.”来获取网址中的域名，默认使用“/”方式
参数名	类 型	参考	可空	数组	备 注
网址	文本型
去除二级域名	逻辑型
不过滤端口	逻辑型
后缀点数量	整数型				不留空表示通过“.”的方式取域名 。如：.com后缀点数量为1 ,.com.cn后缀点数量为2

变量名	类 型	静态	数组	备 注
域名	文本型
位置	整数型
二级	文本型		0
域名长度	整数型
前点开始	整数型			如www.bbs.125.la   www后面.的位置
前点结束	整数型			如www.bbs.125.la   bbs后面.的位置
后点开始	整数型			如www.bbs.125.la   125后面.的位置

域名 ＝ 到小写 (网址)
判断 (是否为空 (后缀点数量))  ' 使用“/”方式获取域名，网页_访问() 内部 必须使用这个
如果真 (取文本右边 (域名, 1) ≠ “/”)
域名 ＝ 域名 ＋ “/”

判断 (取文本左边 (域名, 8) ＝ “https://”)
域名 ＝ 文本_取出中间文本2 (域名, “https://”, “/”)
如果真 (寻找文本 (域名, “http://”, , 假) ＝ -1)
域名 ＝ “http://” ＋ 域名
域名 ＝ 文本_取出中间文本2 (域名, “http://”, “/”)

如果真 (去除二级域名)
二级 ＝ 分割文本 (域名, “.”, )
位置 ＝ 取数组成员数 (二级)
如果真 (位置 ＞ 1)
域名 ＝ 二级

.版本 2<br /> <br /> .程序集 网络下载<br /> <br /> .子程序 网页_下载文件2, 逻辑型, , 边下载边保存，不需要cookies的，<br /> .参数 网址, 文本型, , 完整的网页地址,必须包含http://或者https://<br /> .参数 局_保存路径, 文本型, , 完整的本地保存路径<br /> .参数 下载回调函数, 子程序指针, 可空, 回调子程序 4个参数 都为整数型 参数1 当前已下载 参数2 下载进度 参数3 总大小 参数4 任务id<br /> .参数 任务ID, 整数型, 可空<br /> .参数 访问方式, 整数型, 可空, 0=GET 1=POST 2=HEAD 3=PUT 4=DELETE 5=OPTIONS 6=TRACE 7=CONNECT<br /> .参数 提交信息, 文本型, 可空, POST专用<br /> .参数 提交Cookies, 文本型, 参考 可空, 本参数传递变量时会自动回传返回的Cookie<br /> .参数 返回Cookies, 文本型, 可空, 返回的Cookie<br /> .参数 附加协议头, 文本型, 可空, 一行一个请用换行符隔开,建议填写常量值或文本值,防止因传参引发错误<br /> .参数 返回协议头, 文本型, 参考 可空, Location<br /> .参数 禁止重定向, 逻辑型, 可空, 默认不禁止网页重定向<br /> .参数 字节集提交, 字节集, 可空, 提交字节集数据<br /> .参数 代理地址, 文本型, 可空, 代理地址，格式为 8.8.8.8:88<br /> .参数 缓冲区大小, 整数型, 可空, 更改缓冲区大小，可以达到限速的目的<br /> .局部变量 局_Internet句柄, 整数型<br /> .局部变量 局_Internet连接句柄, 整数型<br /> .局部变量 局_HTTP请求句柄, 整数型<br /> .局部变量 局_计次, 整数型<br /> .局部变量 局_字节集, 字节集<br /> .局部变量 局_访问方式, 文本型<br /> .局部变量 局_User_Agent, 文本型<br /> .局部变量 局_返回协议头, 文本型, , "0"<br /> .局部变量 局_页面内容, 字节集<br /> .局部变量 局_请求标记, 整数型<br /> .局部变量 局_重定向地址, 文本型<br /> .局部变量 局_HTTPS, 逻辑型<br /> .局部变量 z_页面内容, 字节集<br /> .局部变量 局部_总大小, 整数型<br /> .局部变量 局_当前大小, 整数型<br /> .局部变量 局_进度, 双精度小数型<br /> .局部变量 FileHandle, 整数型<br /> .局部变量 参数, 整数型, , "4"<br /> .局部变量 文件号, 整数型<br /> .局部变量 局_当次内容, 字节集<br /> <br /> 局_访问方式 ＝ 选择 (访问方式 ＜ 0 或 访问方式 ＞ 3, “GET”, 多项选择 (访问方式 ＋ 1, “GET”, “POST”, “HEAD”, “PUT”, “DELETE”, “OPTIONS”, “TRACE”, “CONNECT”))<br /> .如果真 (访问方式 ＜ 0 或 访问方式 ＞ 2)<br />     访问方式 ＝ 0<br /> .如果真结束<br /> .如果真 (到小写 (取文本左边 (网址, 8)) ＝ “https://”)<br />     局_HTTPS ＝ 真<br /> .如果真结束<br /> .判断开始 (寻找文本 (附加协议头, “User-Agent:”, , 真) ≠ -1)<br />     局_User_Agent ＝ 删首尾空 (文本_取出中间文本 (附加协议头 ＋ #换行符, “User-Agent:”, #换行符))<br />     .如果真 (局_User_Agent ＝ “”)<br />         局_User_Agent ＝ 内部_协议头取值 (附加协议头)<br />     .如果真结束<br /> <br /> .默认<br />     局_User_Agent ＝ “Mozilla/5.0 (Windows NT 10.0; WOW64) AppleWebKit/537.36 (KHTML, like Gecko) Chrome/50.0.2661.102 Safari/537.36”<br /> .判断结束<br /> .判断开始 (代理地址 ＝ “”)<br />     局_Internet句柄 ＝ InternetOpenA (局_User_Agent, 1, 字符 (0), 字符 (0), 0)<br /> .默认<br />     .判断开始 (局_HTTPS)  ' 用于解决win7下https协议代理无效问题<br />         局_Internet句柄 ＝ InternetOpenA (局_User_Agent, 3, 代理地址, “”, 0)<br />     .默认<br />         局_Internet句柄 ＝ InternetOpenA (局_User_Agent, 3, “http=” ＋ 代理地址, “”, 0)<br />     .判断结束<br /> <br /> .判断结束<br /> <br /> .如果真 (局_Internet句柄 ＝ 0)<br />     InternetCloseHandle (局_Internet句柄)<br />     返回 (假)<br /> .如果真结束<br /> 局_Internet连接句柄 ＝ InternetConnectA (局_Internet句柄, 网页_取域名2 (网址), 网页_取端口2 (网址), 字符 (0), 字符 (0), 3, 0, 0)<br /> .如果真 (局_Internet连接句柄 ＝ 0)<br />     InternetCloseHandle (局_Internet连接句柄)<br />     InternetCloseHandle (局_Internet句柄)<br />     返回 (假)<br /> .如果真结束<br /> 局_请求标记 ＝ 位或 (#INTERNET_FLAG_RELOAD, #INTERNET_COOKIE_THIRD_PARTY)<br /> .如果真 (取反 (是否为空 (提交Cookies)))<br /> <br />     局_请求标记 ＝ 位或 (局_请求标记, #INTERNET_FLAG_NO_COOKIES)<br /> .如果真结束<br /> .如果真 (禁止重定向)<br />     局_请求标记 ＝ 位或 (局_请求标记, #INTERNET_FLAG_NO_AUTO_REDIRECT)<br /> .如果真结束<br /> .判断开始 (局_HTTPS)<br />     局_请求标记 ＝ 位或 (局_请求标记, #INTERNET_FLAG_SECURE)<br /> .默认<br />     局_请求标记 ＝ 位或 (局_请求标记, #INTERNET_FLAG_IGNORE_REDIRECT_TO_HTTPS)<br /> .判断结束<br /> 局_HTTP请求句柄 ＝ HttpOpenRequestA (局_Internet连接句柄, 局_访问方式, 网页_取页面地址 (网址), “HTTP/1.1”, 字符 (0), 字符 (0), 局_请求标记, 0)<br /> .如果真 (局_HTTP请求句柄 ＝ 0)<br />     InternetCloseHandle (局_HTTP请求句柄)<br />     InternetCloseHandle (局_Internet连接句柄)<br />     InternetCloseHandle (局_Internet句柄)<br />     返回 (假)<br /> .如果真结束<br /> .判断开始 (附加协议头 ＝ “”)<br />     附加协议头 ＝ “Accept: */*”<br /> .默认<br />     .如果真 (寻找文本 (附加协议头, “Accept:”, , 假) ＝ -1)<br />         附加协议头 ＝ 附加协议头 ＋ #换行符 ＋ “Accept: */*”<br />     .如果真结束<br /> <br /> .判断结束<br /> <br /> .如果真 (寻找文本 (附加协议头, “Referer:”, , 假) ＝ -1)<br />     附加协议头 ＝ 附加协议头 ＋ #换行符 ＋ “Referer: ” ＋ 网址<br /> .如果真结束<br /> .如果真 (寻找文本 (附加协议头, “Accept-Language:”, , 假) ＝ -1)<br />     附加协议头 ＝ 附加协议头 ＋ #换行符 ＋ “Accept-Language: zh-cn”<br /> .如果真结束<br /> .如果真 (寻找文本 (附加协议头, “Content-Type:”, , 假) ＝ -1)<br />     附加协议头 ＝ 附加协议头 ＋ #换行符 ＋ “Content-Type: application/x-www-form-urlencoded”<br /> .如果真结束<br /> .如果真 (提交Cookies ≠ “”)<br />     .判断开始 (寻找文本 (提交Cookies, “Cookie:”, , 假) ＝ -1)<br />         附加协议头 ＝ 附加协议头 ＋ #换行符 ＋ “Cookie: ” ＋ 提交Cookies<br />     .默认<br />         附加协议头 ＝ 附加协议头 ＋ #换行符 ＋ 提交Cookies<br />     .判断结束<br /> <br /> .如果真结束<br /> <br /> .判断开始 (访问方式 ＝ 0)<br />     HttpSendRequestA (局_HTTP请求句柄, 附加协议头, 取文本长度 (附加协议头), “”, 0)<br /> .默认<br />     .如果真 (字节集提交 ＝ {  })<br />         字节集提交 ＝ 到字节集 (提交信息)<br />     .如果真结束<br />     HttpSendRequestA_字节集 (局_HTTP请求句柄, 附加协议头, 取文本长度 (附加协议头), 字节集提交, 取字节集长度 (字节集提交))<br /> .判断结束<br /> .如果真 (是否为空 (缓冲区大小))<br />     缓冲区大小 ＝ 10240<br /> .如果真结束<br /> 局_计次 ＝ 0<br /> 局_字节集 ＝ 取空白字节集 (缓冲区大小)<br /> .如果真 (文件_是否存在 (局_保存路径) ＝ 假)<br />     文件_创建 (局_保存路径, 0)<br /> .如果真结束<br /> 文件号 ＝ 打开文件 (局_保存路径, #重写, )<br /> 移到文件尾 (文件号)<br /> 局_当前大小 ＝ 0<br /> .如果真 (局部_总大小 ＝ 0)<br />     局部_总大小 ＝ 到整数 (网页_取网络文件尺寸 (网址))<br /> .如果真结束<br /> .循环判断首 ()<br />     InternetReadFile (局_HTTP请求句柄, 局_字节集, 缓冲区大小, 局_计次)<br />     .如果真 (局_计次 ＝ 0)<br />         跳出循环 ()<br />     .如果真结束<br />     局_当次内容 ＝ 取字节集左边 (局_字节集, 局_计次)<br />     局_页面内容 ＝ 局_页面内容 ＋ 局_当次内容<br />     写出字节集 (文件号, 局_当次内容)<br />     ' 写到文件 (保存路径, 局_页面内容)<br />     局_当前大小 ＝ 局_当前大小 ＋ 局_计次<br />     局_进度 ＝ 局_当前大小 ÷ 局部_总大小 × 100<br /> <br />     .如果真 (是否为空 (下载回调函数) ＝ 假 且 到整数 (下载回调函数) ≠ 0)<br />         参数 [1] ＝ 局_当前大小<br />         参数 [2] ＝ 局_进度<br />         参数 [3] ＝ 局部_总大小<br />         参数 [4] ＝ 任务ID<br />         CallWindowProcA_Asm (#动态调用代码, 到整数 (下载回调函数), 参数, 4, 假)<br />     .如果真结束<br /> <br /> .循环判断尾 (局_计次 ≠ 0)<br /> 返回协议头 ＝ 取空白文本 (5000)<br /> HttpQueryInfoA (局_HTTP请求句柄, 22, 返回协议头, 5000, 0)<br /> 返回协议头 ＝ 子文本替换 (返回协议头, “Set-Cookie”, “Set-Cookie”, , , 假)<br /> InternetCloseHandle (局_HTTP请求句柄)<br /> InternetCloseHandle (局_Internet连接句柄)<br /> InternetCloseHandle (局_Internet句柄)<br /> 关闭文件 (文件号)<br /> 局_返回协议头 ＝ 分割文本 (返回协议头, #换行符, )<br /> 返回Cookies ＝ “”<br /> .计次循环首 (取数组成员数 (局_返回协议头), 局_计次)<br />     .如果真 (文本_取左边 (局_返回协议头 [局_计次], “: ”) ＝ “Set-Cookie”)<br />         .判断开始 (寻找文本 (局_返回协议头 [局_计次], “;”, , 假) ≠ -1)<br />             返回Cookies ＝ 返回Cookies ＋ 删首尾空 (文本_取出中间文本 (局_返回协议头 [局_计次], “Set-Cookie:”, “;”)) ＋ “; ”<br />         .默认<br />             返回Cookies ＝ 返回Cookies ＋ 删首尾空 (子文本替换 (局_返回协议头 [局_计次], “Set-Cookie:”, , , , 假)) ＋ “; ”<br />         .判断结束<br /> <br />     .如果真结束<br /> <br /> .计次循环尾 ()<br /> 返回Cookies ＝ 取文本左边 (返回Cookies, 取文本长度 (返回Cookies) － 2)<br /> .如果真 (取反 (是否为空 (提交Cookies)))<br />     返回Cookies ＝ 网页_Cookie合并更新 (提交Cookies, 返回Cookies)<br /> .如果真结束<br /> <br /> ' 如果真 (寻找文本 (返回协议头, “Content-Encoding: gzip”, , 假) ≠ -1 或 寻找文本 (附加协议头, “Accept-Encoding: gzip, deflate”, , 假) ≠ -1)<br /> ' z_页面内容 ＝ Zlib.unzGzip (局_页面内容)<br /> ' 如果真 (寻找文本 (返回协议头, “Content-Encoding: deflate”, , 假) ≠ -1)<br /> ' z_页面内容 ＝ Zlib.unzDeflate (局_页面内容)<br /> .如果 (z_页面内容 ＝ {  })<br />     写到文件 (局_保存路径, 局_页面内容)<br /> <br /> .否则<br />     写到文件 (局_保存路径, z_页面内容)<br /> <br /> .如果结束<br /> 返回 (真)<br /> <br /> <br /> .子程序 内部_协议头取值, 文本型<br /> .参数 协议头, 文本型<br /> .局部变量 位置, 整数型<br /> .局部变量 结果, 文本型<br /> <br /> 位置 ＝ 寻找文本 (协议头, “:”, , 假)<br /> .如果真 (位置 ≠ -1)<br />     结果 ＝ 取文本右边 (协议头, 取文本长度 (协议头) － 位置)<br /> .如果真结束<br /> 返回 (删首尾空 (结果))<br /> <br /> <br /> <br /> .子程序 网页_取域名2, 文本型, , 通过“/”或者“.”来获取网址中的域名，默认使用“/”方式<br /> .参数 网址, 文本型<br /> .参数 去除二级域名, 逻辑型, 可空<br /> .参数 不过滤端口, 逻辑型, 可空<br /> .参数 后缀点数量, 整数型, 可空, 不留空表示通过“.”的方式取域名 。如：.com后缀点数量为1 ,.com.cn后缀点数量为2<br /> .局部变量 域名, 文本型<br /> .局部变量 位置, 整数型<br /> .局部变量 二级, 文本型, , "0"<br /> .局部变量 域名长度, 整数型<br /> .局部变量 前点开始, 整数型, , , 如<a href="http://www.bbs.125.la" target="_blank">www.bbs.125.la</a>   www后面.的位置<br /> .局部变量 前点结束, 整数型, , , 如<a href="http://www.bbs.125.la" target="_blank">www.bbs.125.la</a>   bbs后面.的位置<br /> .局部变量 后点开始, 整数型, , , 如<a href="http://www.bbs.125.la" target="_blank">www.bbs.125.la</a>   125后面.的位置<br /> <br /> 域名 ＝ 到小写 (网址)<br /> .判断开始 (是否为空 (后缀点数量))  ' 使用“/”方式获取域名，网页_访问() 内部 必须使用这个<br />     .如果真 (取文本右边 (域名, 1) ≠ “/”)<br />         域名 ＝ 域名 ＋ “/”<br />     .如果真结束<br /> <br />     .判断开始 (取文本左边 (域名, 8) ＝ “https://”)<br />         域名 ＝ 文本_取出中间文本2 (域名, “https://”, “/”)<br />     .默认<br />         .如果真 (寻找文本 (域名, “http://”, , 假) ＝ -1)<br />             域名 ＝ “http://” ＋ 域名<br />         .如果真结束<br />         域名 ＝ 文本_取出中间文本2 (域名, “http://”, “/”)<br />     .判断结束<br /> <br />     .如果真 (去除二级域名)<br />         二级 ＝ 分割文本 (域名, “.”, )<br />         位置 ＝ 取数组成员数 (二级)<br />         .如果真 (位置 ＞ 1)<br />             域名 ＝ 二级

baitso

继上

  

子程序名	返回值类型	公开	备 注
内部_协议头取值	文本型
参数名	类 型	参考	可空	数组	备 注
协议头	文本型

变量名	类 型	静态	数组	备 注
位置	整数型
结果	文本型

位置 ＝ 寻找文本 (协议头, “:”, , 假)
如果真 (位置 ≠ -1)
结果 ＝ 取文本右边 (协议头, 取文本长度 (协议头) － 位置)
返回 (删首尾空 (结果))

子程序名	返回值类型	公开	备 注
网页_取域名2	文本型		通过“/”或者“.”来获取网址中的域名，默认使用“/”方式
参数名	类 型	参考	可空	数组	备 注
网址	文本型
去除二级域名	逻辑型
不过滤端口	逻辑型
后缀点数量	整数型				不留空表示通过“.”的方式取域名 。如：.com后缀点数量为1 ,.com.cn后缀点数量为2

变量名	类 型	静态	数组	备 注
域名	文本型
位置	整数型
二级	文本型		0
域名长度	整数型
前点开始	整数型			如www.bbs.125.la   www后面.的位置
前点结束	整数型			如www.bbs.125.la   bbs后面.的位置
后点开始	整数型			如www.bbs.125.la   125后面.的位置

域名 ＝ 到小写 (网址)
判断 (是否为空 (后缀点数量))  ' 使用“/”方式获取域名，网页_访问() 内部 必须使用这个
如果真 (取文本右边 (域名, 1) ≠ “/”)
域名 ＝ 域名 ＋ “/”

判断 (取文本左边 (域名, 8) ＝ “https://”)
域名 ＝ 文本_取出中间文本2 (域名, “https://”, “/”)
如果真 (寻找文本 (域名, “http://”, , 假) ＝ -1)
域名 ＝ “http://” ＋ 域名
域名 ＝ 文本_取出中间文本2 (域名, “http://”, “/”)

如果真 (去除二级域名)
二级 ＝ 分割文本 (域名, “.”, )
位置 ＝ 取数组成员数 (二级)
如果真 (位置 ＞ 1)
域名 ＝ 二级 [位置 － 1] ＋ “.” ＋ 二级 [位置]


' 通过“.”的方式取域名，支持任何后缀域名
域名 ＝ 子文本替换 (域名, “http://”, “”, , , 真)
域名 ＝ 子文本替换 (域名, “https://”, “”, , , 真)
位置 ＝ 寻找文本 (域名, “/”, , 假)  ' 一撇位置
如果真 (位置 ≠ -1)
域名 ＝ 取文本左边 (域名, 位置 － 1)
连续赋值 (取文本长度 (域名), 域名长度, 后点开始)
计次循环首 (后缀点数量, )
后点开始 ＝ 倒找文本 (域名, “.”, 后点开始, 假)
计次循环尾 ()
前点结束 ＝ 倒找文本 (域名, “.”, 后点开始, 假)
判断 (去除二级域名)
域名 ＝ 取文本右边 (域名, 域名长度 － 前点结束)
' 保留二级域名---------------------------------------
如果真 (前点结束 ≠ -1)  ' 至少是二级域名
前点开始 ＝ 倒找文本 (域名, “.”, 前点结束, 假)
如果真 (前点开始 ≠ -1)  ' 至少是三级域名
域名 ＝ 取文本右边 (域名, 域名长度 － 前点开始)



' 端口过滤处理--------------------------------------------------------
判断 (不过滤端口)
返回 (域名)
位置 ＝ 寻找文本 (域名, “:”, , 假)  ' 冒号位置
判断 (位置 ≠ -1)
返回 (取文本左边 (域名, 位置 － 1))
返回 (域名)

子程序名	返回值类型	公开	备 注
网页_取端口2	整数型		取出网站服务器的默认端口
参数名	类 型	参考	可空	数组	备 注
网址	文本型

变量名	类 型	静态	数组	备 注
端口	文本型
位置	整数型

端口 ＝ 网页_取域名2 (网址, , 真)
位置 ＝ 倒找文本 (端口, “:”, , 假)
判断 (位置 ≠ -1)
返回 (到整数 (取文本右边 (端口, 取文本长度 (端口) － 位置)))
判断 (取文本左边 (到小写 (网址), 5) ＝ “https”)
返回 (443)
返回 (80)

子程序名	返回值类型	公开	备 注
文本_取出中间文本2	文本型		比如：欲取全文本为“12345”,现在要取出“3”，<3>的前面为“2”，<3>的后面为“4”，
参数名	类 型	参考	可空	数组	备 注
欲取全文本	文本型				比如：欲取全文本为 12345
前面文本	文本型				3的前面为“2”，引号直接用 #引号，如："[color=#引号red#引号]"
后面文本	文本型				3的后面为“4”，引号直接用 #引号，如："[color=#引号red#引号]"
起始搜寻位置	整数型				可空,这里是指搜寻 参数二 前面文本 的开始位置
是否不区分大小写	逻辑型				为真不区分大小写，为假区分。

变量名	类 型	静态	数组	备 注
局_前面文本位置	整数型
局_后面文本位置	整数型
局_前面文本	文本型
局_后面文本	文本型

局_前面文本 ＝ 子文本替换 (前面文本, “#引号”, #引号, , , 真)
局_后面文本 ＝ 子文本替换 (后面文本, “#引号”, #引号, , , 真)
局_前面文本位置 ＝ 寻找文本 (欲取全文本, 局_前面文本, 起始搜寻位置, 是否不区分大小写)
如果真 (局_前面文本位置 ≠ -1)
局_前面文本位置 ＝ 局_前面文本位置 ＋ 取文本长度 (局_前面文本)
局_后面文本位置 ＝ 寻找文本 (欲取全文本, 局_后面文本, 局_前面文本位置, 是否不区分大小写)
如果真 (局_前面文本位置 ＝ -1 或 局_后面文本位置 ＝ -1)
返回 (“”)
返回 (取文本中间 (欲取全文本, 局_前面文本位置, 局_后面文本位置 － 局_前面文本位置))

.版本 2<br /> <br /> .子程序 内部_协议头取值, 文本型<br /> .参数 协议头, 文本型<br /> .局部变量 位置, 整数型<br /> .局部变量 结果, 文本型<br /> <br /> 位置 ＝ 寻找文本 (协议头, “:”, , 假)<br /> .如果真 (位置 ≠ -1)<br />     结果 ＝ 取文本右边 (协议头, 取文本长度 (协议头) － 位置)<br /> .如果真结束<br /> 返回 (删首尾空 (结果))<br /> <br /> <br /> <br /> .子程序 网页_取域名2, 文本型, , 通过“/”或者“.”来获取网址中的域名，默认使用“/”方式<br /> .参数 网址, 文本型<br /> .参数 去除二级域名, 逻辑型, 可空<br /> .参数 不过滤端口, 逻辑型, 可空<br /> .参数 后缀点数量, 整数型, 可空, 不留空表示通过“.”的方式取域名 。如：.com后缀点数量为1 ,.com.cn后缀点数量为2<br /> .局部变量 域名, 文本型<br /> .局部变量 位置, 整数型<br /> .局部变量 二级, 文本型, , "0"<br /> .局部变量 域名长度, 整数型<br /> .局部变量 前点开始, 整数型, , , 如<a href="http://www.bbs.125.la" target="_blank">www.bbs.125.la</a>   www后面.的位置<br /> .局部变量 前点结束, 整数型, , , 如<a href="http://www.bbs.125.la" target="_blank">www.bbs.125.la</a>   bbs后面.的位置<br /> .局部变量 后点开始, 整数型, , , 如<a href="http://www.bbs.125.la" target="_blank">www.bbs.125.la</a>   125后面.的位置<br /> <br /> 域名 ＝ 到小写 (网址)<br /> .判断开始 (是否为空 (后缀点数量))  ' 使用“/”方式获取域名，网页_访问() 内部 必须使用这个<br />     .如果真 (取文本右边 (域名, 1) ≠ “/”)<br />         域名 ＝ 域名 ＋ “/”<br />     .如果真结束<br /> <br />     .判断开始 (取文本左边 (域名, 8) ＝ “https://”)<br />         域名 ＝ 文本_取出中间文本2 (域名, “https://”, “/”)<br />     .默认<br />         .如果真 (寻找文本 (域名, “http://”, , 假) ＝ -1)<br />             域名 ＝ “http://” ＋ 域名<br />         .如果真结束<br />         域名 ＝ 文本_取出中间文本2 (域名, “http://”, “/”)<br />     .判断结束<br /> <br />     .如果真 (去除二级域名)<br />         二级 ＝ 分割文本 (域名, “.”, )<br />         位置 ＝ 取数组成员数 (二级)<br />         .如果真 (位置 ＞ 1)<br />             域名 ＝ 二级 [位置 － 1] ＋ “.” ＋ 二级 [位置]<br />         .如果真结束<br /> <br />     .如果真结束<br /> <br /> .默认<br />     ' 通过“.”的方式取域名，支持任何后缀域名<br />     域名 ＝ 子文本替换 (域名, “http://”, “”, , , 真)<br />     域名 ＝ 子文本替换 (域名, “https://”, “”, , , 真)<br />     位置 ＝ 寻找文本 (域名, “/”, , 假)  ' 一撇位置<br />     .如果真 (位置 ≠ -1)<br />         域名 ＝ 取文本左边 (域名, 位置 － 1)<br />     .如果真结束<br />     连续赋值 (取文本长度 (域名), 域名长度, 后点开始)<br />     .计次循环首 (后缀点数量, )<br />         后点开始 ＝ 倒找文本 (域名, “.”, 后点开始, 假)<br />     .计次循环尾 ()<br />     前点结束 ＝ 倒找文本 (域名, “.”, 后点开始, 假)<br />     .判断开始 (去除二级域名)<br />         域名 ＝ 取文本右边 (域名, 域名长度 － 前点结束)<br />     .默认<br />         ' 保留二级域名---------------------------------------<br />         .如果真 (前点结束 ≠ -1)  ' 至少是二级域名<br />             前点开始 ＝ 倒找文本 (域名, “.”, 前点结束, 假)<br />             .如果真 (前点开始 ≠ -1)  ' 至少是三级域名<br />                 域名 ＝ 取文本右边 (域名, 域名长度 － 前点开始)<br />             .如果真结束<br /> <br />         .如果真结束<br /> <br />     .判断结束<br /> <br /> .判断结束<br /> ' 端口过滤处理--------------------------------------------------------<br /> .判断开始 (不过滤端口)<br />     返回 (域名)<br /> .默认<br />     位置 ＝ 寻找文本 (域名, “:”, , 假)  ' 冒号位置<br />     .判断开始 (位置 ≠ -1)<br />         返回 (取文本左边 (域名, 位置 － 1))<br />     .默认<br />         返回 (域名)<br />     .判断结束<br /> <br /> .判断结束<br /> <br /> <br /> .子程序 网页_取端口2, 整数型, , 取出网站服务器的默认端口<br /> .参数 网址, 文本型<br /> .局部变量 端口, 文本型<br /> .局部变量 位置, 整数型<br /> <br /> 端口 ＝ 网页_取域名2 (网址, , 真)<br /> 位置 ＝ 倒找文本 (端口, “:”, , 假)<br /> .判断开始 (位置 ≠ -1)<br />     返回 (到整数 (取文本右边 (端口, 取文本长度 (端口) － 位置)))<br /> .判断 (取文本左边 (到小写 (网址), 5) ＝ “https”)<br />     返回 (443)<br /> .默认<br />     返回 (80)<br /> <br /> <br /> .判断结束<br /> <br /> <br /> .子程序 文本_取出中间文本2, 文本型, , 比如：欲取全文本为“12345”,现在要取出“3”，<3>的前面为“2”，<3>的后面为“4”，<br /> .参数 欲取全文本, 文本型, , 比如：欲取全文本为 12345<br /> .参数 前面文本, 文本型, , 3的前面为“2”，引号直接用 #引号，如："[color=#引号red#引号]"<br /> .参数 后面文本, 文本型, , 3的后面为“4”，引号直接用 #引号，如："[color=#引号red#引号]"<br /> .参数 起始搜寻位置, 整数型, 可空, 可空,这里是指搜寻 参数二 前面文本 的开始位置<br /> .参数 是否不区分大小写, 逻辑型, 可空, 为真不区分大小写，为假区分。<br /> .局部变量 局_前面文本位置, 整数型<br /> .局部变量 局_后面文本位置, 整数型<br /> .局部变量 局_前面文本, 文本型<br /> .局部变量 局_后面文本, 文本型<br /> <br /> 局_前面文本 ＝ 子文本替换 (前面文本, “#引号”, #引号, , , 真)<br /> 局_后面文本 ＝ 子文本替换 (后面文本, “#引号”, #引号, , , 真)<br /> 局_前面文本位置 ＝ 寻找文本 (欲取全文本, 局_前面文本, 起始搜寻位置, 是否不区分大小写)<br /> .如果真 (局_前面文本位置 ≠ -1)<br />     局_前面文本位置 ＝ 局_前面文本位置 ＋ 取文本长度 (局_前面文本)<br /> .如果真结束<br /> 局_后面文本位置 ＝ 寻找文本 (欲取全文本, 局_后面文本, 局_前面文本位置, 是否不区分大小写)<br /> .如果真 (局_前面文本位置 ＝ -1 或 局_后面文本位置 ＝ -1)<br />     返回 (“”)<br /> .如果真结束<br /> 返回 (取文本中间 (欲取全文本, 局_前面文本位置, 局_后面文本位置 － 局_前面文本位置))