很多人都覺得微軟的VBScript功能比較弱，如果從開發自動化測試的角度來講，更是不可能了。從我對VBScript腳本的了解來看，對一個腳本是否可以做自動化測試需要這個測試人員具備兩方面的知識，第一個，就是對VBScript腳本開發語言精通，要了解VBScript的核心技術如何更廣泛的應用；第二個，就是要有自動化的測試思想，這個一定得是做過測試工作的能夠了解的多一些。

 

　我在軟件測試這個行業也是做過很多年了，自己的方向也是自動化測試，對VBScript腳本也算是了解，在測試過程中 
也應用了一些，所以來談談如何使用VBScript來開發自動化測試。
　　首先先介紹幾個可以在自動化測試開發中用到的VBScript的幾個函數。

1、InStr 函數
描述
　　返回某字符串在另一字符串中第一次出現的位置。
語法
InStr([start, ]string1, string2[, compare]) 
InStr 函數的語法有以下參數： 
　　　　　　 參數 描述 
start 可選。數值表達式，用于設置每次搜索的開始位置。如果省略，將從第一個字符的位置開始搜索。如果 start 包含 Null，則會出現錯誤。如果已指定 compare，則必須要有 start 參數。 
string1 必選。接受搜索的字符串表達式。 
string2 必選。要搜索的字符串表達式。 
compare 可選。指示在計算子字符串時使用的比較類型的數值。有關數值，請參閱“設置”部分。如果省略，將執行二進制比較。

示例：
　　這個函數說明的是一個字符串在另一個字符串中出現的位置，在自動化測試中，經常用作比較結果來使用。
比如：
　　　　

Dim a,b
a="rtyi"
b="1345krkrtyi:{""><?"

If InStr(b,a)>0 Then
    MsgBox"測試結果通過"
Else
    MsgBox "測試結果失敗"
End If

2、Split 函數
描述
　　返回基于0的一維數組，其中包含指定數目的子字符串。
語法
Split(expression[, delimiter[, count[, start]]]) 
　　Split 函數的語法有以下參數： 
　　　　　　　　 參數 描述 
expression 必選。字符串表達式，包含子字符串和分隔符。如果 expression 為零長度字符串，Split 返回空數組，即不包含元素和數據的數組。 
delimiter 可選。用于標識子字符串界限的字符。如果省略，使用空格 ("") 作為分隔符。如果 delimiter 為零長度字符串，則返回包含整個 expression 字符串的單元素數組。 
count 可選。被返回的子字符串數目，-1 指示返回所有子字符串。 
compare 可選。指示在計算子字符串時使用的比較類型的數值。有關數值，請參閱“設置”部分。

示例：
　　這個函數主要用于拆分字符串用，在自動化測試開發中主要用于拆分測試數據。
比如：

Dim a,b,i

a="rt124,y556,57777,<>:/*&%"
b=Split(a,",")

For i=0 To Ubound(b)
    MsgBox b(i)
Next