分享一下我老师大神的人工智能教程！零基础，通俗易懂！http://blog.csdn.net/jiangjunshow
也欢迎大家转载本篇文章。分享知识，造福人民，实现我们中华民族伟大复兴！
在QTP中没有提供用于直接操作注册表的测试对象，但是利用Windows脚本的Shell对象，可以对注册表进行增删改等操作，例如下面的脚本：
Dim WshShell, bKey
' 创建Shell对象
Set WshShell = CreateObject("WScript.Shell")
' 使用Shell对象来读取注册表
bKey = WshShell.RegRead("HKEY_LOCAL_MACHINE/SOFTWARE/Mozilla/Mozilla Firefox 1.5/Extensions/Plugins")
Msgbox bKey
' 修改注册表
WshShell.RegWrite "HKEY_LOCAL_MACHINE/SOFTWARE/Mozilla/Mozilla Firefox 1.5/Extensions/Plugins", "D:/Program Files/Mozilla Firefox/Plugins", "REG_SZ"
' 删除注册表
WshShell.RegDelete "HKEY_LOCAL_MACHINE/SOFTWARE/Mozilla/Mozilla Firefox 1.5/Extensions/Plugins"
' 修改或写入注册表
WshShell.RegWrite "HKEY_LOCAL_MACHINE/SOFTWARE/Mozilla/Mozilla Firefox 1.5/Extensions/Plugins", "C:/Program Files/Mozilla Firefox/Plugins", "REG_SZ"
给我老师的人工智能教程打call！http://blog.csdn.net/jiangjunshow
