LR下载文件脚本实例

这是我实践过的一个下载一个pdf文件的脚本，下载的文件保存到了我指定的C盘根目录中。

#include "web_api.h"

 

Action()

{

       int a;// 文件大小

       long b; // 响应数据内容大小

 

       web_url("487989.html",

              "URL=http://www.cnblogs.com/tester2test/archive/2006/08/28/487989.html",

              "Resource=0",

              "RecContentType=text/html",

              "Referer=",

              "Snapshot=t2.inf",

              "Mode=HTML",

              EXTRARES,

         

               "Url=http://www.vqq.com/vqq_inset.js?isMin=0&place=RB&Css=2&RoomName=5rWL6K+V6ICF5a625Zut6K665Z2b&encode=1&isTime=0&width=350&height=240&everypage=0", ENDITEM,

              "Url=http://www.vqq.com/image/chat2.gif", ENDITEM,

              LAST);

 

       web_set_max_html_param_len("10000");  // 设置最大长度

 

       web_reg_save_param("fcontent", "LB=", "RB=", "SEARCH=BODY", LAST) ; // 将响应信息存放到 fcontent 变量

 

       web_url(" 下载页面 ",

              "URL=http://www.cnblogs.com/Files/tester2test/xncssj.pdf",

              "Resource=0",

              "RecContentType=text/html",

              "Referer=http://www.cnblogs.com/tester2test/archive/2006/08/28/487989.html",

              "Snapshot=t3.inf",

              "Mode=HTML",

              LAST);

 

       a = web_get_int_property(HTTP_INFO_DOWNLOAD_SIZE) ; // 获取下载文件的大小

 

       if(a > 0)   

       {

              if((b = fopen("c:// 性能测试实践及其展望 .pdf", "wb")) == NULL)   // 以写方式打开文件

              {

                     lr_output_message(" 文件操作失败 !");

                     return -1;

              }

 

              fwrite(lr_eval_string("{fcontent}"), a, 1, b) ;  // 写入文件内容

              fclose(b);  // 关闭文件

       }

 

       return 0;

}