永硕e盘网盘操作工具源码

agy518

好久不见开奖号监控

viketeam

66666666666666666666666666666666666666666666666666

奏鸣曲

提示数组错误的又不会改的复制代码粘贴到程序集_网页集里面删除原行代码即可
.版本 2
.支持库 iext
.支持库 iext6


.子程序 永硕E盘_下载记录, 整数型
.局部变量 网络网页, 文本型
.局部变量 网络数据, 文本型
.局部变量 网络返回, 文本型
.局部变量 正则, 正则表达式类
.局部变量 数目, 整数型
.局部变量 计次, 整数型
.局部变量 n, 整数型
.局部变量 m, 整数型
.局部变量 文本, 文本型
.局部变量 文本分割, 文本型, , "0"
.局部变量 总量, 整数型
.局部变量 百分之百, 整数型
.局部变量 百分比, 双精度小数型
.局部变量 百分百, 双精度小数型


网络网页 ＝ 永远网页
网络数据 ＝ “Yz0=xsdllb&Yz1=1&Yz2=&Yz3=&Yz4=”
网络返回 ＝ 到文本 (网页_访问_对象 (网络网页, 1, 网络数据, Cookies))
.判断开始 (寻找文本 (网络返回, “未查到记录”, , 假) ≠ -1)
    窗口_下载记录.超级列表框_下载记录.插入表项 (, , , , , )
    窗口_下载记录.超级列表框_下载记录.置标题 (0, 0, “未查到记录”)
    窗口_下载记录.超级列表框_下载记录.置标题 (0, 1, “未查到记录”)
    窗口_下载记录.超级列表框_下载记录.置标题 (0, 2, “未查到记录”)
    窗口_下载记录.超级列表框_下载记录.置标题 (0, 3, “未查到记录”)
    窗口_下载记录.超级列表框_下载记录.置标题 (0, 4, “未查到记录”)
    窗口_下载记录.超级列表框_下载记录.置标题 (0, 5, “未查到记录”)
    返回 (0)
    文本 ＝ 文本_取出中间文本 (网络返回, “.clfy('”, “');”)
.默认
    文本分割 ＝ 分割文本 (文本, “,”, )
    总量 ＝ 到整数 (文本分割 [3])
.判断结束
.计次循环首 (总量, n)
    .如果真 (n ≠ 1)
        网络网页 ＝ 永远网页
        网络数据 ＝ “Yz0=xsdllb&Yz1=” ＋ 到文本 (n) ＋ “&Yz2=&Yz3=&Yz4=”
        网络返回 ＝ 到文本 (网页_访问_对象 (网络网页, 1, 网络数据, Cookies))
    .如果真结束
    .如果真 (正则.创建 (“<tr><td>([\s\S]*?)</td><td>([\s\S]*?)</td><td>.*?><td>([\s\S]*?)</td>.*?>([\s\S]*?)</td><td align=right>([\s\S]*?)</td><td align=right>([\s\S]*?)</td>”, 网络返回, 假, 假, 真, 真) ＝ 假)
        信息框 (读配置项 (取运行目录 () ＋ “\Program prompts.ini”, “40000”, “40550-txt”, ), 到整数 (读配置项 (取运行目录 () ＋ “\Program prompts.ini”, “40000”, “40550-img”, )), 读配置项 (取运行目录 () ＋ “\Program prompts.ini”, “40000”, “40550-Prompt”, ), _启动窗口.取窗口句柄 ())
        返回 (0)
    .如果真结束
    数目 ＝ 正则.取匹配数量 ()
    .如果真 (数目 ＝ 0)
        网络返回 ＝ 到文本 (网页_访问_对象 (“https://hao.360.cn”))
        .如果真 (取文本长度 (网络返回) ＜ 10)
            信息框 (读配置项 (取运行目录 () ＋ “\Program prompts.ini”, “40000”, “40520-txt”, ), 到整数 (读配置项 (取运行目录 () ＋ “\Program prompts.ini”, “40000”, “40520-img”, )), 读配置项 (取运行目录 () ＋ “\Program prompts.ini”, “40000”, “40520-Prompt”, ), _启动窗口.取窗口句柄 ())
            返回 (0)
        .如果真结束
        信息框 (读配置项 (取运行目录 () ＋ “\Program prompts.ini”, “40000”, “40530-txt”, ), 到整数 (读配置项 (取运行目录 () ＋ “\Program prompts.ini”, “40000”, “40530-img”, )), 读配置项 (取运行目录 () ＋ “\Program prompts.ini”, “40000”, “40530-Prompt”, ), _启动窗口.取窗口句柄 ())
        返回 (0)
    .如果真结束
    .计次循环首 (数目, 计次)
        m ＝ 窗口_下载记录.超级列表框_下载记录.插入表项 (, , , , , )
        窗口_下载记录.超级列表框_下载记录.置标题 (m, 0, 正则.取子匹配文本 (计次, 1))
        窗口_下载记录.超级列表框_下载记录.置标题 (m, 1, 正则.取子匹配文本 (计次, 2))
        窗口_下载记录.超级列表框_下载记录.置标题 (m, 2, 正则.取子匹配文本 (计次, 3))
        窗口_下载记录.超级列表框_下载记录.置标题 (m, 3, 正则.取子匹配文本 (计次, 4))
        窗口_下载记录.超级列表框_下载记录.置标题 (m, 4, 正则.取子匹配文本 (计次, 5))
        窗口_下载记录.超级列表框_下载记录.置标题 (m, 5, 正则.取子匹配文本 (计次, 6))
        百分之百 ＝ 百分之百 ＋ 1
        百分百 ＝ 100 ÷ 到整数 (文本分割 [1])
        百分比 ＝ 四舍五入 (百分之百 × 百分百, 3)
        窗口_下载记录.多功能条_进度.位置 ＝ 百分比
        窗口_下载记录.标题 ＝ “加载：” ＋ 到文本 (百分比) ＋ “%” ＋ “ - 共：” ＋ 文本分割 [1]
    .计次循环尾 ()
.计次循环尾 ()
返回 (数目)

520vivo

没有皮肤模块

チん

感谢楼主分享·w·

2606668859

支持一下！！！！！！

iri4c4

+6666给力了

奏鸣曲

my6036324 发表于 2017-2-9 18:30
看不出作用在哪

本来就是利用E盘更新程序时觉得麻烦登网页才做的，，好东西谁会分享

龙海软件

看看效果咋样 嘿嘿

my6036324

看不出作用在哪