第1讲:LR 自带订票系统完整脚本(纯脚本)

各位新年好！

 

      前两周将LR在手机应用测试实现作了简单介绍，相信各位对如何使用有一定的了解，当然仅仅是包括了最基本如何去实现问题，今天也不例外，因为注意到LR自带的订票系统(11.5的，之前的订票系统可能有些不一样)是不少像我一样的初学者拿来做实验的，网上有部分脚本，但我看了下不是很完整，所以就在此补充了。欢迎各位大侠拍砖。

 第一部分：

vuser_init

 

 

HomePage()
{

		web_reg_save_param("UserSession",
		"LB=<input type=hidden name=userSession value=",
		"RB=>",
		"ORD=ALL",
		LAST);



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

	lr_think_time(26);

	lr_paramarr_len("UserSession");
	
	   
   return 0;
	
}

 

第三部分：

SubmitLogin

 

SubmitLogin()
{

	
		 web_reg_find("Search=Body",
		   "Text=Welcome, <b>karsen</b>, to the Web Tours reservation pages.",
		   LAST);
	

	web_submit_data("login.pl",
		   "Action=http://127.0.0.1:1080/cgi-bin/login.pl",
		   "Method=POST",
		   "TargetFrame=",
		   "RecContentType=text/html",
		   "Referer=http://127.0.0.1:1080/webtours/nav.pl?in=home",
		   "Mode=HTML",
		   ITEMDATA,
		   "Name=userSession", "Value={UserSession_3}", ENDITEM,
		   "Name=username", "Value=karsen", ENDITEM,
		   "Name=password", "Value=123456", ENDITEM,
		   "Name=JSFormSubmit", "Value=on", ENDITEM,
		   LAST);


	 
	return 0;
}

 

 第四部分:

Flights

Flights()
{
   
	web_reg_save_param("FlightInfo",
		"LB=\">",
		"RB=</option>",
		"Ord=ALL",
		LAST);
    
	web_reg_find("Search=Body",
		"Text=Find Flight",
		LAST);
	

	web_image("Search Flights Button", 
		"Alt=Search Flights Button", 
		"Snapshot=t16.inf", 
		EXTRARES, 
		"Url=../WebTours/classes/FormDateUpdate.class", "Referer=", ENDITEM, 
		"Url=../WebTours/classes/CalSelect.class", "Referer=", ENDITEM, 
		"Url=../WebTours/classes/Calendar.class", "Referer=", ENDITEM, 
		LAST);

return 0;
	
}

 

第五部分

FlightInfo

FlightInfo()
{
   
	char DepartCity[20]={NULL},
                       ArriveCity[20]={NULL},
                       FlightLines[20]={NULL},
                       FlightParam[20]={NULL};
	int FlightNumbers,FlightIndex;

	srand((unsigned)time(NULL));
	FlightNumbers =lr_paramarr_len("FlightInfo")/2;
	FlightIndex = rand()%FlightNumbers + 1;
	sprintf(FlightParam,"{FlightInfo_%d}",FlightIndex);
	lr_output_message ("FlightIndex is %d",FlightIndex );
	sprintf(DepartCity,"%s",lr_eval_string (FlightParam));
	sprintf(ArriveCity,"%s",lr_eval_string (FlightParam));
	lr_save_string(DepartCity,"DepartCity");
	
  
    
	while (strcmp(&DepartCity,&ArriveCity)==0) {	
	FlightIndex = rand()%FlightNumbers + 1;
	sprintf(FlightParam,"{FlightInfo_%d}",FlightIndex);
	sprintf(ArriveCity,"%s",lr_eval_string (FlightParam));
	lr_save_string(ArriveCity,"ArriveCity");
	}
	lr_output_message("The Depart city is:%s",lr_eval_string("{DepartCity}"));
	lr_output_message ("The Arrive city is :%s",lr_eval_string("{ArriveCity}"));
	return 0;
}

 

第六部分

SubmitFlight

 int NumPassengers=0;
