软件测试工具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)这步会直接运行过去,不会等待
文章来源于领测软件测试网 https://www.ltesting.net/