在測試過程中經常要做的一項工作是為了查找錯誤信息而檢查應用程序的登錄文件，這些登錄文件通常是文本文件，而對任何編程語言來說利用本身基本的文件操作函數都很容易取打開和讀取這些文件。而另一項工作是記錄測試過程信息和測試結果，它實質上跟上面所說的是使用相同的函數功能：一個簡單的記錄方法是將測試結果寫進一個文本文件。例1所示的代碼就是實現了這些記錄功能。
2 GUI功能測試
例2
Shell("c:\windows\calc.exe") '啟動計算器
For i = 1 To 100 '設置計算循環
SendKeys I & "{+}", True '發送擊鍵動作到計算器
Next I '累加每一次I的值
SendKeys "=", True '計算總和
在黑盒測試中，實現自動化測試要編寫測試腳本去模擬用戶日常的操作輸入。使用Visual Basic的Shell函數和Sendkeys函數可以簡單有效地實現一些GUI功能測試。
例子2的所示代碼打開了一個Windows計算器，然后發送擊鍵動作模擬用戶輸入，計算一系列數值（1到100）的總和；啟動程序調用Visual Basic的Shell函數，SendKeys指令被用來發送擊鍵動作到應用程序去模擬用戶輸入和計算結果。
3 讀取和設置注冊表信息
例3
Dim astrSettings() as string ‘定義變量
lstSettings.Clear ‘清除列表框內容
astrSettings = GetAllSettings(testAppname, txtSection) ‘調用專用函數返回VB
‘專用位置的注冊表信息
For iCount = 0 To UBound(astrSettings) ‘通過循環將注冊表信息
‘顯示在列表框中
lstSettings.AddItem astrSettings(iCount, 0) & ": " _
& astrSettings(iCount, 1)
Next iCount
注：testAppname是被測試應用程序的名稱
測試人員很多時候都要檢查注冊表，注冊表是一個存儲應用程序安裝設置、選項等重要信息的地方。Visual Basic 6.0 包含了一些可以從預留給Visual Basic 應用軟件專用的注冊表鍵值位置返回信息的新的功能函數。這些功能函數簡單地設置和返回這些注冊表鍵值，這對測試用Visual Basic 開發的應用程序尤其有用。
例子3所示代碼返回注冊表中位置"HKEY_CURRENT_USER\VB and VBA Program Settings\"中的所有注冊表信息并把這些信息顯示在一個名為lstSettings的列表框中。如要存取其他位置的注冊表信息，需要調用Windows API函數。
五 小結
由此可見，為彌補當前自動化測試工具的不足，選擇用一些編程開發語言編寫一些測試腳本或測試輔助工具在實際工作中證明是切實可行的，而Visual Basic 6.0由于其強大的功能，易學易用，有廣泛用戶群基礎等優點而成為應用于測試自動化比較有應用前景的工具之一。
文章來源于領測軟件測試網 http://www.kjueaiud.com/