SubmitFlight()
{      
                  char SubmitFlightCustomerRequest[500];
	   int i=1;
	
	lr_think_time(27);


/*	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=t4.inf", 
		"Mode=HTML", 
		ITEMDATA, 
		"Name=advanceDiscount", "Value=1", ENDITEM, 
		"Name=depart", "Value={DepartCity}", ENDITEM, // you can use departCity directly if you set the string format. pay attention to the ""
		"Name=departDate", "Value={DepartDate}", ENDITEM, 
		"Name=arrive", "Value={ArriveCity}", ENDITEM, 
		"Name=returnDate", "Value={ReturnDate}", ENDITEM, 
		"Name=numPassengers", "Value=1", ENDITEM, 
		"Name=roundtrip","Value=on",  ENDITEM,
		"Name=seatPref", "Value={SeatPref}", ENDITEM, 
		"Name=seatType", "Value={SeatType}", ENDITEM, 
		"Name=.cgifields", "Value=roundtrip", ENDITEM, 
		"Name=.cgifields", "Value=seatType", ENDITEM, 
		"Name=.cgifields", "Value=seatPref", ENDITEM, 
		"Name=findFlights.x", "Value=38", ENDITEM, 
		"Name=findFlights.y", "Value=8", ENDITEM, 
		LAST);*/
       
	srand( (unsigned)time(NULL) );
	NumPassengers=rand()%9+1;
	
    i=1;
	
	lr_output_message("NumPassengers is :%d", NumPassengers);
	lr_output_message("Value i is :%d", i);

      if(i==0)
	  {
	sprintf( SubmitFlightCustomerRequest,
		"Body=advanceDiscount=1&depart=%s&departDate=%s&arrive=%s&returnDate=%s&numPassengers=%d&roundtrip=on&seatPref=%s&seatType=%s&.cgifields=roundtrip&.cgifields=seatType&.cgifields=seatPref&findFlights.x=38&findFlights.y=8",
		lr_eval_string("{DepartCity}"),
		lr_eval_string("{DepartDate}"),
		lr_eval_string("{ArriveCity}"),
		lr_eval_string("{ReturnDate}"),
		NumPassengers,
		lr_eval_string("{SeatPref}"),
		lr_eval_string("{SeatType}") );

	  }
      else
	  {
	sprintf( SubmitFlightCustomerRequest,
		"Body=advanceDiscount=1&depart=%s&departDate=%s&arrive=%s&returnDate=%s&numPassengers=%d&seatPref=%s&seatType=%s&.cgifields=roundtrip&.cgifields=seatType&.cgifields=seatPref&findFlights.x=38&findFlights.y=8",
		lr_eval_string("{DepartCity}"),
		lr_eval_string("{DepartDate}"),
		lr_eval_string("{ArriveCity}"),
		lr_eval_string("{ReturnDate}"),
		NumPassengers,
		lr_eval_string("{SeatPref}"),
		lr_eval_string("{SeatType}") );

	  }


	lr_output_message("the SubmitFlightCustomerRequest is :%s", SubmitFlightCustomerRequest);

	  
	web_reg_save_param_ex(
		"ParamName=OutBoundFlightParam",
		"LB=<input type = radio name=outboundFlight value=",
		"RB/RE= checked|>",
		"Ordinal=all",
		SEARCH_FILTERS,
		LAST);
	web_reg_save_param_ex(
		"ParamName=ReturnFlightParam",
		"LB=<input type = radio name=returnFlight value=",
		"RB/RE= checked|>",
		"NotFound=warning",
		"Ordinal=all",
		SEARCH_FILTERS,
		LAST);
// attribution "Notfound=warning" to export information when params not found.
//web_reg_save_param_ex is not only just find params from the server responding,it will find match items from LR functions, such as lr_save_string
	
/*web_reg_save_param ("OutBoundFlight","LB=<input type = radio name=outboundFlight value=","RB=>","ORD=ALL","Savelen=17",LAST);
	    web_reg_save_param ("ReturnFlight","LB=<input type = radio name=returnFlight value=","RB=>","ORD=ALL","Savelen=17",LAST);
        you'd better use flight date as the RB , it would save your effot  ,this function can't be used here
		*/
	

	web_reg_find("Search=Body",
		"TextPfx=Flight departing from",
		"TextSfx={DepartDate}",
		LAST);
	web_custom_request("reservations.pl",
		"URL=http://127.0.0.1:1080/cgi-bin/reservations.pl",
		"Method=POST",
		"Resource=0",
		"RecContentType=text/html",
		"Referer=",
		"Snapshot=t4.inf",
		SubmitFlightCustomerRequest,
		LAST);
return 0;

	
}

 

