Script for Winsock protocol in LR (reprinted 51 testing)

Winsock Protocol Code
Actions ()
{
Char actest [100];
Char actest2 [100];
Char * pctest3;

// Generate the sending string
Sprintf (actest, "kkkhhhh \ r \ n ";
// Specify the sending string
Lrs_set_send_buffer ("socket0", actest, strlen (actest ));
// Send. The "buf0" parameter here is invalid because lrs_set_send_buffer is run before.
Lrs_send ("socket0", "buf0", lrslastarg );

// Receives the returned string
Lrs_receive ("socket0", "buf1", lrslastarg );
// Put the returned string in the Variable
Pctest3 = lrs_get_received_buffer ("socket0", 0,-1, null );
// Perform operations on the data in the returned string
If (pctest3 [0] = 'k ')
{
Lrs_set_send_buffer ("socket0", pctest3, strlen (pctest3 ));
Lrs_send ("socket0", "buf0", lrslastarg );
Lrs_receive ("socket0", "buf1", lrslastarg );
}