易语言破解WPS的VIP模版下载地址

.版本 2
.DLL命令 API下载文件, 整数型, "urlmon", "URLDownloadToFileA", , -下载文件
  .参数 pcaller, 整数型
  .参数 szurl, 文本型
  .参数 szfilename, 文本型
  .参数 dwreserved, 整数型
  .参数 lpfncb, 整数型

.版本 2
.常量 id, "<文本长度: 21>", , "big":[{"image_url":"

.版本 2
.程序集 窗口程序集_启动窗口
.子程序 __启动窗口_创建完毕
.子程序 _按钮_开始解析_被单击
线程_启动 (&处理子程序)
.子程序 处理子程序
.局部变量 返回文本, 文本型
.局部变量 Hash, 文本型
.局部变量 address, 文本型
按钮_开始解析.禁止 ＝ 真
按钮_开始解析.标题 ＝ “解析中...”
返回文本 ＝ 编码_utf8到gb2312 (到文本 (网页_访问 (编辑框_地址.内容)))
Hash ＝ 文本_取右边 (文本_取左边 (文本_替换 (文本_取出中间文本 (返回文本, #id, #引号), , , , “\”, “”), “_”), “preview/”)
address ＝ “http://wdl1.cache.wps.cn/wps/cdnwps/upload/official/template/” ＋ Hash
.如果 (文本_取出现次数 (编码_utf8到gb2312 (到文本 (网页_访问 (address ＋ “.wpt”))), “KSOWS”, 假) ＜ 1)
  下载子程序 (“wpt模版文件(*.wpt)”, “wpt”, address)
.否则
  .如果 (文本_取出现次数 (编码_utf8到gb2312 (到文本 (网页_访问 (address ＋ “.dpt”))), “KSOWS”, 假) ＜ 1)
    下载子程序 (“dpt模版文件(*.dpt)”, “dpt”, address)
  .否则
    .如果 (文本_取出现次数 (编码_utf8到gb2312 (到文本 (网页_访问 (address ＋ “.ppt”))), “KSOWS”, 假) ＜ 1)
      下载子程序 (“ppt文档(*.ppt)”, “ppt”, address)
    .否则
      .如果 (文本_取出现次数 (编码_utf8到gb2312 (到文本 (网页_访问 (address ＋ “.dps”))), “KSOWS”, 假) ＜ 1)
        下载子程序 (“dps文档(*.dps)”, “dps”, address)
      .否则
        .如果 (文本_取出现次数 (编码_utf8到gb2312 (到文本 (网页_访问 (address ＋ “.pps”))), “KSOWS”, 假) ＜ 1)
          下载子程序 (“pps文档(*.pps)”, “pps”, address)
        .否则
          .如果 (文本_取出现次数 (编码_utf8到gb2312 (到文本 (网页_访问 (address ＋ “.pot”))), “KSOWS”, 假) ＜ 1)
            下载子程序 (“pot文档(*.pot)”, “pot”, address)
          .否则
            .如果 (文本_取出现次数 (编码_utf8到gb2312 (到文本 (网页_访问 (address ＋ “.pptx”))), “KSOWS”, 假) ＜ 1)
              下载子程序 (“pptx文档(*.pptx)”, “pptx”, address)
            .否则
              .如果 (文本_取出现次数 (编码_utf8到gb2312 (到文本 (网页_访问 (address ＋ “.wps”))), “KSOWS”, 假) ＜ 1)
                下载子程序 (“wps文档(*.wps)”, “wps”, address)
              .否则
                .如果 (文本_取出现次数 (编码_utf8到gb2312 (到文本 (网页_访问 (address ＋ “.doc”))), “KSOWS”, 假) ＜ 1)
                  下载子程序 (“doc文档(*.doc)”, “doc”, address)
                .否则
                  .如果 (文本_取出现次数 (编码_utf8到gb2312 (到文本 (网页_访问 (address ＋ “.dot”))), “KSOWS”, 假) ＜ 1)
                    下载子程序 (“dot文档(*.dot)”, “dot”, address)
                  .否则
                    .如果 (文本_取出现次数 (编码_utf8到gb2312 (到文本 (网页_访问 (address ＋ “.rtf”))), “KSOWS”, 假) ＜ 1)
                      下载子程序 (“rtf文档(*.rtf)”, “rtf”, address)
                    .否则
                      .如果 (文本_取出现次数 (编码_utf8到gb2312 (到文本 (网页_访问 (address ＋ “.docx”))), “KSOWS”, 假) ＜ 1)
                        下载子程序 (“docx文档(*.docx)”, “docx”, address)
                      .否则
                        .如果 (文本_取出现次数 (编码_utf8到gb2312 (到文本 (网页_访问 (address ＋ “.et”))), “KSOWS”, 假) ＜ 1)
                          下载子程序 (“et文档(*.et)”, “et”, address)
                        .否则
                          .如果 (文本_取出现次数 (编码_utf8到gb2312 (到文本 (网页_访问 (address ＋ “.ett”))), “KSOWS”, 假) ＜ 1)
                            下载子程序 (“ett文档(*.ett)”, “ett”, address)
                          .否则
                            .如果 (文本_取出现次数 (编码_utf8到gb2312 (到文本 (网页_访问 (address ＋ “.xls”))), “KSOWS”, 假) ＜ 1)
                              下载子程序 (“xls文档(*.xls)”, “xls”, address)
                            .否则
                              .如果 (文本_取出现次数 (编码_utf8到gb2312 (到文本 (网页_访问 (address ＋ “.xlt”))), “KSOWS”, 假) ＜ 1)
                                下载子程序 (“xlt文档(*.xlt)”, “xlt”, address)
                              .否则
                                .如果 (文本_取出现次数 (编码_utf8到gb2312 (到文本 (网页_访问 (address ＋ “.xlsx”))), “KSOWS”, 假) ＜ 1)
                                  下载子程序 (“xlsx文档(*.xlsx)”, “xlsx”, address)
                                .否则
                                  .如果 (文本_取出现次数 (编码_utf8到gb2312 (到文本 (网页_访问 (address ＋ “.xlsm”))), “KSOWS”, 假) ＜ 1)
                                    下载子程序 (“xlsm文档(*.xlsm)”, “xlsm”, address)
                                  .否则
                                    信息框 (“解析地址失败...（1、是否解析了上传日期为2014年12月后的文档。2、你输入的地址输入错误。地址是要进入每篇文档的地址。3、接口被封了）”, 48, “OMG - 没解析到地址”, )
                                  .如果结束
                                .如果结束
                              .如果结束
                            .如果结束
                          .如果结束
                        .如果结束
                      .如果结束
                    .如果结束
                  .如果结束
                .如果结束
              .如果结束
            .如果结束
          .如果结束
        .如果结束
      .如果结束
    .如果结束
  .如果结束
.如果结束
按钮_开始解析.标题 ＝ “开始解析”
按钮_开始解析.禁止 ＝ 假
.子程序 下载子程序
.参数 过滤器, 文本型, , '过滤器
.参数 后缀名, 文本型
.参数 下载地址, 文本型
通用对话框.过滤器 ＝ 过滤器
通用对话框.默认文件后缀 ＝ 后缀名
通用对话框.打开 ()
API下载文件 (0, 下载地址 ＋ “.” ＋ 后缀名, 通用对话框.文件名, 0, 0)