分享几个傻瓜函数，用于交互判断

lyscser

用法看注释，原理就是全部遍历，按关键字去搜寻，可能就是执行效率低一些……主要看被测系统页面框架设计的复杂度了
没怎么仔细测试，如果有问题自己改过，顺便回帖告诉我就行了，不用批斗……

1. '**************************************************************************************************************************************
   
2. '设计说明：
   
3. '  判断一般性的js层抛出的控制提示，根据用户选择如何做后续处理，请注意，该程序只能用于预期之外的提示处理，预期之内必须自行判断
   
4. '  如果不关心页面提示信息是什么，只想把提示信息抓出来，那么匹配关键字输入空值即可
   
5. '程序输入：
   
6. '  respath------截图文件保存路径
   
7. '  judgeKeyWord------用于进行匹配的关键字信息，可用英文半角的逗号分隔，只有所有关键都在页面找到才视为运行通过
   
8. '  isExitRun-------对于匹配失败的情况，选择是否彻底退出运行
   
9. '程序输出：截图文件
   
10. '设计人员：LIUYI027
    
11. '设计时间：2011-12-05
    
12. '调用举例：Call JudgeErrorForDialog("D:\","请,登录","Y")
    
13. '**************************************************************************************************************************************
    
14. Public Sub JudgeErrorForDialog(respath,judgeKeyWord,isExitRun)
    
15. '判断用户传入参数
    
16. If  Trim(judgeKeyWord) = "" Then
    
17.   theKeyArray = "用户选择不做关键字匹配"&Replace(Date,"/","-")&"_"&Replace(Time,":","-")
    
18.   emptyPara = True
    
19. End If
    
20. theKeyArray = Split(judgeKeyWord,",")
    
21. If  Trim(Replace(isExitRun,"y","Y")) = "Y"  Or isExitRun = True Then
    
22.   isExitRun = True
    
23. ElseIf Trim(Replace(isExitRun,"n","N")) = "N" Or isExitRun = False Then
    
24.   isExitRun = False
    
25. Else
    
26.   isExitRun = True
    
27.   Reporter.ReportEvent micWarning,"请尽量使用【Y/N】来作为您参数","由于本次输入无效，程序将自动选择在无法完全匹配的时候自动退出运行，请了解！"
    
28. End If
    
29. Set Wshshell = CreateObject("Wscript.Shell")
    
30. '初始化所有打开的IE，以便确认所有的弹出窗口都已经展现在页面上
    
31. Set BrowserObject = Description.Create()
    
32. BrowserObject("micclass").Value = "Browser"
    
33. Set WindowsBrowser = Desktop.ChildObjects(BrowserObject)
    
34. brNum = WindowsBrowser.Count
    
35. If  brNum < 1 Then
    
36.   Set WindowsBrowser = Nothing
    
37.   Set BrowserObject = Nothing
    
38.   Set Wshshell = Nothing
    
39.   Exit Sub
    
40. Else
    
41.   For bindex = 0 to brNum - 1
    
42.    WindowsBrowser(bindex).Sync
    
43.   Next
    
44. End If
    
45. Set WindowsBrowser = Nothing
    
46. Set BrowserObject = Nothing
    
47. Set DialogObject = Description.Create()
    
48. DialogObject("micclass").Value = "Dialog"
    
49. Set WindowsDialog = Desktop.ChildObjects(DialogObject)
    
50. dlNum = WindowsDialog.Count
    
51. If  dlNum < 1 Then
    
52.   Set WindowsDialog = Nothing
    
53.   Set DialogObject = Nothing
    
54.   Set WindowsBrowser = Nothing
    
55.   Set BrowserObject = Nothing
    
56.   Set Wshshell = Nothing
    
57.   If  emptyPara = True Then
    
58.    Reporter.ReportEvent micPass,"没有需要判断的对象","提交之后系统没有任何弹出的页面信息提示！"
    
59.   Else
    
60.    Reporter.ReportEvent micWarning,"没有需要判断的对象","提交之后系统没有任何弹出的页面信息提示！"
    
61.   End If
    
62.   Exit Sub
    
63. End If
    
64. For dindex = 0 to dlNum - 1
    
65.   dlTitle = WindowsDialog(dindex).GetROProperty("text")
    
66.   nameByTime = Replace(Date,"/","-")&"_"&Replace(Time,":","-")&".png"
    
