伪重写Reporter.ReportEvent

lgh75560

今天学习函数指针GetRef。看到把自带的print重成函数内容为msgbox "xxx'
然后就想能不能重写Reporter.ReportEvent。
结果发现这样是可以成功的！！只是探讨学习

1. '重写Reporter
   
2. Dim Reporter
   
3. Set Reporter=new ReporterRewriter
   
4. 
   
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
    
23. 
    
24. 调用
    
25. '这里执行的是上面被覆盖对象，里面的函数，达到伪重写
    
26.                 Reporter.ReportEvent micPass,"输入"&inputValue&"检查","测试通过"

复制代码

赵佳乐SMILE

棒棒哒

lgh75560

其实我是这样想的。

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

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