由于最近又在SGM做性能测试，扒拉出一篇去年5、6月份的一个脚本。
最近写的翻来看看其实也蛮简单的，还是就不放博客了。
Action()
{
//定义文件大小
int flen;
//定义响应数据内容大小
long filedes;
//定义文件名
char filename[1024];
//设置页面接受最大的字节数，该设置应大于下载文件的大小
web_set_max_html_param_len("1024000");
//将响应信息存放到fcontent变量，不需要改动
web_reg_save_param("fcontent",
"LB=",
"RB=",
"Ord=1",
"Search=Body",
LAST);
lr_start_transaction("download");
//下载
web_url("download",
"URL=http://universedev.saic-gm.com/QUEEN_GROW/downLoadExtend.action", //可以理解为，下载地址
"Resource=0",
"RecContentType=application/octet-stream",
"Referer=http://universedev.saic-gm.com/QUEEN_GROW/toSystem.action?menuId=marketMenu", //下载浏览器页面
"Snapshot=t7.inf",
"Mode=HTML",
LAST);
lr_end_transaction("download",LR_AUTO);
//获取响应的全部内容，作为文件内容保存
flen = web_get_int_property(HTTP_INFO_DOWNLOAD_SIZE);
//生成随机的文件名称，便于并发
strcpy(filename,"c:\\test_");
strcat(filename,lr_eval_string("{Num}"));//{Num}，做参数化,便于做iteration的下载
strcat(filename,".xlsx");
if(flen > 0){
//以写方式打开文件
if((filedes = fopen(filename, "wb")) == NULL){
lr_output_message("Open File Failed!");
return -1;
}
//写入文件内容
fwrite(lr_eval_string("{fcontent}"), flen, 1, filedes);
//关闭文件
fclose(filedes);
}
return 0;
}