QTP操作注册表

版权声明:本文为博主原创文章,未经博主允许不得转载。 https://blog.csdn.net/Testing_is_believing/article/details/2211002

在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"
 

阅读更多
想对作者说点什么? 我来说一句

没有更多推荐了,返回首页