51Testing软件测试论坛

标题: 求QTP用vb脚本操作控制面板 [打印本页]

作者: sd2951811 时间: 2010-4-9 10:14
标题: 求QTP用vb脚本操作控制面板
请各位帮帮忙，有个case 为了做一个自动化测试，需要关闭控制面板中的屏保，不会关闭显示器等等，请问用脚本怎么实现啊？

谢谢大家。。

作者: TIB 时间: 2010-4-9 12:51
用VBScript脚本编辑注册表来达到修改设置的目的，例如下面的脚本修改的是屏保等待时间：
HKEY_CURRENT_USER = &H80000001
strComputer = "."
Set objReg = GetObject("winmgmts:\\" & strComputer & "\root\default:StdRegProv")
strKeyPath = "Control Panel\Desktop"
objReg.CreateKey HKEY_CURRENT_USER, strKeyPath
ValueName = "ScreenSaveTimeout"
strValue = "300"
objReg.SetStringValue HKEY_CURRENT_USER, strKeyPath, ValueName, strValue

作者: sd2951811 时间: 2010-4-23 11:00
能不能加点注释啊？一下子看不懂

欢迎光临 51Testing软件测试论坛 (http://bbs.51testing.com/)