模板
教程
环境
性能
功能
管理
软件测试 > 测试技术 > 软件测试工具 > Mercury软件测试工具 > QuickTestPro >
软件测试工具QTP脚本收集中
软件测试工具QTP脚本收集中
疯狂收集QTP脚本中。
忘了这个脚本是干啥的了，先留一下
|
Public Sub SendKeys(strWords) Dim WSH On Error Resume Next Set WSH = CreateObject("Wscrīpt.Shell") WSH.SendKeys strWords Set WSH = Nothing End Sub On Error Resume Next |
防止程序出错时,停止运行.
也就是说,有了这语句,程序出错时,跳过错误,继续运行.
这个是个问题脚本，if语句不同条件后执行的语句都是一回事，没区别，只不过用了不同的变量，而且调用了拼写检查器。这个if判断貌似就是不管怎样，就是要让Corrected = "Helllo world!"...而和判断条件是否成立是无关的
|
Dim Word,Doc,Uncorrected,Corrected Const wdDialogToolsSpellingAndGrammar = 828 Const wdDoNotSaveChanges = 0 Uncorrected = "Helllo world!" Set Word = CreateObject("Word.Application") Set Doc = Word.Documents.Add Word.Selection.Text = Uncorrected Word.Dialogs(wdDialogToolsSpellingAndGrammar).Show If Len(Word.Selection.Text) = 1 Then Corrected = Word.Selection.Text Else Corrected = Uncorrected End If Doc.Close wdDoNotSaveChanges Word.Qui 可以控制运行持续时间10秒钟 temp = Timer+10 Do If Timer >= temp then MsgBox CStr("hello") Exit do Else End if loop |
rum 5分钟只要temp = timer+(60*5)就可以了
用VBS的时间函数（？） （未完待续）
Window(my_winodw).Dialog(my_dialog).WinButton(my_button).WaitProperty ("text", "Submit", 1200000)
WaitProperty是等待对象的属性等于具体的值
但通常情况下，页面比较慢时，没有显示button，但QTP却已经可以找到它了
WaitProperty ("text", "Submit", 1200000)这步会直接运行过去，不会等待
