RationalRobot使用技巧和实用函数集.doc

Robot使用技巧和实用函数集合 第一个：（转自网上）*******************************************************************功能说明：出现一个提示对话框，N秒后消失，比如说：提示等待一个窗口阿，有时候这个窗口没了，我也不知道脚本运行到什么地方了，提示一下挺好，也方便其他的测试员修改，而且，也不影响无人值守的操作例子：SQAMsgbox test,title,5Global iTime as IntegerDeclare Function TimedDlgFunc(id As String, Action As Integer, SuppValue As Long) As IntegerDeclare Function SQAMsgBox(sMsgText as String, Optional vMsgCaption as Variant, Optional vTimeOut as Variant) as IntegerFunction TimedDlgFunc(id As String, Action As Integer, SuppValue As Long) As Integer? ? Static StartTime? ? Dim EndTime? ? Dim vTimeoutValue as Variant? ? Select Case Action? ?? ???Case 1? ?? ?Dialog box Initialization? ?? ?? ?? ?? ? StartTime = Timer? ?? ?? ?? ?? ? If StartTime + iTime = 86400 Then? ?? ?? ?? ?? ?? ?? ?? ?StartTime = 86400 - StartTime - iTime ? ?? ?? ?? ?? ? End If? ?? ?? ?? ?? ? TimedDlgFunc = 1? ?? ???Case 2? ?? ?Button pushed or any control changed (except typing in text or combo box) ? ?? ?? ?? ?Select Case SuppValue? ?? ?? ?? ?? ? Case 1? ?? ?? ?? ?? ?? ???DlgEnd -1? ?? ?? ?? ?? ? Case 2? ?? ?? ?? ?? ?? ???DlgEnd 0? ?? ?? ?? ?? ? Case Else? ?? ?? ?? ?? ?? ???TimedDlgFunc = 0? ?? ?? ?? ?End Select? ?? ???Case 3? ?? ?Change in text or combo box contents? ?? ?? ?? ?? ? TimedDlgFunc = 1? ?? ???Case 4? ?? ?Change of control focus? ?? ?? ?? ?? ? TimedDlgFunc = 1? ?? ???Case 5? ?? ?Idle state (return 0 to prevent this being continually called)? ?? ?? ?? ?? ? EndTime = Timer? ?? ?? ?? ?? ? If (EndTime - StartTime) = iTime Then? ?? ?? ?? ?? ?? ?? ?? ?DlgEnd -1? ?? ?? ?? ?? ? End If? ?? ?? ?? ?? ? vTimeoutValue = Format(iTime - (EndTime - StartTime), #.#)? ?? ?? ?? ?? ? DlgText DlgControlID(txtTimeValue), CStr(vTimeoutValue)? ?? ?? ?? ?? ? TimedDlgFunc = 1? ? End SelectEnd FunctionFunction SQAMsgBox(sMsgText as String, Optional vMsgCaption as Variant, Optional vTimeOut as Variant) as Integer? ? Dim Result as Integer? ? Dim TotalTime As Integer? ? Dim sCmdT