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