将Rational Robot脚本改成QTP可用脚本
如标题~脚本如下~↓↓↓Sub Main
Dim Result As Integer
dim mydata as string
dim actvalue as string
'Initially Recorded: 2007-6-3010: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
页:
[1]