67.   fileName = respath&Environment.Value("TestName")&"_"&Environment.Value("ActionName")&"_"&nameByTime
    
68.   '对于弹出的下载窗口，需要用单独的程序处理，错误判断中不做处理，直接关闭
    
69.   If  INStr(dlTitle,"下载") > 0 Or INStr(dlTitle,"安装") > 0 Or INStr(dlTitle,"另存为") > 0 Or INStr(dlTitle,"保存为") > 0  Then
    
70.    WindowsDialog(dindex).Close
    
71.   End If
    
72.   'Windows GUI直接处理掉，不在判断范围之内，如果需要使用则请自行修改（注释掉）这一段
    
73.   Set Win32Object = Description.Create()
    
74.   Win32Object("micclass").Value = "WinObject"
    
75.   Set WindowsObject = WindowsDialog(dindex).ChildObjects(Win32Object)
    
76.   woNum = WindowsObject.Count
    
77.   If  woNum > 0 Then
    
78.    For windex = 0 to woNum - 1
    
79.     winMessage = WindowsObject.GetROProperty("text")
    
80.    
    
81.     If  Not Trim(winMessage) = "" Then
    
82.      Reporter.ReportEvent micDone,"程序不做匹配判断的提示信息：",winMessage
    
83.     End If
    
84.    Next
    
85.    Wshshell.AppActivate(dlTitle)
    
86.    WindowsDialog(dindex).CaptureBitmap fileName
    
87.    Wshshell.AppActivate(dlTitle)
    
88.    Wshshell.SendKeys "{ENTER}"
    
89.   End If
    
90.   Set WindowsObject = Nothing
    
91.   Set Win32Object = Nothing
    
92. Next
    
93. '重新Count页面上的非下载窗口个数
    
94. Set WindowsDialog = Nothing
    
95. Set WindowsDialog = Desktop.ChildObjects(DialogObject)
    
96. diaNum = WindowsDialog.Count
    
97. maxCount = 0
    
98. For dlindex = 0 to diaNum - 1
    
99.   dlTitle = WindowsDialog(dlindex).GetROProperty("text")
    
100.   nameByTime = Replace(Date,"/","-")&"_"&Replace(Time,":","-")&".png"
     
101.   fileName = respath&Environment.Value("TestName")&"_"&Environment.Value("ActionName")&"_"&nameByTime
     
102.   '对于弹出的信息提示窗口，需要获取其提示信息，以供后续选择处理方式
     
103.   Set StaticObject = Description.Create()
     
104.   StaticObject("micclass").Value = "Static"
     
105.   Set WindowsStatic = WindowsDialog(dlindex).ChildObjects(StaticObject)
     
106.   stNum = WindowsStatic.Count
     
107.   For sindex = 0 to stNum - 1
     
108.    disMessage = WindowsStatic(sindex).GetROProperty("text")  
     
109.    arrindex = 0
     
110. 
     
111.    For arrindex = 0 To UBound(theKeyArray)
     
112.    
     
113.     If  INStr(disMessage,theKeyArray(arrindex)) > 0 Then
     
114.      maxCount = maxCount + 1
     
115.      Reporter.ReportEvent micDone,"关键字匹配成功","关键字【 "&theKeyArray(arrindex)&" 】匹配成功！"
     
116.     End If
     
117.     arrindex = arrindex + 1
     
118.    Next
     
119.   Next
     
120.   Wshshell.AppActivate(dlTitle)
     
121.   WindowsDialog(dlindex).CaptureBitmap fileName
     
122.   Wshshell.AppActivate(dlTitle)
     
123.   Wshshell.SendKeys "{ENTER}"
     
124. Next
     
125. If  maxCount < UBound(theKeyArray) + 1 Then
     
126.   Reporter.ReportEvent micFail,"函数【JudgeErrorForDialog】关键字匹配失败","您需要匹配【 "&(UBound(theKeyArray) + 1)&" 】个关键字，页面上出现了【 "&maxCount&" 】个！"
     
127.   
     
128.   If  isExitRun = True Then
     
129.    Set WindowsStatic = Nothing
     
130.    Set StaticObject = Nothing
     
131.    Set WindowsDialog = Nothing
     
132.    Set DialogObject = Nothing
     
133.    Set Wshshell = Nothing
     
134.    ExitRun
     
135.   End If
     
136. Else
     