第七部分

SelectFlight

int ReturnFlightNum=0;
SelectFlight()
{   

	char OutBoundFlight[50]={NULL},
                       ReturnParam[50]={NULL},
                       SubmitSelectFlightData[500]={NULL};
    
	lr_think_time(17);
	srand( (unsigned)time(NULL) );
	sprintf( OutBoundFlight,"{OutBoundFlightParam_%d}",rand() % 4 + 1 );
	lr_save_string( lr_eval_string(OutBoundFlight),"OutBoundFlight" );
	lr_output_message("Selected flight is :%s", lr_eval_string("{OutBoundFlight}"));
	lr_output_message("Num of OutBoundFlight is :%d", lr_paramarr_len("OutBoundFlightParam"));

	ReturnFlightNum=lr_paramarr_len( "ReturnFlightParam" );

	if(ReturnFlightNum!=0)
	{
	sprintf( ReturnParam,"{ReturnFlightParam_%d}",rand() % 4 + 1);
	lr_save_string( lr_eval_string(ReturnParam),"ReturnFlight" );
	lr_output_message("%s", lr_eval_string("{ReturnFlight}"));

	sprintf( SubmitSelectFlightData,
		"Body=outboundFlight=%s&returnFlight=%s&numPassengers=%d&advanceDiscount=1&seatType=%s&seatPref=%s&reserveFlights.x=32&reserveFlights.y=8",
		lr_eval_string("{OutBoundFlight}"),
		lr_eval_string("{ReturnFlight}"),
		NumPassengers,
		lr_eval_string("{SeatType}"),
		lr_eval_string("{SeatPref}") );
		
	}
	else
	{
	lr_save_string( lr_eval_string(ReturnParam),"ReturnFlight" );
	lr_output_message("%s", lr_eval_string("{ReturnFlight}"));

	sprintf( SubmitSelectFlightData,
		"Body=outboundFlight=%s&numPassengers=%d&advanceDiscount=1&seatType=%s&seatPref=%s&reserveFlights.x=32&reserveFlights.y=8",
		lr_eval_string("{OutBoundFlight}"),
		NumPassengers,
		lr_eval_string("{SeatType}"),
		lr_eval_string("{SeatPref}") );
			 
	}
	
	lr_output_message("SubmitSelectFlightData is :%s", lr_eval_string(SubmitSelectFlightData));



	web_reg_find("Search=Body",
		"Text=Payment Details",
		LAST);
	web_custom_request("reservations.pl_2",
		"URL=http://127.0.0.1:1080/cgi-bin/reservations.pl",
		"Method=POST",
		"Resource=0",
		"RecContentType=text/html",
		"Referer=",
		SubmitSelectFlightData,
		"Snapshot=t5.inf",
		LAST);


/*	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=t5.inf", 
		"Mode=HTML", 
		ITEMDATA, 
		"Name=outboundFlight", "Value={OutBoundFlight}", ENDITEM, 
		"Name=returnFlight", "Value={Return}", ENDITEM,
		"Name=numPassengers", "Value=1", ENDITEM, 
		"Name=advanceDiscount", "Value=1", ENDITEM, 
		"Name=seatType", "Value={SeatType}", ENDITEM, 
		"Name=seatPref", "Value={SeatPref}", ENDITEM, 
		"Name=reserveFlights.x", "Value=32", ENDITEM, 
		"Name=reserveFlights.y", "Value=8", ENDITEM, 
		LAST);

*/

		    
	

return 0;
}

第八部分

SubmitPatmentDetails

