该脚本涉及webtours的注册、登录、预定、取消、退出操作,编写的过程使用不录制的方式,根据get、post确定方法。
1 /*----------------- vuser_init -----------------*/ 2 vuser_init() 3 { 4 return 0; 5 } 6 /*----------------- sign -----------------*/ 7 sign() 8 { 9 lr_start_transaction("sign_hp"); 10 11 web_url("sign_hp","url=http://127.0.0.1:1080/WebTours/login.pl?username=&password=&getInfo=true",LAST); 12 13 lr_end_transaction("sign_hp",LR_AUTO); 14 15 16 web_reg_save_param("sign_on","LB=<title>","RB=</title>","Search=body","notfound=warning",LAST); 17 lr_start_transaction("sign_on"); 18 web_submit_data("sign_on", 19 "Action=http://127.0.0.1:1080/WebTours/login.pl", 20 "Method=POST", 21 "TargetFrame=", 22 "RecContentType=text/html", 23 "Referer=http://127.0.0.1:1080/WebTours/login.pl?username=&password=&getInfo=true", 24 "Snapshot=t7.inf", 25 "Mode=HTML", 26 ITEMDATA, 27 "Name=username","Value={username_singon}",ENDITEM, 28 "Name=password","Value={password_signon}",ENDITEM, 29 "Name=passwordConfirm","Value={password_signon}",ENDITEM, 30 "Name=firstName","Value=test",ENDITEM, 31 "Name=lastName","Value=test",ENDITEM, 32 "Name=address1","Value=test",ENDITEM, 33 "Name=address2","Value=test",ENDITEM, 34 "Name=register.x","Value=53",ENDITEM, 35 "Name=register.y","Value=8",ENDITEM, 36 LAST ); 37 38 if(strcmp("Welcome to Web Tours",lr_eval_string("{sign_on}"))==0){ 39 lr_end_transaction("sign_on",LR_PASS); 40 }else{ 41 lr_end_transaction("sign_on",LR_FAIL); 42 lr_error_message("sign_on fail!"); 43 lr_exit(LR_EXIT_ACTION_AND_CONTINUE,LR_AUTO); 44 } 45 46 47 return 0; 48 } 49 /*----------------- login -----------------*/ 50 login() 51 { 52 53 54 lr_start_transaction("webtours_homepage"); 55 web_url("webtours_homepage","url=http://127.0.0.1:1080/WebTours/",LAST); 56 lr_end_transaction("webtours_homepage",LR_AUTO); 57 58 59 web_url("header","url=http://127.0.0.1:1080/WebTours/header.html",LAST); 60 61 web_url("signOff","url=http://127.0.0.1:1080/WebTours/welcome.pl?signOff=true",LAST); 62 63 web_url("home","url=http://127.0.0.1:1080/WebTours/home.html",LAST); 64 65 66 67 68 69 web_reg_save_param("webtours_login_para",