QTP操作注册表

分享一下我老师大神的人工智能教程！零基础，通俗易懂！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