137.   Reporter.ReportEvent micPass,"函数【JudgeErrorForDialog】关键字匹配成功","您需要匹配【 "&(UBound(theKeyArray) + 1)&" 】个关键字，页面上出现了【 "&maxCount&" 】个！"
     
138. End If
     
139. Set WindowsStatic = Nothing
     
140. Set StaticObject = Nothing
     
141. Set WindowsDialog = Nothing
     
142. Set DialogObject = Nothing
     
143. Set Wshshell = Nothing
     
144. End Sub

复制代码

lyscser

1. '**************************************************************************************************************************************
   
2. '设计说明：
   
3. '  页面抛出未封装的RuntimeExcptions，一般是应用出错或者环境异常所致，对于这种情况程序直接截图之后退出运行，不可选择
   
4. '  不同系统使用开发的习惯有所不同，例如有使用WebTable存放错误信息，有使用页面短文本结合Link详细文本的方式，请自主改造
   
5. '程序输入：
   
6. '  respath------截图文件保存路径
   
7. '  myKeyWords------用于进行匹配的关键字信息，可用英文半角的逗号分隔，只要有任意关键字在页面找到都视为发现异常，运行退出
   
8. '程序输出：截图文件
   
9. '设计人员：LIUYI027
   
10. '设计时间：2011-12-05
    
11. '调用举例：Call JudgePageExceptions("D:\","Excetion,EXCEPTION,exception,ORA-,详细情况")
    
12. '**************************************************************************************************************************************
    
13. Public Sub JudgePageExceptions(respath,myKeyWords)
    
14. Set Wshshell = CreateObject("Wscript.Shell")
    
15. 
    
16. '因为一旦出错立刻停止运行，不会出现多次截图导致的文件名冲突，故文件名只赋一次值
    
17. nameByTime = Replace(Date,"/","-")&"_"&Replace(Time,":","-")&".png"
    
18. fileName = respath&Environment.Value("TestName")&"_"&Environment.Value("ActionName")&"_"&nameByTime
    
19. 
    
20. '如果输入为空，则组合一个不大可能出现的错误信息出来，想必不会哪个系统出这种Exception的：）
    
21. If Trim(theKeyArray) = "" Then
    
22.   myKeyWords = myKeyWords&"用户选择不做关键字匹配"&Replace(Date,"/","-")&"_"&Replace(Time,":","-")
    
23. End If  
    
24. theKeyArray = Split(myKeyWord,",")
    
25.         
    
26. Set BrowserObj = Description.Create()
    
27. BrowserObj("micclass").Value = "Browser"
    
28. Set Win32Browser = Desktop.ChildObjects(BrowserObj)
    
29. brNum = Win32Browser.Count
    
30. If  brNum < 1 Then
    
31.   Set WindowsBrowser = Nothing
    
32.   Set BrowserObject = Nothing
    
33.   Set Wshshell = Nothing
    
34.   Exit Sub
    
35. End If
    
36. 
    
37. For bindex = 0 to brNum - 1
    
38.   Win32Browser(bindex).Sync  
    
39.   Set PageObj = Description.Create()
    
40.   PageObj("micclass").value = "Page"
    
41.   Set Win32Page = Win32Browser(bindex).ChildObjects(PageObj)
    
42.   pgNum = Win32Page.Count
    
43. 
    
44.   For pindex = 0 to pgNum - 1
    
45.    Set FrameObj = Description.Create()
    
46.    FrameObj("micclass").Value = "Frame"
    
47.    Set Win32Frame = Win32Page(pindex).ChildObjects(FrameObj)
    
48.    frNum = Win32Frame.Count
    
49.    '对于页面上的出错信息，如果存在使用LINK链接的错误文本信息则点开并且截图，链接名称为需要匹配的关键字之一
    
50.    For findex = 0 to frNum  - 1   
    
51.     Set LinkObj = Description.Create()
    
52.     LinkObj("micclass").Value = "Link"
    
53.     Set Win32Link = Win32Frame(findex).ChildObjects(LinkObj)
    
54.     liNum = Win32Link.Count
    
55.     For lindex = 0 to liNum - 1
    
56.      linkText = Win32Link(lindex).GetROProperty("text")
    
57.      For aindex = 0 To UBound(theKeyArray)
    
58.       theKeyWord = theKeyArray(aindex)
    
59.       brTit = Win32Browser(bindex).GetROProperty("title")
    
60.       If  Instr(lindex,theKeyWord) > 0 Then
    
