将Rational Robot脚本改成QTP可用脚本

phillipschen

如标题~脚本如下~↓↓↓

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