web类协议脚本-飞机订票系统示例

以下是LR自带的飞机订票系统的Demo，希望能帮助大家。

Action()
{
 int iRand;
 int iTmp;
 char *strTmpA;
 char *strTmpB;
 char *strTmpC;
 char *position;
 if ((strTmpA = (char *)malloc( * sizeof(char))) == NULL) {
     lr_output_message ("Insufficient memory available");
     return -;
    }
 if ((strTmpB = (char *)malloc( * sizeof(char))) == NULL) {
     lr_output_message ("Insufficient memory available");
     return -;
 }
 if ((strTmpC = (char *)malloc( * sizeof(char))) == NULL) {
     lr_output_message ("Insufficient memory available");
     return -;
 }
 web_reg_save_param("userSession",
  "LB=<input type=hidden name=userSession value=",
  "RB=>",
  LAST);
 web_url("WebTours",
  "URL=http://127.0.0.1:1080/WebTours/",
  "TargetFrame=",
  "Resource=0",
  "RecContentType=text/html",
  "Referer=",
  "Snapshot=t2.inf",
  "Mode=HTML",
  LAST);
 //lr_start_transaction("login");
 //r_think_time(17);
 web_submit_data("login.pl",
  "Action=http://127.0.0.1:1080/WebTours/login.pl",
  "Method=POST",
  "TargetFrame=",
  "RecContentType=text/html",
  "Referer=http://127.0.0.1:1080/WebTours/nav.pl?in=home",
  "Snapshot=t3.inf",
  "Mode=HTML",
  ITEMDATA,
  "Name=userSession", "Value={userSession}", ENDITEM,
  "Name=username", "Value=demo", ENDITEM,
  "Name=password", "Value=demo", ENDITEM,
  "Name=JSFormSubmit", "Value=on", ENDITEM,
  "Name=login.x", "Value=26", ENDITEM,
  "Name=login.y", "Value=5", ENDITEM,
  LAST);
 //lr_end_transaction("login",LR_AUTO);
 lr_start_transaction("order");
 //r_think_time(9);
web_reg_save_param("City",
  "LB=<option ",
  "RB=</option>",
  "Ord=ALL",
  LAST);
web_url("Search Flights Button",
  "URL=http://127.0.0.1:1080/WebTours/welcome.pl?page=search",
  "TargetFrame=body",
  "Resource=0",
  "RecContentType=text/html",
  "Referer=http://127.0.0.1:1080/WebTours/nav.pl?page=menu&in=home",
  "Snapshot=t4.inf",
  "Mode=HTML",
  LAST);
 web_url("FormDateUpdate.class",
  "URL=http://127.0.0.1:1080/WebTours/FormDateUpdate.class",
  "TargetFrame=",
  "Resource=0",
  "RecContentType=text/html",
  "Referer=",
  "Mode=HTML",
  LAST);
 web_url("CalSelect.class",
  "URL=http://127.0.0.1:1080/WebTours/CalSelect.class",
  "TargetFrame=",
  "Resource=0",
  "RecContentType=text/html",
  "Referer=",
  "Mode=HTML",
  LAST);
 web_url("Calendar.class",
  "URL=http://127.0.0.1:1080/WebTours/Calendar.class",
  "TargetFrame=",
  "Resource=0",
  "RecContentType=text/html",
  "Referer=",
  "Mode=HTML",
  LAST);
 //r_think_time(7);
 lr_output_message(lr_eval_string("The City count is:{City_count}"));
 iTmp = atoi(lr_eval_string("{City_count}")); //城市个数转换成int类型
 //   srand(time(NULL));
 iRand = rand() % (iTmp/+);   //随机数+1的含义是避免出现随机数是0得到City_0 加1得到的最终随机数=随机数+1；
 sprintf(strTmpA,"{City_%d}", iRand); //获取随机取到的城市编号
 sprintf(strTmpA, lr_eval_string(strTmpA)); //获取城市编号对应的值
 lr_message("The depart city is %s", strTmpA); //打印城市名称 value="Frankfurt">Frankfurt
    position = (char *)strstr(strTmpA, ">");  //定位到">"位置
 lr_save_string(position+, "DepartCity");  //">"位置+1就是要获取的城市名称

 iRand = rand() % (iTmp/+);
 sprintf(strTmpB,"{City_%d}", iRand);
 sprintf(strTmpB, lr_eval_string(strTmpB));
 lr_message("The depart city is %s", strTmpB);
    position = (char *)strstr(strTmpB, ">");
 lr_save_string(position+, "ArriveCity");
 while(strcmp(lr_eval_string("{DepartCity}"), lr_eval_string("{ArriveCity}")) == )
    {
  iRand = rand() % (iTmp/) +;

  sprintf(strTmpB,"{City_%d}", iRand);

  sprintf(strTmpB, lr_eval_string(strTmpB));

  lr_message("The depart city is %s", strTmpB);

  position = (char *)strstr(strTmpB, ">"); 

  lr_save_string(position+, "ArriveCity");
 }
 web_reg_save_param("FlightNo",
  "LB=<input type = radio name=outboundFlight value=",
  "RB=>",
  "Ord=ALL",
  LAST);
//<input type = radio name=outboundFlight value=010;386;04/19/2015 checked >Blue Sky Air 010<
 web_submit_data("reservations.pl",
  "Action=http://127.0.0.1:1080/WebTours/reservations.pl",
  "Method=POST",
  "TargetFrame=",
  "RecContentType=text/html",
  "Referer=http://127.0.0.1:1080/WebTours/reservations.pl?page=welcome",
  "Snapshot=t5.inf",
  "Mode=HTML",
  ITEMDATA,
  "Name=advanceDiscount", "Value=0", ENDITEM,
  "Name=depart", "Value={DepartCity}", ENDITEM,
  "Name=departDate", "Value={departDate}", ENDITEM,
  "Name=arrive", "Value={ArriveCity}", ENDITEM,
  "Name=returnDate", "Value={arriveDate}", ENDITEM,
  "Name=numPassengers", "Value=1", ENDITEM,
  "Name=seatPref", "Value=None", ENDITEM,
  "Name=seatType", "Value=Coach", ENDITEM,
  "Name=.cgifields", "Value=roundtrip", ENDITEM,
  "Name=.cgifields", "Value=seatType", ENDITEM,
  "Name=.cgifields", "Value=seatPref", ENDITEM,
  "Name=findFlights.x", "Value=54", ENDITEM,
  "Name=findFlights.y", "Value=5", ENDITEM,
  LAST);
iTmp = atoi(lr_eval_string("{FlightNo_count}"));
 iRand = rand() % iTmp +;
 //iRand = 1;
 sprintf(strTmpC,"{FlightNo_%d}", iRand);
 sprintf(strTmpC, lr_eval_string(strTmpC));
 lr_message("The Flight No is %s", strTmpC);
    position = (char *)strstr(strTmpC, "checked");
 if (position != NULL) {
  sprintf(position -, "\0");
 }
 lr_save_string(strTmpC, "FlightNewNo");
 web_submit_data("reservations.pl_2",
  "Action=http://127.0.0.1:1080/WebTours/reservations.pl",
  "Method=POST",
  "TargetFrame=",
  "RecContentType=text/html",
  "Referer=http://127.0.0.1:1080/WebTours/reservations.pl",
  "Snapshot=t6.inf",
  "Mode=HTML",
  ITEMDATA,
  "Name=outboundFlight", "Value={FlightNewNo}", ENDITEM,
  "Name=numPassengers", "Value=1", ENDITEM,
  "Name=advanceDiscount", "Value=0", ENDITEM,
  "Name=seatType", "Value=Coach", ENDITEM,
  "Name=seatPref", "Value=None", ENDITEM,
  "Name=reserveFlights.x", "Value=15", ENDITEM,
  "Name=reserveFlights.y", "Value=2", ENDITEM,
  LAST);
 //r_think_time(4);
 web_submit_data("reservations.pl_3",
  "Action=http://127.0.0.1:1080/WebTours/reservations.pl",
  "Method=POST",
  "TargetFrame=",
  "RecContentType=text/html",
  "Referer=http://127.0.0.1:1080/WebTours/reservations.pl",
  "Snapshot=t7.inf",
  "Mode=HTML",
  ITEMDATA,
  "Name=firstName", "Value=Demo", ENDITEM,
  "Name=lastName", "Value=Demo", ENDITEM,
  "Name=address1", "Value=AAA", ENDITEM,
  "Name=address2", "Value=", ENDITEM,
  "Name=pass1", "Value=Demo Demo", ENDITEM,
  "Name=creditCard", "Value=", ENDITEM,
  "Name=expDate", "Value=", ENDITEM,
  "Name=oldCCOption", "Value=", ENDITEM,
  "Name=numPassengers", "Value=1", ENDITEM,
  "Name=seatType", "Value=Coach", ENDITEM,
  "Name=seatPref", "Value=None", ENDITEM,
  "Name=outboundFlight", "Value={FlightNewNo}", ENDITEM,
  "Name=advanceDiscount", "Value=0", ENDITEM,
  "Name=returnFlight", "Value=", ENDITEM,
  "Name=JSFormSubmit", "Value=off", ENDITEM,
  "Name=.cgifields", "Value=saveCC", ENDITEM,
  "Name=buyFlights.x", "Value=37", ENDITEM,
  "Name=buyFlights.y", "Value=5", ENDITEM,
  LAST);
 lr_end_transaction("order",LR_AUTO);
 //lr_start_transaction("logout");
 ////r_think_time(13);
 web_url("welcome.pl",
  "URL=http://127.0.0.1:1080/WebTours/welcome.pl?signOff=1",
  "TargetFrame=",
  "Resource=0",
  "RecContentType=text/html",
  "Referer=http://127.0.0.1:1080/WebTours/nav.pl?page=menu&in=flights",
  "Snapshot=t8.inf",
  "Mode=HTML",
  LAST);
 //lr_end_transaction("logout",LR_AUTO);
 free(strTmpA);
 free(strTmpB);
 free(strTmpC);
 return ;
}