zoukankan      html  css  js  c++  java
  • QTP学习笔记之—VBS

    1、ToString() : Returns a string that represents the current test object.

    Example

    The following example uses the ToString method to generate a report detailing the dimensions of a MainFrame test object.

    Sub ReportRectangle(obj)
    
    x = obj.GetTOProperty("abs_x")
    
    y = obj.GetTOProperty("abs_y")
    
    w = obj.GetTOProperty("width")
    
    h = obj.GetTOProperty("height")
    
    Reporter.ReportEvent micDone, obj.ToString() & " dimensions", "The Virtual object " & obj.ToString() & " is defined using the following dimensions: " & x & ", " & y & ", " & x+w & ", " & y+h
    
    End Sub 
    
    'Sample usage 
    ReportRectangle Browser("XXXX平台").Page("XXXX平台").Frame("mainFrame")

     2、Generate a Report Detailing the Content of an Edit Box

    Function VerifyTextPropertyNotEmpty(obj) 
    
       Text = obj.GetROProperty("text") 
    
       If Text = "" Then 
    
           Reporter.ReportEvent micFail, obj.ToString() & " Text Verification", "Verification Failed. " & obj.ToString() & " does not have a text value." 
    
        VerifyTextPropertyNotEmpty = False 
    
       Else 
    
           Reporter.ReportEvent micPass, obj.ToString() & " Text Verification", "Verification Passed. The " & obj.ToString() & " contains the following text: " & Text 
    
           VerifyTextPropertyNotEmpty = True 
    
       End If 
    
    End Function 

    3、Verify the Number of Items in a List.

    Sub CheckProperty_Example() 
    
    'The following example uses the CheckProperty method to verify the 
    
    'number of items in a WebList. Note that if the original count 
    
    'is not equal to 15, an error message is displayed in the Test Results. 
    
     
    
    Browser("Fill-Out Form Example").Page("Fill-Out Form Example").WebList("what-to-do").CheckProperty "items count", 15, TimeLimitation 
    
    Item_Count = Browser("Fill-Out Form Example").Page("Fill-Out Form Example").WebList("what-to-do").GetROProperty("items count") 
    
    If Item_Count = 15 Then 
    
       'Remove one item from the list 
    
        Browser("Fill-Out Form Example").Page("Fill-Out Form Example").WebButton("Remove Item From List").Click 
    
        'Check if the item was removed from the list 
    
        Browser("Fill-Out Form Example").Page("Fill-Out Form Example").WebList("what-to-do").CheckProperty "items count", 14, TimeLimitation 
    
    Else 
    
        Reporter.ReportEvent micFail, "Number Of List Items", "The item count in the list should be 15, not " & Item_Count & "." 
    
    End If 
    
    End Sub 

     

     

  • 相关阅读:
    TinyEditor:简洁且易用的html所见即所得编辑器
    arguments.callee 调用自身
    java.io.IOException: 设备未就绪
    关于vcastr3播放器自动播放的问题
    javascript中IE浏览器不支持NEW DATE()带参数的解决方法
    Oracle常用查看表结构命令
    java通过文件头内容判断文件类型
    RS开发日期提示控件默认为昨天
    Cognos更新问题之利用Transform实现Cube增量更新
    SqlServer中从字符串中获取项目指标方法charindex月substring结合
  • 原文地址:https://www.cnblogs.com/zelmeli/p/qtp_vbs.html
Copyright © 2011-2022 走看看