使用VBScript開發自動化測試腳本2
作者: aken 來源: Test8848.net
3、InputBox函數
描述
在對話框中顯示提示，等待用戶輸入文本或單擊按鈕，並返回文本框內容。
語法
InputBox(prompt[, title][, default][, xpos][, ypos][, helpfile, context])
示例：
這個函數主要用於捕獲用戶輸入的信息，在自動化測試開發中可用於腳本分類執行。
比如：
|
Dim a
a=InputBox("請輸入登記的號碼：" & Chr(13) & Chr(13) & "（注意：一定要使用註冊時使用的登記號碼，否則不允許進入系統！）","登錄系統","請輸入登記的號碼")
Select Case a Case "123" MsgBox "進入A系統" Case "456" MsgBox "進入B系統" Case Else MsgBox "輸入的登記號碼錯誤" End Select
|
4、MsgBox函數
描述
在對話框中顯示消息，等待用戶單擊按鈕，並返回一個值指示用戶單擊的按鈕。
語法
MsgBox(prompt[, buttons][, title][, helpfile, context])
示例：
這個函數主要用於輸出信息，在自動化測試開發中可作爲提示和警告，還可以通過人工判斷輸出測試結果等。
比如：
|
Dim a
a=MsgBox("頁面預期顯示的內容爲：歡迎admin登錄到論壇" & Chr(13) & Chr(13) & "頁面實際顯示的內容與預期結果相同嗎？",308,"測試結果判斷")
If a=6 Then MsgBox "輸出正確" Else MsgBox "輸出錯誤" End If
|
5、UBound函數
描述
返回指定數組維數的最大可用下標。
語法
UBound(arrayname[, dimension])
示例：
這個函數主要用於捕獲數組中的數據個數，在自動化測試開發中可用於獲得測試數據。
比如：
|
Dim a(5)
a(0)="123" a(1)="456" a(2)="789" a(3)="101112" a(4)="131415"
For i=0 To UBound(a)-1 MsgBox a(i) Next
|
6、Left、Right和Mid函數
描述
返回指定數目的從字符串的左邊算起的字符。
語法
Left(string, length)
描述
從字符串右邊返回指定數目的字符。
語法
Right(string, length)
描述
從字符串中返回指定數目的字符。
語法
Mid(string, start[, length])
示例：
這個函數主要用於截取字符串，在自動化測試開發中可用於獲取需要的字符串。
比如：
|
Dim a,b,i
a="abc" b=" kdk ieio splabckf kif " i=InStr(b,a) MsgBox Mid(b,i+Len(a))
|