Robot使用技巧和实用函数集合.docVIP

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 sCmdText as String Dim sTimeoutText as String Dim vValue as Variant If IsMissing vMsgCaption Then vMsgCaption SQAMsgBox End If If IsMissing vTimeOut Then vTimeOut 20 seconds End If sTimeoutText Timeout: Begin Dialog dlgMsgBox 200, 80, vMsgCaption, .TimedDlgFunc GroupBox 5, 2, 190, 40, , .grpMsgTxt Text 15, 11, 175, 25, sMsgText, .txtMsgText Text 15, 47, 180, 20, sCmdText, .txtCmdText 第二个： 来自于网上 ******************************************************************关于Recognitio