测试运行过程中改变QTP窗口状态

在测试脚本的运行过程中，QTP窗口可能会影响测试步骤。
有时，QTP窗口挡住了测试对象的弹出窗口或者页面控件，造成对象不可见Object is not visible错误。

在测试脚本的开头部分加入如下代码，就可以让QTP在开始运行时最小化QTP窗口。
Dim objQTPWin
Set ōbjQTPWin = GetObject("" , "QuickTest.Application")
objQTPWin.WindowState = "Minimized"
Set ōbjQTPWin = Nothing
其中objQTPWin.WindowState还支持最大化"Maxmized"和恢复"Restored"状态，如果把上面的代码包装成一个函数，就是根据需要在测试运行中随时改变QTP窗口的状态了。

除了最小化以外，还可以利用QTP窗口对象的Visible属性隐藏QTP窗口。
Dim objQTPWin
Set ōbjQTPWin = GetObject("" , "QuickTest.Application")
objQTPWin.Visible = False
Set ōbjQTPWin = Nothing
和最小化窗口不同的是，隐藏窗口以后连Windows任务栏上也不看不到QTP窗口了。
如果需要显示QTP窗口，应该把Visible属性设置为True。