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由于其强大的功能，易学易用，有广泛用户群基础等优点而成为应用于测试自动化比较有应用前景的工具之一。
参考书目
1 《软件测试自动化技术》美 mark fewster & dorothy graham 著,电子工业出版社 2000年1月
3 《软件工程---实践者的研究方法》（美）rgoer s.press著，机械工业出版社，2000年9月
2 《visual bsaic 6 技术内幕》（美）steven holzner著,机械工业出版社，1999年4月
