SAFFRON 框架代码解析二

'Verify 函数, 检查指定的对象是否存在。 Public Function Verify (objtype, text) rval = false localDesc = "" estr = "" If thirdlevel <> "" Then localDesc = GenerateDescription(level(2)) Else localDesc = GenerateDescription(level(1)) End If AutoSync() Select Case objtype Case "Page" Execute "rval = " & GenerateDescription(level(1)) & "Exist (0)" If rval Then Execute "title = " & GenerateDescription(level(1)) & "GetROProperty(" & Quote("title") & ")" If title = text Then rval = true Else rval = false End If End If Case "CurrentFrame" If thirdlevel <> "" Then estr = "rval = " & localDesc End If Case "Link" estr = "rval = " & localDesc & GenerateObjectDescription("Link", "innertext:=" & text) Case "WebButton" estr = "rval = " & localDesc & GenerateObjectDescription("WebButton", "value:=" & text) Case "WebList" estr = "rval = " & localDesc & GenerateObjectDescription("WebList", "name:=" & text) Case "WebEdit" estr = "rval = " & localDesc & GenerateObjectDescription("WebEdit", "name:=" & text) End Select If estr <> "" Then Execute estr + "Exist (0)" End If If rval Then Report micPass, objtype & " Verification", "The " & objtype & " " & Quote(text) & " was verified to exist" Else Report micFail, objtype & " Verification", "The " & objtype & " " & Quote(text) & " was not found" End If If "True" = rval Then rval = True Else rval = False End If Verify = rval End Function '由于判断不同对象的存在需采用不同的属性, 在 Verify 函数中对不同的对象类型进行判断并分别处理 '例如：判断 Link 类型的对象, 采用 innertext 属性, 判断 WebButton 类型的对象, 则采用 Value 属性 '最后都需要组合成一条语句, 后接 Exist 通过 Execute 方法执行语句 '启动浏览器 Launch "website" , "http://127.0.0.1:1080" '导航到 http://127.0.0.1:1080/WebTours/ BrowseTo "http://127.0.0.1:1080/WebTours/" If Verify("Link" , "sign up now") = False Then Reporter.ReportEvent micFail,"检查链接" , "链接不存在" Else Activate "Link" , "sign up now" '单击名为 sign up now 的链接 End If 'EnterTextIn 函数给输入框 (WebEdit对象) 输入字符串 Public Function EnterTextIn (objname, text) localDesc = "" rval = true If thirdlevel <> "" Then localDesc = GenerateDescription(level(2)) Else localDesc = GenerateDescription(level(1)) End If AutoSync() localDesc = localdesc & GenerateObjectDescription("WebEdit", "name:=" & objname) Execute localDesc & "Set (" & Quote(text) & ")" Report micPass, "Enter Text", "Text: " & Quote(text) & " was entered into " & Quote(objname) EnterTextIn = rval End Function '输入用户名 EnterTextIn "username" , "test" '输入密码 EnterTextIn "password" , "123" ' GetTextFrom 函数, 用于读取输入框和文本列表的字符串 WebEdit 和 WebList Public Function GetTextFrom (objtype, objname) text = "" localDesc = "" If thirdlevel <> "" Then localDesc = GenerateDescription(level(2)) Else localDesc = GenerateDescription(level(1)) End If AutoSync() Select Case objtype Case "WebEdit" Execute "text = " & localDesc & GenerateObjectDescription("WebEdit", "name:=" & objname) & "GetROProperty (" & Quote("value") & ")" Case "WebList" Execute "text = " & localDesc & GenerateObjectDescription("WebList", "name:=" & objname) & "GetROProperty (" & Quote("value") & ")" End Select Report micPass, "Capture Text", "Text: " & Quote(text) & " was captured from the control " & Quote(objname) GetTextFrom = text End Function '获取航班起始城市 DepartureCity = GetTextFrom("WebList" , "depart") '获取航班终点城市 ArrivalCity = GetTextFrom("WebList" , "arrive") 'SelectFromList 选择列表中的一项 Public Function SelectFromList (objname, text) localDesc = "" rv = "" rval = false If thirdlevel <> "" Then localDesc = GenerateDescription(level(2)) Else localDesc = GenerateDescription(level(1)) End If AutoSync() localDesc = localdesc & GenerateObjectDescription("WebList", "name:=" & objname) Execute "cnt = " & localDesc & "GetROProperty(" & Quote("items count") & ")" For i = 1 to cnt Execute "rv = " & localDesc & "GetItem (" & i & ")" If rv = text Then rval = true End If Next If rval Then Execute localDesc & "Select " & Quote(text) End If If rval Then Report micPass, "WebList Selection", "The WebList item " & Quote(text) & " was selected." Else Report micFail, "WebList Selection", "The WebList item " & Quote(text) & " was NOT found." End If SelectFromList = rval End Function '选择起点航班城市为 London SelectFromList("depart" , "London") 'CloseBrowsers 函数关闭浏览器, 会把当前所有打开的浏览器都关闭 Public Function CloseBrowsers If Browser("micclass:=Browser").Exist (0) Then Browser("micclass:=Browser").Close End If While Browser("micclass:=Browser", "index:=1").Exist (0) Browser("index:=1").Close Wend If Browser("micclass:=Browser").Exist (0) Then Browser("micclass:=Browser").Close End If End Function