作者:xuyubo
时间:2012/10/30 版权所有,侵权必究。
出处:http://blog.csdn.net/xuyubotest
'Minimize QTP
'此函数可以帮助大家在执行脚本时最小化QTP界面
'Minimize the main QTP window.
' =============================================================
' function: MinimizeQTP
' desc : Minimize QTP window
' params : None
' returns : void
' =============================================================
Function MinimizeQTP()
Dim objQTP
'Get QTP Object
Set objQTP = getObject("","QuickTest.Application")
' 设置QTP 界面最小化
objQTP.WindowState = "Minimized"
' 销毁对象
Set objQTP = Nothing
End Function 'MinimizeQTP