永硕E盘 2024最新协议模块源码 - 精易论坛

子程序名	返回值类型	公开	备注
刷新文件列表	逻辑型		需登录，XML树分析
参数名	类型	参考	可空	数组	备注
目录名称	文本型
永硕文件数组	永硕文件
返回scpz	文本型

变量名	类型	静态	数组	备注
局_返回	文本型
xml	XML树
xml数据	文本型
id	文本型
i	整数型
文件名	文本型
下载链接	文本型
上传时间	文本型
文件大小	文本型
目录数量	整数型
临时ML	永硕根目录

' http://c4.ysepan.com1889631&wjpx=1&_dlmc=694336034&_dlmm=

如果真 (取反 (查找目录 (目录名称, 临时ML)))

返回 (假)

http.Open (“GET”, 集_根域名＋ “/f_ht/ajcx/wj.aspx?cz=dq&jsq=0&mlbh=” ＋临时ML.ID ＋ “&wjpx=1&_dlmc=” ＋集_网盘ID ＋ “&_dlmm=”)
http.SetReferer (集_Referer)
http.Send ()
局_返回＝ http.GetResponseText ()
返回scpz ＝ asm_取出中间文本 (局_返回, “scpz = '”, “'”, , )
局_返回＝ U2A (_BASE64解码 (asm_取右边文本 (局_返回, “]”, )))
xml数据＝ “<span>” ＋局_返回＋ “</span>”
调试输出 (xml数据)
xml.导入 (到字节集 (xml数据))
目录数量＝ xml.取子节点个数 (“span”, )
重定义数组 (永硕文件数组, 假, 目录数量)

计次循环首 (目录数量, i)

永硕文件数组 [i].文件备注＝ xml.取节点值文本 (“span/@” ＋到文本 (i) ＋ “/@4”, )

id ＝ xml.取属性值文本 (“span/@” ＋到文本 (i), “id”, )

永硕文件数组 [i].文件ID ＝ asm_取右边文本 (id, “_”, , )

永硕文件数组 [i].文件名称＝ xml.取节点值文本 (“span/@” ＋到文本 (i) ＋ “/@2”, )

永硕文件数组 [i].下载地址＝ xml.取属性值文本 (“span/@” ＋到文本 (i) ＋ “/@2”, “href”, )

永硕文件数组 [i].上传时间＝ xml.取属性值文本 (“span/@” ＋到文本 (i) ＋ “/@2”, “title”, )

永硕文件数组 [i].文件大小＝ xml.取节点值文本 (“span/@” ＋到文本 (i) ＋ “/@3”, )

计次循环尾 ()

如果真 (返回scpz ≠ “”)

返回 (真)

返回 (假)

i支持库列表	支持库注释
EXMLParser	XML解析支持库
spec	特殊功能支持库

.版本 2<br />
.支持库 EXMLParser<br />
.支持库 spec<br />
<br />
.子程序 刷新文件列表, 逻辑型, 公开, 需登录，XML树分析<br />
.参数 目录名称, 文本型<br />
.参数 永硕文件数组, 永硕文件, 参考 数组<br />
.参数 返回scpz, 文本型, 参考 可空<br />
.局部变量 局_返回, 文本型<br />
.局部变量 xml, XML树<br />
.局部变量 xml数据, 文本型<br />
.局部变量 id, 文本型<br />
.局部变量 i, 整数型<br />
.局部变量 文件名, 文本型<br />
.局部变量 下载链接, 文本型<br />
.局部变量 上传时间, 文本型<br />
.局部变量 文件大小, 文本型<br />
.局部变量 目录数量, 整数型<br />
.局部变量 临时ML, 永硕根目录<br />
<br />
' http://c4.ysepan.com1889631&wjpx=1&_dlmc=694336034&_dlmm=<br />
.如果真 (取反 (查找目录 (目录名称, 临时ML)))<br />
<br />
    返回 (假)<br />
.如果真结束<br />
<br />
http.Open (“GET”, 集_根域名 ＋ “/f_ht/ajcx/wj.aspx?cz=dq&jsq=0&mlbh=” ＋ 临时ML.ID ＋ “&wjpx=1&_dlmc=” ＋ 集_网盘ID ＋ “&_dlmm=”)<br />
http.SetReferer (集_Referer)<br />
http.Send ()<br />
局_返回 ＝ http.GetResponseText ()<br />
返回scpz ＝ asm_取出中间文本 (局_返回, “scpz = '”, “'”, , )<br />
局_返回 ＝ U2A (_BASE64解码 (asm_取右边文本 (局_返回, “]”, )))<br />
xml数据 ＝ “<span>” ＋ 局_返回 ＋ “</span>”<br />
调试输出 (xml数据)<br />
xml.导入 (到字节集 (xml数据))<br />
目录数量 ＝ xml.取子节点个数 (“span”, )<br />
重定义数组 (永硕文件数组, 假, 目录数量)<br />
.计次循环首 (目录数量, i)<br />
    永硕文件数组 <i>.文件备注 ＝ xml.取节点值文本 (“span/@” ＋ 到文本 (i) ＋ “/@4”, )<br />
    id ＝ xml.取属性值文本 (“span/@” ＋ 到文本 (i), “id”, )<br />
    永硕文件数组 <i>.文件ID ＝ asm_取右边文本 (id, “_”, , )<br />
    永硕文件数组 <i>.文件名称 ＝ xml.取节点值文本 (“span/@” ＋ 到文本 (i) ＋ “/@2”, )<br />
    永硕文件数组 <i>.下载地址 ＝ xml.取属性值文本 (“span/@” ＋ 到文本 (i) ＋ “/@2”, “href”, )<br />
    永硕文件数组 <i>.上传时间 ＝ xml.取属性值文本 (“span/@” ＋ 到文本 (i) ＋ “/@2”, “title”, )<br />
    永硕文件数组 <i>.文件大小 ＝ xml.取节点值文本 (“span/@” ＋ 到文本 (i) ＋ “/@3”, )<br />
.计次循环尾 ()<br />
.如果真 (返回scpz ≠ “”)<br />
    返回 (真)<br />
.如果真结束<br />
<br />
返回 (假)