LR脚本例子

Action()
{
//设置手动关联


    web_reg_save_param("usersession",
    "LB=name=userSession value=",
    "RB=>", 
    "ORD=1",
    LAST);


web_add_filter("Action=Exclude", "URL=http://www.baidu.com/", LAST );


web_url("webtours", 
"URL=http://127.0.0.1:2080/webtours/", 
"Resource=0", 
"RecContentType=text/html", 
"Referer=", 
"Snapshot=t1.inf", 
"Mode=HTML", 
LAST);


web_url("favicon.ico", 
"URL=http://127.0.0.1:2080/favicon.ico", 
"Resource=1", 
"Referer=", 
LAST);

    
lr_rendezvous("loginrendezvous");


// web_reg_find("Text=Welcome", LAST ); 


     web_reg_find("Search=ALL","Text=Welcome", "SaveCount=Welcome_Count", LAST ); 


lr_start_transaction("登录");


web_submit_data("login.pl", 
"Action=http://127.0.0.1:2080/webtours/login.pl", 
"Method=POST", 
"RecContentType=text/html", 
"Referer=http://127.0.0.1:2080/webtours/nav.pl?in=home", 
"Snapshot=t2.inf", 
"Mode=HTML", 
ITEMDATA, 
"Name=userSession", "Value={usersession}", ENDITEM, 
"Name=username", "Value={username}", ENDITEM, 
"Name=password", "Value=123", ENDITEM, 
"Name=JSFormSubmit", "Value=on", ENDITEM, 
"Name=login.x", "Value=72", ENDITEM, 
"Name=login.y", "Value=15", ENDITEM, 
LAST);


    
lr_end_transaction("登录",LR_AUTO);



    if (atoi(lr_eval_string("{Welcome_Count}")) > 0){ 


        lr_output_message("%s Log on successful.",lr_eval_string ( "{username}" )); 


        } 


     else{ 


        lr_error_message("%s Log on failed.",lr_eval_string ( "{username}" )); 


        return(0); 


     } 


    
lr_output_message ( " %s   用户登录成功！", lr_eval_string ( "{username}" ) ); 


    lr_output_message ( "usersession: %s", lr_eval_string ( "{usersession}" ) );   //打印关联到的user Session


lr_start_transaction("退出");


web_image("SignOff Button", 
"Alt=SignOff Button", 
"Snapshot=t3.inf", 
LAST);


lr_end_transaction("退出",LR_AUTO);


return 0;
}