61.        Win32Link(lindex).Click
    
62.        Win32Browser(bindex).Sync
    
63.        Wshshell.AppActivate(brTit)
    
64.        Win32Browser(bindex).CaptureBitmap fileName
    
65.        Reporter.ReportEvent micFail,"应用系统出错","JAVA运行时错误！"
    
66.        Set Win32Link = Nothing
    
67.        Set LinkObj = Nothing
    
68.        Set Win32Frame = Nothing
    
69.        Set FrameObj = Nothing
    
70.        Set Win32Page = Nothing
    
71.        Set PageObj = Nothing
    
72.        Set Win32Browser = Nothing
    
73.        Set BrowserObj = Nothing
    
74.        Set Wshshell = Nothing
    
75.        ExitRun
    
76.       End If
    
77.      Next
    
78.     Next
    
79.    
    
80.     Set TableObj = Description.Create()
    
81.     TableObj("micclass").Value = "WebTable"
    
82.     Set Win32Table = Win32Frame(findex).ChildObjects(TableObj)
    
83.     tbNum = Win32Table.Count
    
84.    
    
85.     For tindex = 0 to tbNum - 1
    
86.      '如果错误信息包装在复杂的Table里面，则可以考虑去遍历每一个单元格的值，但是遍历之前可以根据这种复杂的特点更快的定位Table的位置以提高运行效率     
    
87.      tabText = Win32Table(tindex).GetCellData(1,1)
    
88.      
    
89.      For aindex = 0 To UBound(theKeyArray)
    
90.       theKeyWord = theKeyArray(aindex)
    
91.       
    
92.       If Instr(tabText,theKeyWord) > 0 Then
    
93.        Reporter.ReportEvent micFail,"应用系统运行时出错",tabText
    
94.        Wshshell.AppActivate(brTit)
    
95.        Win32Browser(bindex).CaptureBitmap fileName
    
96.        Set Win32Table = Nothing
    
97.        Set TableObj = Nothing
    
98.        Set Win32Frame = Nothing
    
99.        Set FrameObj = Nothing
    
100.        Set Win32Page = Nothing
     
101.        Set PageObj = Nothing
     
102.        Set Win32Browser = Nothing
     
103.        Set BrowserObj = Nothing
     
104.        Set Wshshell = Nothing
     
105.        ExitRun
     
106.       End If
     
107.      Next
     
108.     Next   
     
109.     Set Win32Table = Nothing
     
110.     Set TableObj = Nothing
     
111.    Next
     
112.    Set Win32Frame = Nothing
     
113.    Set FrameObj = Nothing
     
114.   Next
     
115.   Set Win32Page = Nothing
     
116.   Set PageObj = Nothing
     
117. Next
     
118. Set Win32Browser = Nothing
     
119. Set BrowserObj = Nothing
     
120. Set Wshshell = Nothing
     
121. Reporter.ReportEvent misPass,"提交之后没有出现任何异常","函数【JudgePageExceptions】已经遍历页面每一个角落，没有发现任何异常信息！"
     
122. End Sub
     
123. 
     

复制代码

lyscser

1. 
   
2. '**************************************************************************************************************************************
   
3. '设计说明：提交之后页面弹出二级子页面或者主页面上的提示信息，系统后台的响应结果，一般用于程序内部逻辑控制
   
4. '程序输入：
   
5. '  respath------截图文件保存路径
   
6. '  errSpecify------错误特征关键字，使用英文半角的逗号分隔，只要有任意关键字出现都视为发现异常，所以使用关键字时请尽量精准
   
7. '  orgBrowserNum--------在调用此函数的页面操作未发生之前，已经打开的操作页面IE个数
   
8. '  isExitRun--------是否退出运行
   
9. '程序输出：截图文件
   
10. '设计人员：LIUYI027
    
11. '设计时间：2011-12-05
    
12. '调用举例：Call JudgeBrowserErrInfo("D:\","请更正如下错误",1,"Y")
    
13. '**************************************************************************************************************************************
    
14. Public Sub JudgeBrowserErrInfo(respath,errSpecify,orgBrowserNum,isExitRun)
    
15. Set Wshshell = CreateObject("Wscript.Shell")
    
16. '判断用户参数输入
    
17. If  Trim(errSpecify) = "" Then
    
18.   errSpecify = "用户选择不做关键字匹配"&Replace(Date,"/","-")&"_"&Replace(Time,":","-")
    
