51Testing软件测试论坛

标题: silk performer关联的问题 [打印本页]

作者: xiaoyao520    时间: 2008-5-5 17:34
标题: silk performer关联的问题
最近研究silk performer工具.
于是就拿MI LR自带的那个sample作为测试对象.

录制一个脚本登录后的代码.然后通过try script后自动关联sessionid,但是不管怎么样,就是不能获取返回值.
希望对这个工具熟悉或遇到这个问题的朋友给予帮助.下面是代码:
//----------------------------------------------------------------------
// Recorded 12/07/2004 by SilkPerformer Recorder v6.6.0.2138
//----------------------------------------------------------------------
benchmark SilkPerformerRecorder
use "WebAPI.bdh"
dclparam
  session           : string;
  Sessvalue         : string;
dcluser
  user
    VUser
  transactions
    TInit           : begin;
    TMain           : 1;
var
  sFormSid1            : string;
  bVerifyTitleSuccess1 : boolean;
dclrand
dcltrans
  transaction TInit
  begin
    WebSetBrowser(WEB_BROWSER_MSIE6);
    WebModifyHttpHeader("Accept-Language", "zh-cn");
  end TInit;
  transaction TMain
  var
  begin
    // WebParseDataBoundEx(session, STRING_COMPLETE, "", 0, "", WEB_FLAG_IGNORE_WHITE_SPACE | WEB_FLAG_CASE_SENSITIVE, 1);
    WebUrlBeginPage("Mercury Tours");
    //获取sessionid值:源代码:<input type=hidden name=userSession   value=98011.5702713649fAtVtHApVtfiDDDDDActipicAiHf>

    WebParseResponseData(Sessvalue,50,"value=",">");
    //Print("session: " + session);
    Print("Session:" +Sessvalue);
    WebCookieSet("MTUserInfo=; path=/; expires=Tue, 29 Apr 2008 01:25:26 GMT", "http://xiaoyq:1080/mercuryWebTours/");
    WebUrl("http://xiaoyq:1080/mercuryWebTours/");
    WebUrl("http://xiaoyq:1080/mercuryWebTours/header.html");
     WebParseResponseData(Sessvalue,50,"value=",">");
    Print("Session:" +Sessvalue);
    WebFormGet("http://xiaoyq:1080/mercuryWebTours/welcome.pl", MERCURYWEBTOURS_WELCOME_PL001);
     WebParseResponseData(Sessvalue,50,"value=",">");
    Print("Session:" +Sessvalue);
    WebUrl("http://xiaoyq:1080/mercuryWebTours/images/mercury_logo.gif");
    WebFormGet("http://xiaoyq:1080/mercuryWebTours/nav.pl", MERCURYWEBTOURS_NAV_PL002);
     WebParseResponseData(Sessvalue,50,"value=",">");
    Print("Session:" +Sessvalue);
    WebUrl("http://xiaoyq:1080/MercuryWebTours/home.html");
    WebUrl("http://xiaoyq:1080/MercuryWebTours/images/fma-gateway.jpg");
    WebUrl("http://xiaoyq:1080/MercuryWebTours/images/mer_login.gif");
    WebUrlEndPage(); // Mercury Tours

    ThinkTime(9.0);
    WebVerifyHtmlTitle("Welcome to Mercury Tours", WEB_FLAG_IGNORE_WHITE_SPACE | WEB_FLAG_EQUAL | WEB_FLAG_CASE_SENSITIVE, 1,
      SEVERITY_ERROR, bVerifyTitleSuccess1);
    WebUrlBeginPage("Mercury Tours (#1)");
    sFormSid1 := Sessvalue;
    WebFormPost("http://xiaoyq:1080/mercuryWebTours/login.pl", MERCURYWEBTOURS_LOGIN_PL003);
    WebFormGet("http://xiaoyq:1080/mercuryWebTours/nav.pl", MERCURYWEBTOURS_NAV_PL004);
    WebFormGet("http://xiaoyq:1080/mercuryWebTours/login.pl", MERCURYWEBTOURS_LOGIN_PL005);
    WebUrl("http://xiaoyq:1080/MercuryWebTours/images/fma-performance-center.jpg");
    WebUrl("http://xiaoyq:1080/MercuryWebTours/images/itinerary.gif");
    WebUrl("http://xiaoyq:1080/MercuryWebTours/images/in_home.gif");
    WebUrl("http://xiaoyq:1080/MercuryWebTours/images/signoff.gif");
    WebUrl("http://xiaoyq:1080/MercuryWebTours/images/flights.gif");
    WebUrlEndPage(); // Mercury Tours (#1)
  end TMain;
dclform
  MERCURYWEBTOURS_WELCOME_PL001:
    "signOff"                   := "true";
  MERCURYWEBTOURS_NAV_PL002:
    "in"                        := "home";
  MERCURYWEBTOURS_LOGIN_PL003:
//     "userSession"               := "97976.405508303fADQzzVpDfiDDDDDDAcDHpQziVf",
    "userSession"               := sFormSid1,
    "username"                  := "jojo",
    "password"                  := "bean",
    "JSFormSubmit"              := "off",
    "login.x"                   := "28",
    "login.y"                   := "9";
  MERCURYWEBTOURS_NAV_PL004:
    "page"                      := "menu",
    "in"                        := "home";
  MERCURYWEBTOURS_LOGIN_PL005:
    "intro"                     := "true";
作者: xiaoyao520    时间: 2008-5-7 14:30
问题已经解决。
作者: fishy    时间: 2008-5-8 17:18
原帖由 xiaoyao520 于 2008-5-7 14:30 发表
问题已经解决。


怎么解决的可以和大家分享一下吗?
作者: xiaoyao520    时间: 2008-5-13 17:30
直接用另一个新的函数,WebParseDataBound()或WebParseDataBoundEx()就可以获取到。详看帮助文档。




欢迎光临 51Testing软件测试论坛 (http://bbs.51testing.com/) Powered by Discuz! X3.2