51Testing软件测试论坛

标题: 将Rational Robot脚本改成QTP可用脚本 [打印本页]

作者: phillipschen 时间: 2007-7-28 13:56
标题: 将Rational Robot脚本改成QTP可用脚本
如标题~脚本如下~↓↓↓

Sub Main
Dim Result As Integer
dim mydata as string
dim actvalue as string
'Initially Recorded: 2007-6-30  10:44:32
'Script Name: login
open "d:\ewebshop_login.txt" for input as #1
open "d:\mylog.txt" for output as #2
while not eof(1)
      line input #1,mydata
      StartApplication "C:\Program Files\Internet Explorer\IEXPLORE.EXE"

      Window SetContext, "Caption=about:blank - Microsoft Internet Explorer", ""
      ComboEditBox Click, "ObjectIndex=2", "Coords=115,1"
      InputKeys "http://localhost/ewebshop/default.aspx"
      InputKeys "{ENTER}"

      Window SetContext, "Caption=极限网上商店系统(eWebShop) - Microsoft Internet Explorer", ""
      Browser NewPage,"HTMLTitle=极限网上商店系统(eWebShop)",""
      EditBox Click, "Name=username", "Coords=25,2"
      inputkeys getfield(mydata,1,",")

      Window SetContext, "Caption=极限网上商店系统(eWebShop) - Microsoft Internet Explorer", ""
      EditBox Click, "Name=userpwd", "Coords=21,14"
      inputkeys getfield(mydata,2,",")

      Window SetContext, "Caption=极限网上商店系统(eWebShop) - Microsoft Internet Explorer", ""
      HTMLImage Click, "Name=imageField;Index=2", "Coords=36,13"



      result = sqagetproperty("Type=Label;ObjectIndex=1","Text",actvalue)
      if trim(actvalue) = trim(getfield(mydata,3,",")) then
         print #2,"使用用户名"+getfield(mydata,1,",")+"密码"+getfield(mydata,2,",")+"与预期结果相符合"
      else
         print #2,"使用用户名"+getfield(mydata,1,",")+"密码"+getfield(mydata,2,",")+"与预期结果不符合"
      end if


      Window SetContext, "Caption=Microsoft Internet Explorer", ""
      PushButton Click, "Text=确定"




      Window SetContext, "Caption=极限网上商店系统(eWebShop) - Microsoft Internet Explorer", ""
      Window CloseWin, "", ""

wend
close #1
close #2
End Sub

欢迎光临 51Testing软件测试论坛 (http://bbs.51testing.com/)