SubmitPamentDetails()
{
    char SubmitPamentDetails[800]={NULL},
           SubmitPamentDetails1[500]={NULL},
           SubmitPamentDetails2[200]={NULL};
	int m=1;
	
	lr_think_time(24);

	lr_save_string( lr_eval_string(RandValue()),
		"FirstName" );
	lr_save_string( lr_eval_string(RandValue()),
		"LastName" );
	lr_save_string( lr_eval_string(RandValue()),
		"StreetAddress" );
	lr_save_string( lr_eval_string(RandValue()),
		"City" );
	lr_save_string( lr_eval_string(RandValue()),
		"Address1" );

	lr_output_message("the first name is :%s", lr_eval_string("{FirstName}"));
	lr_output_message("the last name is :%s", lr_eval_string("{LastName}"));
	lr_output_message("the street is :%s", lr_eval_string("{StreetAddress}"));
	lr_output_message("the city is :%s", lr_eval_string("{City}"));
	lr_output_message("the first passenger's address is :%s", lr_eval_string("{Address1}"));

	web_reg_find("Search=Body",
		"TextPfx={FirstName}{LastName}",
		"TextSfx=Flight Invoice",
		LAST);

   if(ReturnFlightNum==0)
   {

	web_submit_data("reservations.pl_3",
		"Action=http://127.0.0.1:1080/cgi-bin/reservations.pl",
		"Method=POST",
		"TargetFrame=",
		"RecContentType=text/html",
		"Referer=http://127.0.0.1:1080/cgi-bin/reservations.pl",
		"Snapshot=t6.inf",
		"Mode=HTML",
		ITEMDATA,
		"Name=firstName", "Value={FirstName}", ENDITEM,
		"Name=lastName", "Value={LastName}", ENDITEM,
		"Name=address1", "Value={StreetAddress}", ENDITEM,
		"Name=address2", "Value={City}", ENDITEM,
		"Name=pass1", "Value= {Address1}", ENDITEM,
		"Name=creditCard", "Value={CreditCard}", ENDITEM,
		"Name=expDate", "Value={ExpDate}", ENDITEM,
		"Name=oldCCOption", "Value=", ENDITEM,
		"Name=numPassengers", "Value=1", ENDITEM,
		"Name=seatType", "Value={SeatType}", ENDITEM,
		"Name=seatPref", "Value={SeatPref}", ENDITEM,
		"Name=returnFlight", "Value=", ENDITEM,
		"Name=advanceDiscount", "Value=1", ENDITEM,
		"Name=JSFormSubmit", "Value=on", ENDITEM,
		"Name=.cgifields", "Value=saveCC", ENDITEM,
		"Name=buyFlights.x", "Value=46", ENDITEM, 
		"Name=buyFlights.y", "Value=7", ENDITEM,
		LAST);
		  
   }
else
{
	sprintf( SubmitPamentDetails,
		"Body=firstName=%s&lastName=%s&address1=%s&address2=%s",
		lr_eval_string("{FirstName}"),
		lr_eval_string("{LastName}"),
		lr_eval_string("{StreetAddress}"),
		lr_eval_string("{City}"),
		lr_eval_string("{Address1}") );
	sprintf( SubmitPamentDetails1,
		"&creditCard=%s&expDate=%s&oldCCOption=&numPassengers=%d&seatType=%s&seatPref=%s&outboundFlight=%s&advanceDiscount=1&returnFlight=%s&JSFormSubmit=on&.cgifields=saveCC&buyFlights.x=24&buyFlights.y=7",
		lr_eval_string("{CreditCard}"),
		lr_eval_string("{ExpDate}"),
		NumPassengers,
		lr_eval_string("{SeatType}"),
		lr_eval_string("{SeatPref}"),
		lr_eval_string("{OutBoundFlight}"),
		lr_eval_string("{ReturnFlight}") );

	srand( (unsigned)time(NULL) );

    for(m;m<=NumPassengers;m++)
	 {
	   sprintf( SubmitPamentDetails2,
		"&pass%d=%s",
		m,
		lr_eval_string(RandValue()) );
	   strcat( SubmitPamentDetails,
		SubmitPamentDetails2 );
	   lr_output_message("SubmitPamentDetails is %s", lr_eval_string(SubmitPamentDetails));
	 }

	strcat( SubmitPamentDetails,
		SubmitPamentDetails1 );
	lr_output_message("SubmitPamentDetails is %s", lr_eval_string(SubmitPamentDetails));



	web_custom_request("reservations.pl_3",
		"URL=http://127.0.0.1:1080/webtours/reservations.pl",
		"Method=POST",
		"Resource=0",
		"RecContentType=text/html",
		"Referer=",
		"Snapshot=t6.inf",
		SubmitPamentDetails,
		LAST);


	}  
	
return 0;
}

 