19. End If
    
20. If  Trim(Replace(isExitRun,"y","Y")) = "Y"  Or isExitRun = True Then
    
21.   isExitRun = True
    
22. ElseIf Trim(Replace(isExitRun,"n","N")) = "N" Or isExitRun = False Then
    
23.   isExitRun = False
    
24. Else
    
25.   isExitRun = True
    
26.   Reporter.ReportEvent micWarning,"请尽量使用【Y/N】来作为您参数","由于本次输入无效，程序将自动替您选择遇到错误退出运行，请了解！"
    
27. End If
    
28. 
    
29. theKeyArray = Split(errSpecify,",")
    
30.         
    
31. Set BrowserObj = Description.Create()
    
32. BrowserObj("micclass").Value = "Browser"
    
33. Set Win32Browser = Desktop.ChildObjects(BrowserObj)
    
34. brNum = Win32Browser.Count
    
35. pairCount = 0
    
36. If  brNum < 1 Then
    
37.   Set WindowsBrowser = Nothing
    
38.   Set BrowserObject = Nothing
    
39.   Set Wshshell = Nothing
    
40.   Exit Sub
    
41. End If
    
42. For bindex = 0 to brNum - 1
    
43.   Win32Browser(bindex).Sync
    
44.   Set PageObj = Description.Create()
    
45.   PageObj("micclass").value = "Page"
    
46.   Set Win32Page = Win32Browser(bindex).ChildObjects(PageObj)
    
47.   pgNum = Win32Page.Count
    
48.   brTit = Win32Browser(k).GetROProperty("title")
    
49.   For pindex = 0 to pgNum - 1
    
50.    Set TabObj = Description.Create()
    
51.    TabObj("micclass").value = "WebTable"
    
52.    Set Win32Tab = Win32Page(pindex).ChildObjects(TabObj)
    
53.    tbNum = Win32Tab.Count
    
54.    '对每次出现的错误提示都提交报告，并记录匹配成功的次数
    
55.    For tindex = 0 to tbNum - 1   
    
56.     tabText = Win32Tab(tindex).GetROProperty("text")
    
57.    
    
58.     For aindex = 0 To UBound(theKeyArray)
    
59.      theKeyWord = theKeyArray(aindex)
    
60.       
    
61.      If Instr(tabText,theKeyWord) > 0 Then
    
62.       pairCount = pairCount + 1
    
63.       Reporter.ReportEvent micFail,"页面提交操作时系统提示：",tabText
    
64.      End If
    
65.      
    
66.      aindex = aindex + 1
    
67.     Next
    
68.    Next
    
69.    If  pairCount > 0 Then
    
70.     Wshshell.AppActivate(brTit)
    
71.     Win32Browser(bindex).CaptureBitmap fileName
    
72.     '如果用户选择发现错误之后退出运行则退出运行   
    
73.     If  isExitRun = "Y" Then
    
74.      Set Win32Tab = Nothing
    
75.      Set TabObj = Nothing
    
76.      Set Win32Page = Nothing
    
77.      Set PageObj = Nothing
    
78.      Set Win32Browser = Nothing
    
79.      Set BrowserObj = Nothing
    
80.      Set Wshshell = Nothing
    
81.      ExitRun
    
82.     End If
    
83.    Else
    
84.     Reporter.ReportEvent micPass,"页面提交之后没有发现错误","函数【JudgeBrowserErrInfo】已经遍历页面每一个角落，没有发现任何异常信息！"
    
85.    End If
    
86.    
    
87.    Set Win32Tab = Nothing
    
88.    Set TabObj = Nothing
    
89.   Next
    
90.   
    
91.   Set Win32Page = Nothing
    
92.   Set PageObj = Nothing
    
93.   
    
94.   '关闭多余的IE页面  
    
95.   If brNum > orgBrowserNum Then
    
96.    For brindex = orgBrowserNum to brNum - 1
    
97.     Win32Browser(brindex).Close
    
98.    Next
    
99.   End If
    
100. Next
     
101. 
     
102. Set Win32Browser = Nothing
     
103. Set BrowserObj = Nothing
     
104. Set Wshshell = Nothing
     
105. End Sub
     

复制代码

lyscser

顺带说一句，只能在QTP里面执行，别把它们弄成vbs在那跑，跑不成滴

ply0901

非常感谢