軟件測試工具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)這步會直接運行過去，不會等待
文章來源于領測軟件測試網 http://www.kjueaiud.com/