第九部分

Invoice

Invoice()
{

	lr_think_time(11);
		web_submit_form("reservations.pl_4", 
		"Snapshot=t38.inf", 
		ITEMDATA, 
		"Name=Book Another.x", "Value=19", ENDITEM, 
		"Name=Book Another.y", "Value=10", ENDITEM, 
		EXTRARES, 
		"Url=../WebTours/classes/Calendar.class", "Referer=", ENDITEM, 
		LAST);

	

	return 0;
}

 

 第十部分

CancleFlights

CancleFlights()

{
	int i=1,m=1;
	char BookingRecord[1000]={NULL},
                       BookingRecord2[400]={NULL},
                       Temp1[100]={NULL},
                       Temp2[100]={NULL};
	web_reg_save_param("Itinerary","LB=<input type=\"hidden\" name=\"flightID\" value=\"","RB=\"","ORD=ALL",LAST);
	web_url("Itinerary Button", 
		"URL=http://127.0.0.1:1080/cgi-bin/welcome.pl?page=itinerary", 
		"TargetFrame=body", 
		"Resource=0", 
		"RecContentType=text/html", 
		"Referer=http://127.0.0.1:1080/cgi-bin/nav.pl?page=menu&in=flights", 
		"Snapshot=t8.inf", 
		"Mode=HTML", 
		LAST);


	i=lr_paramarr_len("Itinerary");
	srand((unsigned)time(NULL));
	
//cancle flights
   if(i!=0)

   {   

	   strcat(BookingRecord,"Body=");
	   strcat(BookingRecord2,"iter=-1&dest=itinerary.pl&");

       if(rand()%4==1)   //random cancle one or all flights
	   {
	   
        for(m;m<=i;m++)
	   {

        sprintf(Temp1,"flightID={Itinerary_%d}&",m);
		sprintf(Temp2,".cgifields=%d&",m);
        strcat(BookingRecord,lr_eval_string(Temp1));
        strcat(BookingRecord2,lr_eval_string(Temp2));
        
	   }
        strcat(BookingRecord,BookingRecord2);
        strcat(BookingRecord,"removeAllFlights.x=21&removeAllFlights.y=9");//generate param to cancle all flights
	   }
	   else

	  {
	   for ( m;m<=i;m++ )
	   {
         if(rand()%3==1)
		   {
			   sprintf(Temp1,"%d=on&flightID={Itinerary_%d}&",rand()%i,m);
		   }
		 else
		   {
			 sprintf(Temp1,"flightID={Itinerary_%d}&",m);
		   }
        sprintf(Temp2,".cgifields=%d&",m);
        strcat(BookingRecord,lr_eval_string(Temp1));
        strcat(BookingRecord2,lr_eval_string(Temp2));
		
	   }
        strcat(BookingRecord,BookingRecord2);
        strcat(BookingRecord,"removeFlights.x=81&removeFlights.y=15");  //generate param to cancle random flights
		       
	   }
	   
	   
       lr_output_message("%s",BookingRecord);
   

   	web_reg_find("Search=Body",
		"Text=Itinerary",
		LAST);

   web_custom_request("localredirect.pl",
					"URL=http://127.0.0.1:1080/cgi-bin/itinerary.pl",
					"Method=POST",
					"Referer=http://127.0.0.1:1080/cgi-bin/itinerary.pl",
					"RecContentType=text/html", 
					"Snapshot=t11.inf",
					"Mode=HTML",
					 BookingRecord,
					LAST);
}
 else
     {

      lr_error_message("%s","No flight record found!");
     }
	return 0;
}

 第十一部分

LogOut

LogOut()
{


 lr_think_time(5);

 web_url("welcome.pl_2", 
  "URL=http://127.0.0.1:1080/WebTours/home.html", 
  "TargetFrame=", 
  "Resource=0", 
  "RecContentType=text/html", 
  "Referer=http://127.0.0.1:1080/cgi-bin/welcome.pl?signOff=1", 
  "Snapshot=t10.inf", 
  "Mode=HTML", 
  LAST);
 return 0;
}

 

第十二部分

Vuserend

vuser_end()
{


 return 0;
}

 

因为这篇脚本太长了，相关的说明及注意事项将在下篇介绍。