robot使用技巧与实用函数集合

《robot使用技巧与实用函数集合》由会员上传分享，免费在线阅读，更多相关内容在行业资料-天天文库。

1、Robot使用技巧和实用函数集合第一个：（转自网上）*******************************************************************功能说明：出现一个提示对话框，N秒后消失，比如说：提示等待一个窗口阿，有时候这个窗口没了，我也不知道脚本运行到什么地方了，提示一下挺好，也方便其他的测试员修改，而且，也不影响无人值守的操作例子：SQAMsgbox"test","title",5GlobaliTimeasIntegerDeclareFunctionTimedDlgFunc(i

2、dAsString,ActionAsInteger,SuppValueAsLong)AsIntegerDeclareFunctionSQAMsgBox(sMsgTextasString,OptionalvMsgCaptionasVariant,OptionalvTimeOutasVariant)asIntegerFunctionTimedDlgFunc(idAsString,ActionAsInteger,SuppValueAsLong)AsInteger  StaticStartTime  DimEndTime  Dim

3、vTimeoutValueasVariant  SelectCaseAction      Case1    'DialogboxInitialization          StartTime=Timer          IfStartTime+iTime>=86400Then                StartTime=86400-StartTime-iTime          EndIf          TimedDlgFunc=1      Case2    'Buttonpushedoranycon

4、trolchanged(excepttypingintextorcombobox)        SelectCaseSuppValue          Case1              DlgEnd-1          Case2              DlgEnd0          CaseElse              TimedDlgFunc=0        EndSelect      Case3    'Changeintextorcomboboxcontents          Time

5、dDlgFunc=Robot使用技巧和实用函数集合第一个：（转自网上）*******************************************************************功能说明：出现一个提示对话框，N秒后消失，比如说：提示等待一个窗口阿，有时候这个窗口没了，我也不知道脚本运行到什么地方了，提示一下挺好，也方便其他的测试员修改，而且，也不影响无人值守的操作例子：SQAMsgbox"test","title",5GlobaliTimeasIntegerDeclareFunctionTimed

6、DlgFunc(idAsString,ActionAsInteger,SuppValueAsLong)AsIntegerDeclareFunctionSQAMsgBox(sMsgTextasString,OptionalvMsgCaptionasVariant,OptionalvTimeOutasVariant)asIntegerFunctionTimedDlgFunc(idAsString,ActionAsInteger,SuppValueAsLong)AsInteger  StaticStartTime  DimEnd

7、Time  DimvTimeoutValueasVariant  SelectCaseAction      Case1    'DialogboxInitialization          StartTime=Timer          IfStartTime+iTime>=86400Then                StartTime=86400-StartTime-iTime          EndIf          TimedDlgFunc=1      Case2    'Buttonpushe

8、doranycontrolchanged(excepttypingintextorcombobox)        SelectCaseSuppValue          Case1              DlgEnd-1          Case2              DlgEnd0