51Testing软件测试论坛

标题: 伪重写Reporter.ReportEvent [打印本页]
作者: lgh75560    时间: 2016-4-2 12:37
标题: 伪重写Reporter.ReportEvent
今天学习函数指针GetRef。看到把自带的print重成函数内容为msgbox "xxx'
然后就想能不能重写Reporter.ReportEvent。
结果发现这样是可以成功的！！只是探讨学习


  1. '重写Reporter
  2. Dim Reporter
  3. Set Reporter=new ReporterRewriter

  5. Class ReporterRewriter
  6.          Public Function ReportEvent(status,title,des)
  7.               Dim FSO,FSOwriter,dir,str
  8.               '文件操作对象
  9.               Set FSO=CreateObject("Scripting.FileSystemObject")
  10.               '环境变量：当前根目录
  11.               dir=Environment.Value("TestDir")
  12.               '追加写入文件
  13.               set FSOwriter=FSO.OpenTextFile(dir&"\log.txt", 8, true)
  14.                
  15.               str="测试通过        "&title&des
  16.               '写入数据
  17.               FSOwriter.WriteLine str
  18.                
  19.              Set FSO=nothing
  20.             Set FSOwriter=nothing
  21.      End Function
  22. End Class

  24. 调用
  25. '这里执行的是上面被覆盖对象，里面的函数，达到伪重写
  26.                 Reporter.ReportEvent micPass,"输入"&inputValue&"检查","测试通过"
复制代码


作者: 赵佳乐SMILE    时间: 2016-4-5 09:02
棒棒哒
作者: lgh75560    时间: 2016-4-6 10:58
其实我是这样想的。

把上面的放入库文件。
1、注释dim和set语句适合，程序中使用的QTP自带函数
2、启用上面dim和set语句，使用的是自己定义的判定函数

这样，按不同情况使用就有2种生成结果的方式了，



欢迎光临 51Testing软件测试论坛 (http://bbs.51testing.com/) Powered by Discuz! X3.2