LR中使用HTTP协议写的消息发送脚本

最近，因为项目需要，学习写了一个 使用HTTP协议写的消息发送脚本 很简单的。
这里就只COPY了ACTION部分的

Action()
{
 web_add_header("Content-Type","text/xml; charset=\"UTF-8\""); 
//保存返回的结果码
 web_reg_save_param("hRet", "LB=<result resid=\"", "RB=\">", LAST);

 lr_start_transaction("WWWSubscribeServiceReq");
//
   web_custom_request("MSP-SSR",
    "Method=POST",
    "URL=http://10.1.3.179:8080/bps/SMSPostServlet",
    "Body="
  "<?xml version=\"1.0\" encoding=\"gb2312\" ?>"
  "<MSP-SSR ver=\"2.0.0\">"
   "<MSP-SP-ID>634100</MSP-SP-ID>"
   "<MSP-SP-Service-ID>01001100</MSP-SP-Service-ID>"
   "<MSP-Subscribe-Type>0</MSP-Subscribe-Type>"
   "<MSP-Trial-Flag></MSP-Trial-Flag>"
   "<MSP-Validate-Code>869024</MSP-Validate-Code>"
   "<MSP-Reconfirm-Info></MSP-Reconfirm-Info>"
   "<MSP-AccessID>03</MSP-AccessID>"
   "<x-up-Calling-Line-ID>15988881001</x-up-Calling-Line-ID>"
  "</MSP-SSR>",
 "TargetFrame=",
 LAST); 

if (strcmp(lr_eval_string("{hRet}"), "200")!=0){
  lr_set_transaction_status(LR_FAIL);
  lr_end_transaction("WWWSubscribeServiceReq", LR_AUTO);
  //lr_error_message("Error! The hRet code is: %s. \n", lr_eval_string("{hRet}"));
  return 0;
 }
 
 lr_end_transaction("WWWSubscribeServiceReq", LR_AUTO);

 return 0;
}