……. ‘记录测试过程信息
Close #1 ‘关闭记录文件
在测试过程中经常要做的一项工作是为了查找错误信息而检查应用程序的登录文件，这些登录文件通常是文本文件，而对任何编程语言来说利用本身基本的文件操作函数都很容易取打开和读取这些文件。而另一项工作是记录测试过程信息和测试结果，它实质上跟上面所说的是使用相同的函数功能：一个简单的记录方法是将测试结果写进一个文本文件。例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) ‘通过循环将注册表信息
文章来源于领测软件测试网 https://www.ltesting.net/
