记录阿里巴巴QA架构组成长点滴。2008年关键词为效率,技术,影响力!QA/测试架构师定义:开发和设计测试框架测试库;纵横全局的考虑产品的功能,设计复杂的测试系统;负责研发某一项特定的测试技术;为公司考虑如何提高测试效率。领导公司测试技术的发展和测试策略上的方向,关注整个公司的测试部门的问题,前瞻性的考虑未来的版本的测试策略和技术。测试架构师计划/设计测试平台,关注着产品的测试过程,提供咨询服务,影响到公司内的测试机构测试社区,以及开发机构等,对产品各个方面施加深远而正确的影响,最终提高整体软件质量。

利用wshell.exec方法执行命令信息交互

上一篇 / 下一篇  2008-06-04 20:57:15 / 个人分类:自动化测试框架与实现

By Wiston Li

自动化通常碰到cmd执行窗口,可以用qtp的操作对象的方法控制窗口,并取到命令执行后返回的文本,

如:

Syntax :object.GetVisibleText ([Left], [Top], [Right], [Bottom])

但当命令返回多于一屏时,此命令就不行了,可以用下面的替代方法来解决:

Option Explicit
Const SystemFolder = 1
Dim wShell, exec, fso
Dim dirList
Set wShell = CreateObject( "Wscrīpt.Shell" )
Set fso = CreateObject("scrīpting.FileSystemObject")
dirList = fso.GetSpecialFolder( SystemFolder ) & "\*.exe"
Set exec = wShell.Exec( "%comspec% /C dir " & dirList & " /B /O-N /L" )
Do While True 
  If Not exec.StdOut.AtEndOfStream Then  
      dirList = exec.StdOut.ReadAll   
     If exec.ExitCode = 1 then      
           Reporter.ReportEvent micWarning, "Command failed", dirList    
           End If    
         Exit Do 
          End If  
       If Not exec.StdErr.AtEndOfStream Then  
           dirList = "STDERR: " & exec.StdErr.ReadAll  
              Reporter.ReportEvent micFail, "Command failed", dirList  
              Exit Do  
           End If  
           Wait 1
           Loop
           Print dirList

 


 


TAG: 自动化测试框架与实现

 

评分:0

我来说两句

日历

« 2024-02-19  
    123
45678910
11121314151617
18192021222324
2526272829  

数据统计

  • 访问量: 152018
  • 日志数: 163
  • 文件数: 1
  • 建立时间: 2008-02-26
  • 更新时间: 2008-12-10

RSS订阅

Open Toolbar