ftp测试脚本

前几天为了测试ftp的性能，好不容易调好了一个脚本，可是loadrunner出了点问题，把我的脚本弄得打不开了，真是郁闷，因为这个脚本现在看起来虽然没什么，可是在当时不了解ftp的情况下去做，可真是费了九牛二虎之力，因此这次一调好了就吸取教训，存起来先：）

 

action.c:

 

#include "lrs.h"

extern char *strtok(char *string, const char *delimiters );
0| |U;z#AVI0Action()
7s0o2Pg7q"FZ0{
V9mR/['^Wabc0 char *BufVal;

 char *token;

 char hostport[255];51Testing软件测试网
C0[+g-D)U#?+a5Gj5~
 char portinfo[8];

 char PortNum[255];

    char cVal[8];

 char cHighVal[8];
FAwu'M'h*K0 51Testing软件测试网Gh3kX2BN v@H
 char cLowVal[8];

    int iVal,iLength,i,j;

    lrs_create_socket("socket0", "TCP", "LocalHost=0", "RemoteHost=192.168.0.100:21",  LrsLastArg);

 lrs_send("socket0","vpnbuf0",LrsLastArg);

    lrs_receive("socket0", "buf0", LrsLastArg);

    lrs_send("socket0", "buf1", LrsLastArg);

    lrs_receive("socket0", "buf2", LrsLastArg);

    lrs_send("socket0", "buf3", LrsLastArg);

    lrs_receive("socket0", "buf4", LrsLastArg);

//send PASV
j h"kk]K0    lrs_send("socket0", "pasvbuf0", LrsLastArg);51Testing软件测试网v2U~dXG8X9s5i
 lrs_receive("socket0", "pasvbuf1", LrsLastArg);

//  Get the Local Port of the Local Host on socket0*/
zv-?gY+`0 lrs_get_last_received_buffer("socket0",&BufVal,&iLength);51Testing软件测试网L/Pt_\:|P5Tq"W
 lr_output_message("The buffer is:%s", BufVal);

 strcpy(PortNum,BufVal);51Testing软件测试网V3T7mIQ:Z/@
// lr_output_message("PortNum Conetnt %s", PortNum);
z|-pYXds0 51Testing软件测试网Z&P{1bQ)V
 for(i=0,j=40;i<3;i++,j++)
tf d(BG[0 {51Testing软件测试网rVH_7@:tn$d
  cHighVal[i]=PortNum[j];51Testing软件测试网?&sIo!S'g(\LaF
 }51Testing软件测试网_6L-Cy,S$}2a
 lr_output_message("cHignVal conent %s",cHighVal);

 j=44;
~C4Y&X3s?A[0 token=strtok(lr_eval_string(&PortNum[j]),")");
mj9l8Fm)X6e0 if(token != NULL)51Testing软件测试网%Un.u\;Kli
  strcpy(cLowVal,token);
;V(}u&Y c%By4g3W!Ql0 lr_output_message("cLowVal is:%s",cLowVal);51Testing软件测试网UL5^.} X6x~\y
 iVal=atoi(cHighVal)*256+atoi(cLowVal);
3Qz(a B;jDm0 lr_output_message("cHighVal*256 id %d",atoi(cHighVal)*256);51Testing软件测试网8A,F9H4g E5Ha
 lr_output_message("iVal %d",iVal);51Testing软件测试网
XpE1{9G"^
// lr_output_message("cVal %s",itoa(iVal,cVal,10));
N ~2Ar'A
z0oa0 itoa(iVal,cVal,10);
A8x^:Lg] `0 lr_output_message("cVal %s",cVal);51Testing软件测试网v4|&c;V%i$C
//set the propority's value51Testing软件测试网,Rt%B.s0{%\K$t C
 lr_save_string(cVal,"portinfo");
G3D)l'R6S0 //strcpy(&portinfo,&cVal);51Testing软件测试网
X'N;~Z"j9~O
 //lr_output_message("portinfo is :%s",portinfo);

 lrs_free_buffer(BufVal);

//  creat data socket
'`ADjG.|M8~@0 lrs_create_socket("socket1", "TCP", "LocalHost=0", "RemoteHost=192.168.0.100:21",  LrsLastArg);
/KuX
tm|&z0    lrs_send("socket1", "vpnbuf1", LrsLastArg);

    lrs_receive("socket1", "vpnbuf2", LrsLastArg);

    lrs_send("socket0", "buf7", LrsLastArg);

    lrs_receive("socket0", "buf8", LrsLastArg);

//    lrs_accept_connection("socket1", "socket2");

//    lrs_close_socket("socket1");

    lrs_send("socket1", "buf9", LrsLastArg);

    lrs_close_socket("socket1");

    lrs_receive("socket0", "buf10", LrsLastArg);

    lrs_send("socket0", "buf11", LrsLastArg);

    lrs_receive("socket0", "buf12", LrsLastArg);

    lrs_close_socket("socket0");

    return 0;51Testing软件测试网B0K-o:w3q3{
}

 

data.ws:

 

@$_0E&oRodF X0send  vpnbuf0 8151Testing软件测试网*I3ma3Y7r
 "CONNECT 35622ebb TAURUS/1.0\r\n"
O+x X"yq!?0    "COOKIE: TaurusSessionID=w1mO0LX84O7EHLnQwBmw6g==\r\n\r\n"

recv  buf0 43
#JfZ5y {]SP N#]0 "CONNECT OK TAURUS/1.0\r\n"
3kP+p,x6?-Aq0 "220 (vsFTPd 1.1.3)\r\n"

send  buf1 11
$MDYpp&T{0 "USER libh\r\n"

recv  buf2 34
-} qzS.o'i Q},|0 "331 Please specify the password.\r\n"

send  buf3 11
2sdPQ)~fH0Q2J0 "PASS 1111\r\n"

recv  buf4 3351Testing软件测试网Bg1D8\,s+X A2GW^
 "230 Login successful. Have fun.\r\n"

send  pasvbuf0 6
#b&F!U8{0uhU0 "PASV\r\n"

recv  pasvbuf1 4951Testing软件测试网 ]V0w2@ ~~S){ \ C
 "227 Entering Passive Mode (192,168,0,16,113,74)\r\n"

send  vpnbuf1 8751Testing软件测试网;j;x'C3_L
 "CONNECT 35622ebb:<portinfo> TAURUS/1.0\r\n"
)_}k7KyG;t$t0 "COOKIE: TaurusSessionID=w1mO0LX84O7EHLnQwBmw6g==\r\n\r\n"

recv  vpnbuf2 2351Testing软件测试网:we?!U2eU_7D1@R
 "CONNECT OK TAURUS/1.0\r\n"

send  buf7 1551Testing软件测试网C`+|CM$E*qkIf4J
 "STOR 100k.doc\r\n"

recv  buf8 2251Testing软件测试网c c/W.n,jH
 "150 Ok to send data.\r\n"

send  buf9 106496

 "…………"

recv  buf10 22
;u;X0|H&V0 "226 File receive OK.\r\n"

send  buf11 651Testing软件测试网'eD_)O!Z,sM5i
 "QUIT\r\n"

recv  buf12 1451Testing软件测试网ZG0l1fpn KX
 "221 Goodbye.\r\n"

51Testing软件测试网5o\O,wF
-1

 

哈哈，这次永远都不会丢了：）