此文章转的
此框架是从SAFFRON框架改的，据作者说是优化版，收了，以后查用。不错的自动化开发测试框架。
‘***************************************************************************************************************************************'定义全局变量以便于该框架函数WorkUnderFrame 的运行，否则变量无法共享传递‘***************************************************************************************************************************************Dim frameDesc:frameDesc = ""Dim objectArray:objectArray =Split("Link,WebButton,WebList,WebEdit,Image,WebTable,Viewlink,WebArea,WebCheckBox,WebFile,WebRadioGroup,WebElement", ",")‘***************************************************************************************************************************************'设计说明：关闭所有打开的IE，避免使用CloseProcessByName 这种容易造成IE 崩溃的粗鲁办法'程序输入：无'程序输出：无'设计人员：LIUYI027'设计时间：2011-01-11'调用举例：CloseAllOpenedBrowsers‘***************************************************************************************************************************************Public Sub CloseAllOpenedBrowsersSet Wshshell = CreateObject("Wscript.Shell")Set DialogObject = Description.Create()DialogObject("micclass").Value = "Dialog"Set Windows32Dialog = Desktop.ChildObjects(DialogObject)dlNum = Windows32Dialog.Count - 1For v = 0 to dlNumWindows32Dialog(v).CloseNextSet Windows32Dialog = NothingSet theBrowser = Browser("micclass:=Browser", "index:=0")While theBrowser.Exist(0)theBrowser.ClosewaitNx = 1Do While waitNx < 5Set Windows32Dialog = Desktop.ChildObjects(DialogObject)dlNum = Windows32Dialog.Count - 1For v = 0 to dlNumdlText = Windows32Dialog(v).GetROProperty("regexpwndtitle")Wshshell.AppActivate(dlText)Wait(1)Wshshell.SendKeys "{ENTER}"NextSet Windows32Dialog = NothingwaitNx = waitNx + 1LoopReport micPass,"使用CloseAllOpenedBrowsers 函数页面关闭成功","当前页面关闭成功！"WendSet theBrowser = NothingSet DialogObject = NothingSet Wshshell = NothingEnd Sub‘***************************************************************************************************************************************'设计说明：最大化IE 浏览器'程序输入：无'程序输出：无'设计人员：LIUYI027'设计时间：2011-01-11'调用举例：MaximizeBrowser‘***************************************************************************************************************************************Public Sub MaximizeBrowserSet BrowserObject = Description.Create()BrowserObject("NativeClass").Value = "IEFrame"Set WindowsBrowser = Desktop.ChildObjects(BrowserObject)brNum = WindowsBrowser.Count - 1For i = 0 To brNumieVersion = WindowsBrowser(i).GetROProperty("version")wndTitle = WindowsBrowser(i).GetROProperty("title")Set ObjectBrowser = Browser("micclass:=Browser", "index:=" & i)If Instr(ieVersion,6) > 0 ThenWindow("regexpwndclass:=IEFrame","index:=0","text:=" & wndTitle & ".*").MaximizeElseWindowsBrowser(i).MaximizeEnd IfSet ObjectBrowser = NothingNextSet WindowsBrowser = NothingSet BrowserObject = NothingEnd Sub‘***************************************************************************************************************************************'设计说明：初始化所有打开的Browser 页面'程序输入：无'程序输出：初始化成功或者失败'设计人员：LIUYI027'设计时间：2011-01-11'调用举例：BrowserSync‘***************************************************************************************************************************************Public Function SyncronizeBrowser()Dim bolVal1:bolVal1 = FalseDim bolVal2:bolVal2 = FalseDim bolVal3:bolVal3 = FalseDim bolVal4:bolVal4 = FalseDim binx:binx = 0Dim ex:ex = 0If Browser("micclass:=Browser", "CreationTime:=0").Exist(0) ThenBrowser("micclass:=Browser", "CreationTime:=0").SyncElseSyncronizeBrowser = FalseReport micWarning ,"初始化页面失败","页面初始化失败，需要重新操作！"Exit FunctionEnd IfSet BrowserObject = Description.Create()BrowserObject("micclass").Value = "Browser"Set WindowsBrowser = Desktop.ChildObjects(BrowserObject)For binx = 0 to WindowsBrowser.Count - 1WindowsBrowser(binx).SyncDo Until ex = 10bolVal1 = (WindowsBrowser(binx).GetROProperty("url") <> "")bolVal2 = WindowsBrowser(binx).GetROProperty("openurl") <> ""bolVal3 = WindowsBrowser(binx).GetROProperty("name") <> ""bolVal4 = WindowsBrowser(binx).GetROProperty("title") <> ""If (bolVal1 And bolVal3) Or (bolVal1 And bolVal4) Or (bolVal2 And bolVal3) Or (bolVal2 And bolVal4) ThenExit DoElseWait(1)End Ifex = ex + 1LoopNextSet WindowsBrowser = NothingSet BrowserObject = NothingSyncronizeBrowser = TrueEnd Function‘***************************************************************************************************************************************'设计说明：打开指定的地址，并且初始化页面，特别说明：对于地址栏出现一次性sessionid 的网页不可用该函数'程序输入：url 地址'程序输出：初始化成功或者失败'设计人员：LIUYI027'设计时间：2011-01-11'调用举例：print NavigateBrowser ("www.baidu.com")‘***************************************************************************************************************************************Public Function NavigateBrowser(para_myuri)CloseAllOpenedBrowsersSet IEBrowser = CreateObject("InternetExplorer.Application")IEBrowser.Visible = TrueIEBrowser.Navigate para_myuriSet ObjectBrowser = Browser("micclass:=Browser", "index:=0")Do Until SyncronizeBrowser() = TrueWait(1)Loopactualurl = ObjectBrowser.GetROProperty("url")'下面这个判断主要是为了解决初始化地址跳转问题，如果URL 发生变化会导致对象属性发生变化从而导致运行错误。If actualurl <> para_myuri ThenObjectBrowser.CloseSet IEBrowser = NothingSet IEBrowser = CreateObject("InternetExplorer.Application")IEBrowser.Visible = TrueIEBrowser.Navigate actualurlIf Not SyncronizeBrowser() ThenReport MicWarning,"使用NavigateBrowser 函数IE 初始化失败","打开指定页面【" & para_myuri & "】在初始化的时候失败！"Set MyBrowser = NothingSet IEBrowser = NothingExit FunctionEnd IfEnd IfSet ObjectBrowser = NothingSet IEBrowser = NothingReport MicPass,"使用NavigateBrowser 函数IE 初始化成功","打开指定页面【" & para_myuri & "】并且初始化成功！"NavigateBrowser = TrueEnd Function‘***************************************************************************************************************************************'设计说明：处理弹出对话框，主要用于弹出的可预知性能够得到控制的地方，未知弹出需引用其他函数处理'程序输入：选择对话框操作：是/否/确认/取消/确定等等，是否需要向结果中添加提示信息的报告'程序输出：结果报告'设计人员：LIUYI027'设计时间：2011-01-11'调用举例：HandleDialog "确.*定","Y"‘***************************************************************************************************************************************Public Function HandleDialog(btText,needAlertInfo)Dim buttonName:buttonName = ""Dim btName:btName = ""Dim binx:binx = 0Dim inx:inx = 0Dim dialogTitle:dialogTitle = ""If Trim(btText) = "" ThenbuttonName = "任意按钮"ElsebuttonName = btTextEnd IfSet Wshshell = CreateObject("Wscript.Shell")Set DialogObject = Description.Create()DialogObject("micclass").Value = "Dialog"Set WindowsDialog = Desktop.ChildObjects(DialogObject)If WindowsDialog.Count - 1 < 0 ThenSet WindowsDialog = NothingSet DialogObject = NothingSet Wshshell = NothingReport micDone,"已经没有任何弹出框","不需要进行对话框处理！"Exit FunctionEnd IfFor inx = 0 to WindowsDialog.Count - 1If needAlertInfo = "Y" Or needAlertInfo = True ThenSet StaticObject = Description.Create()StaticObject("micclass").Value = "Static"Set WindowsStatic = WindowsDialog(inx).ChildObjects(StaticObject)disMessage = WindowsStatic(WindowsStatic.Count - 1).GetROProperty("text")Report micDone,"获取网页对话框信息成功：",disMessageSet WindowsStatic = NothingSet StaticObject = NothingEnd IfSet WinButtonObject = Description.Create()WinButtonObject("micclass").Value = "WinButton"Set WindowsButton = WindowsDialog(inx).ChildObjects(WinButtonObject)Do While binx <= WindowsButton.Count - 1btName = Trim(WindowsButton(binx).GetROProperty("text")) & "任意按钮"If Instr(btName,buttonName) > 0 ThenWindowsButton(binx).ClickReport micDone,"函数HandleDialog 点击指定按钮成功","按照指定的按钮名称【" & btText & "】查找并点击按钮成功！"Exit DoEnd Ifbinx= binx + 1LoopSet WindowsButton = NothingSet WinButtonObject = NothingNextSet WindowsDialog = NothingSet DialogObject = NothingSet Wshshell = NothingEnd Function‘***************************************************************************************************************************************'设计说明：为Browser、Window、Page、Frame 生成描述性语言，为后续做执行用，从SAFFRON 改造得来'程序输入：1.当前操作页面在所有打开的页面中的排序（从1 开始），2.是否模态窗口'程序输出：描述性语言字符串'设计人员：LIUYI027'设计时间：2011-01-11'调用举例：GenerateDescription (2,"N")‘***************************************************************************************************************************************Public Function GenerateDescription (brNumber,ifModule)Dim brinx:brinx = brNumber - 1Dim windex:windex = ""Dim bindex:bindex = ""Dim descString:descString = ""If ifModule = "Y" Or ifModule = True ThendescString = "Window(" & Quote("nativeclass:=Internet Explorer_TridentDlgFrame") & "," & Quote("Location:=0") & ")." & "Page(" &Quote("micclass:=Page") & "," & Quote("index:=0") & ")."Elsebindex = "CreationTime:=" & brinxdescString = "Browser(" & Quote("micclass:=Browser") & "," & Quote(bindex) & ")." & "Page(" & Quote("micclass:=Page") & "," &Quote("index:=0") & ")."End IfdescString = descString & frameDescGenerateDescription = descStringEnd Function‘***************************************************************************************************************************************'设计说明：为WEB 其他实例对象生成描述性语言，为后续做执行用，从SAFFRON 改造得来'程序输入：1.对象类名，2.指定的属性和值比如"name:=姓名"'程序输出：描述性语言字符串'设计人员：LIUYI027'设计时间：2011-01-11'调用举例：GenerateobjectDescription ("Link","text:=Name")‘***************************************************************************************************************************************Public Function GenerateObjectDescription (objClassName, otherAtt)Dim objNameString:objNameString = ""Dim objNx:objNx = IndexOf(objectArray, objClassName)If objNx >= 0 ThenobjNameString = objClassName & "(" & Quote("micclass:=" & objClassName) & "," & Quote(otherAtt) & "," & Quote("index:=0") & ")"End IfGenerateobjectDescription = objNameStringEnd Function‘***************************************************************************************************************************************'设计说明：为每一种Web 类生成对象，'程序输入：1.类名，2.关键识别属性：Link、WebElement、Viewlink、WebTable 使用innertext 属性，支持右模糊匹配'Window 使用text、Browser 使用title，Page 无需特别标注，其余皆使用name，支持左中右模糊匹配3.页面层次序号，4.是否模态窗口'程序输出：Web 对象，支持后续的QTP 内置方法'设计人员：LIUYI027'设计时间：2011-01-11'调用举例：msgbox GenerateSpecifiedObject("WebTable","搜索开放平台",1,"N").GetROProperty("text")‘***************************************************************************************************************************************Public Function GenerateSpecifiedObject (className, attValue, brNumber, ifModule)Dim objectString:objectString = ""Dim textDesc: textDesc = ""Dim MySpecifiedObject:MySpecifiedObject = ""Dim blVal1:blVal1 = (UCase(className) = "LINK")Dim blVal2:blVal2 = (UCase(className) = "WEBELEMENT")Dim blVal3:blVal3 = (UCase(className) = "VIEWLINK")Dim blVal4:blVal4 = (UCase(className) = "WEBTABLE")If blVal1 Or blVal2 Or blVal3 Or blVal4 ThentextDesc = "innertext:=" & attValue & ".*"objectString = GenerateDescription(brNumber, ifModule) & GenerateObjectDescription(className, textDesc)Execute "Set MySpecifiedObject = " & objectStringElseif Ucase(className) = "WINDOW" ThenSet MySpecifiedObject = Window("nativeclass:=Internet Explorer_TridentDlgFrame", "text:=.*" & attValue & ".*","Location:=0")Elseif Ucase(className) = "BROWSER" ThenSet MySpecifiedObject = Browser("micclass:=Browser", "title:=.*" & attValue & ".*","CreationTime:=0")Elseif Ucase(className) = "PAGE" ThentextDesc = GenerateDescription(brNumber, ifModule)Execute "Set MySpecifiedObject = " & Left(textDesc,Len(textDesc) - 1)ElsetextDesc = "name:=.*" & attValue & ".*"objectString = GenerateDescription(brNumber, ifModule) & GenerateObjectDescription(className, textDesc)Execute "Set MySpecifiedObject = " & objectStringEnd IfSet GenerateSpecifiedObject = MySpecifiedObjectEnd Function‘***************************************************************************************************************************************'设计说明：根据关键字（可正则模糊）查询页面对象，取消SAFRRON 中对Page 和Frame 的检查，新增Web 其他对象'程序输入：1.对象类名，2.内置属性的值如“查.*询.*”，3.页面层次（Browser 对象）序号，4.是否模态窗口'程序输出：找到则返回Ture 否则为False，并且添加结果报告'设计人员：LIUYI027'设计时间：2011-01-11'调用举例：FindSpecifiedObject "WebTable","搜索开放平台",1,"N"‘***************************************************************************************************************************************Public Function FindSpecifiedObject (objectClass, specifiedText, brNumber, ifModule)Dim boolValue:boolValue = FalseDim specifiedAtt:specifiedAtt = ""Dim blVal1:blVal1 = (UCase(className) = "LINK")Dim blVal2:blVal2 = (UCase(className) = "WEBELEMENT")Dim blVal3:blVal3 = (UCase(className) = "VIEWLINK")Dim blVal4:blVal4 = (UCase(className) = "WEBTABLE")If blVal1 Or blVal2 Or blVal3 Or blVal4 ThenspecifiedAtt = "innertext"Elseif Ucase(objectClass) = "WINDOW" ThenspecifiedAtt = "text"Elseif Ucase(objectClass) = "BROWSER" Or Ucase(objectClass) = "PAGE" ThenspecifiedAtt = "title"ElsespecifiedAtt = "name"End IfIf GenerateSpecifiedObject (objectClass, specifiedText, brNumber, ifModule).Exist(0) ThenobjValue = GenerateSpecifiedObject (objectClass, specifiedText, brNumber, ifModule).GetROProperty(specifiedAtt)Report micDone, objectClass & "匹配对象成功", "对象【" & objectClass & "】【" & objValue & "】查询成功！ "boolValue = TrueElseReport micWarning, objectClass & "匹配对象失败", "对象【" & objectClass & "】根据关键字【 " & specifiedText & " 】查询无果！"boolValue = FalseEnd IfSet MyObject = NothingFindSpecifiedObject = boolValueEnd Function‘***************************************************************************************************************************************'设计说明：点击网页上可以点击的对象，包括链接、按钮、图标、虚拟链接、文件上传域、网页不识别组件'程序输入：1.对象的类明，2.指定的属性值关键字（可模糊匹配），3.页面层次序号，4.是否模态窗口'程序输出：描述性语言字符串'设计人员：LIUYI027'设计时间：2011-01-11'调用举例：ClickSpecifiedObject "Link","退出系统",2,"N"‘***************************************************************************************************************************************Public Function ClickSpecifiedObject (objectClass, specifiedText, brNumber, ifModule)Dim boolValue:boolValue = FalseDim isDisabled:isDisabled = ""Dim isReadonly:isReadonly = ""Dim blVal1:blVal1 = (UCase(objectClass) <> "LINK")Dim blVal2:blVal2 = (UCase(objectClass) <> "WEBBUTTON")Dim blVal3:blVal3 = (UCase(objectClass) <> "IMAGE")Dim blVal4:blVal4 = (UCase(objectClass) <> "VIEWLINK")Dim blVal5:blVal5 = (UCase(objectClass) <> "WEBFILE")Dim blVal6:blVal6 = (UCase(objectClass) <> "WEBELEMENT")If blVal1 And blVal2 And blVal3 And blVal4 And blVal5 And blVal6 ThenReport MicFail,"ClickSpecifiedObject 函数参数错误","ClickSpecifiedObject 函数只适用于LINK、WEBBUTTON、IMAGE、VIEWLINK、WEBFILE、WEBELEMENT，请确认！"Exit FunctionEnd IfIf Not GenerateSpecifiedObject (objectClass, specifiedText, brNumber, ifModule).Exist(0) ThenReport micFail, "ClickSpecifiedObject 操作失败", "网页对象【" & objectClass & "】按照关键字【" & specifiedText & "】没有查询到！"boolValue = FalseElseisDisabled = GenerateSpecifiedObject (objectClass, specifiedText, brNumber, ifModule).GetROProperty("disabled")isReadonly = GenerateSpecifiedObject (objectClass, specifiedText, brNumber, ifModule).GetROProperty("readonly")If Trim(isDisabled) = "1" Or Trim(isReadonly) = "1" ThenReport micFail, "ClickSpecifiedObject 操作失败", "网页对象【" & objectClass & "】【" & specifiedText & "】Disabled！"boolValue = FalseElseGenerateSpecifiedObject (objectClass, specifiedText, brNumber, ifModule).ClickReport micDone, "函数ClickSpecifiedObject 操作点击完成：","网页对象【" & objectClass & "】：【" & specifiedText & "】点击完毕，并且已经执行网页初始化！"boolValue = TrueSyncronizeBrowserEnd IfEnd IfSyncronizeBrowserClickSpecifiedObject = boolValueEnd Function‘***************************************************************************************************************************************'设计说明：向输入框中输入指定的文本'程序输入：1.Edit 对象name 的属性值，2.指定的属性值，3.页面层次序号，4.是否模态窗口'程序输出：描述性语言字符串'设计人员：LIUYI027'设计时间：2011-01-11'调用举例：PutValueToEditableArea "WebEdit","projectWorkTimes.*remark","日报明细",1,"N"‘***************************************************************************************************************************************Public Function PutValueToEditableArea (objectClass, nameValue, specifiedText, brNumber, ifModule)Dim isDisabled:isDisabled = ""Dim isReadonly:isReadonly = ""Dim boolValue:boolValue = FalseIf Ucase(objectClass) <> "WEBCHECKBOX" And Ucase(objectClass) <> "WEBFILE" And Ucase(objectClass) <> "WEBEDIT"ThenReport MicFail,"PutValueToEditableArea 函数参数错误","该函数只适用于WebFile、WebEdit 和WebCheckBox，请确认！"PutValueToEditableArea = boolValueExit FunctionElseif Ucase(objectClass) = "WEBCHECKBOX" And (Ucase(specifiedText) <> "ON" Or Ucase(specifiedText) <> "OFF") ThenReport MicFail,"PutValueToEditableArea 函数参数错误","WebCheckBox 属性值只能用ON 或OFF，请确认！"PutValueToEditableArea = boolValueExit FunctionElseif Ucase(objectClass) = "WEBCHECKBOX" And (Ucase(specifiedText) = "ON" Or Ucase(specifiedText) = "OFF") ThenspecifiedText = Ucase(specifiedText)ElsespecifiedText = specifiedTextEnd IfIf Not GenerateSpecifiedObject (objectClass, nameValue, brNumber, ifModule).Exist(0) ThenReport micFail, "PutValueToEditableArea 操作失败", "网页对象【" & objectClass & "】按照关键字【"&nameValue&"】没有查询到！"PutValueToEditableArea = boolValueExit FunctionEnd IfisDisabled = GenerateSpecifiedObject (objectClass, nameValue, brNumber, ifModule).GetROProperty("disabled")isReadonly = GenerateSpecifiedObject (objectClass, nameValue, brNumber, ifModule).GetROProperty("readonly")nameValue = GenerateSpecifiedObject (objectClass, nameValue, brNumber, ifModule).GetROProperty("name")If Trim(isReadonly) = "1" Or Trim(isDisabled) = "1" ThenReport micFail, "PutValueToEditableArea 操作失败", "输入框/文件浏览框/复选框【" & nameValue & "】已经查询到但是不可编辑！"boolValue = FalseElseGenerateSpecifiedObject (objectClass, nameValue, brNumber, ifModule).Set specifiedTextSyncronizeBrowserReport micDone, "PutValueToEditableArea 操作成功", "文本【" & specifiedText & "】成功输入或设置可编辑域【" & nameValue & "】!"boolValue = TrueEnd IfPutValueToEditableArea = boolValueEnd Function‘***************************************************************************************************************************************'设计说明：从指定的WebList 下拉列表中选择指定项（Trim 掉空格，不可模糊匹配）'程序输入：1.WebList 对象name 的属性值，2.指定的选择项，3.页面层次序号，4.是否模态窗口'程序输出：描述性语言字符串'设计人员：LIUYI027'设计时间：2011-01-11'调用举例：SelectFromWebList "projectWorkTimes.*remark","平安科技",1,"N"‘***************************************************************************************************************************************Public Function SelectFromWebList (listName, text, brNumber, ifModule)Dim localDesc:localDesc = ""Dim canSelect:canSelect = FalseDim boolValue:boolValue = FalselocalDesc = GenerateDescription(brNumber, ifModule) & GenerateObjectDescription("WebList", "name:=.*" & listName & ".*")Execute "Set MyWebList = " & localDescIf Not MyWebList.Exist(0) ThenReport micFail, "SelectFromWebList", "网页下拉列表（WebList）【" & listName & "】按照关键字【" & text & "】没有查询到！"SelectFromWebList = boolValueExit FunctionEnd IfiCount = MyWebList.GetROProperty("items count")canMod1 = MyWebList.GetROProperty("disabled")For i = 1 to iCountitemValue = MyWebList.GetItem(i)If Trim(itemValue) = Trim(text) And canMod1 = "0" ThencanSelect = TrueExit ForEnd IfNextIf canSelect ThenMyWebList.Select itemValueSyncronizeBrowserReport micDone, "下拉列表选择成功", "选择项【" & itemValue & "】已经被查询到、选择，并且执行初始化！"boolValue = TrueElseReport micFail, "下拉列表选择失败", "下拉列表【" & listName & "】不可编辑！"boolValue = FalseEnd IfSelectFromWebList = boolValueEnd Function‘***************************************************************************************************************************************'设计说明：按照给定的值选择网页单选框WebRadioGroup'程序输入：1.WebRadioGroup 对象name 的属性值，2.指定的选择项，3.页面层次序号，4.是否模态窗口'程序输出：描述性语言字符串'设计人员：LIUYI027'设计时间：2011-01-11'调用举例：SelectWebRadioGroup "remark","a",1,"N"‘***************************************************************************************************************************************Public Function SelectWebRadioGroup (radioName, attValue, brNumber, ifModule)Dim localDesc:localDesc = ""Dim canSelect:canSelect = FalseDim boolValue:boolValue = FalseDim isDisabled:isDisabled = ""localDesc = GenerateDescription(brNumber, ifModule) & GenerateObjectDescription("WebRadioGroup", "name:=.*" & radioName & ".*")Execute "Set MyRadioGroup = " & localDescIf Not MyRadioGroup.Exist(0) ThenReport micFail, "WEB 单选框查询失败", "单选框【" & radioName & "】按照关键字【" & attValue & "】没有查询到！"Exit FunctionElseisDisabled = MyRadioGroup.GetROProperty("disabled")End IfIf Trim(isDisabled) = "0" ThenMyRadioGroup.Select attValueReport micDone, "WEB 单选框选择成功", "选择项【" & attValue & "】已经被查询到、选择，并且执行初始化！"boolValue = TrueElseReport micFail, "WEB 单选框选择失败", "单选框【" & radioName & "】不可选择编辑！"boolValue = FalseEnd IfSyncronizeBrowserSelectWebRadioGroup = boolValueEnd Function‘***************************************************************************************************************************************'设计说明：指定在某个Frame 下面工作，如果不需要使用则使用另一个函数停止操作'程序输入：1.Frame 对象属性名，2.指定的属性值'程序输出：描述性语言字符串'设计人员：LIUYI027'设计时间：2011-01-11'调用举例：WorkUnderFrame ("name","frameContent")‘***************************************************************************************************************************************Public Sub WorkUnderFrame(frameAtt,frameKey)Dim frameDesc :frameDesc = ""frameIdentify = frameAtt & ":=.*" & frameKey & ".*"frameDesc = "Frame(" & Quote("micclass:=Frame") & "," & Quote(frameIdentify) & "," & Quote("index:=0") & ")."End Sub‘***************************************************************************************************************************************'设计说明：将对象运行层次调到Page 下，而不在任何Frame 下'程序输入：'程序输出：将Frame 的描述性语言清空'设计人员：LIUYI027'设计时间：2011-01-11'调用举例：StopWorkUnderFrame‘***************************************************************************************************************************************Public Sub StopWorkUnderFrame()frameDesc = ""End Sub‘***************************************************************************************************************************************'设计说明：将字符串两端加上双引号，引自SAFFRON 框架'程序输入：字符串'程序输出：加了引号的字符串'设计人员：'设计时间：2011-01-11'调用举例：Quote("AAA")返回 "AAA"‘***************************************************************************************************************************************Public Function Quote (text)Quote = Chr(34) & text & Chr(34)End Function‘***************************************************************************************************************************************'设计说明：简化ReportEvent 的书写，引自SAFFRON 框架'程序输入：结果报告状态'程序输出：结果报告'设计人员：'设计时间：2011-01-11'调用举例：Report MicPass‘***************************************************************************************************************************************Public Function Report (status, objtype, text)Reporter.Filter = rtEnableAllReporter.ReportEvent status, objtype, textEnd Function‘***************************************************************************************************************************************'设计说明：取字符或字符串在一个数组中的位置，引自SAFFRON 框架'程序输入：数组、字符串'程序输出：位置序号'设计人员：'设计时间：2011-01-11'调用举例：IndexOf(myArray,"something")‘***************************************************************************************************************************************Public Function IndexOf (myArray, myString)myValue = -1For i = 0 to UBound(myArray)If myArray(i) = myString ThenmyValue = iExit ForEnd IfNextIndexOf = myValueEnd Function
