【转】让你的QTP在运行过程中“收入自如”

上一篇 / 下一篇 2014-01-10 23:28:51 / 个人分类：测试工具

我们在运行QTP批处理时，不需要把QTP的主界面显示出来，以免它阻碍了你的操作视线，那下面介绍二个函数方便你的QTP在运行过程中“收入自如”：

　　'让QTP运行时保持最小化

Public Sub QTP_Small()

Dim objQTPWin

Set bjQTPWin = GetObject("" , "QuickTest.Application")

objQTPWin.WindowState = "Minimized"

Set bjQTPWin = Nothing

End Sub

　　'恢复QTP窗口

Public Sub QTP_Big()

Dim objQTPWin

Set bjQTPWin = GetObject("" , "QuickTest.Application")

objQTPWin.WindowState = "Restored"

Set bjQTPWin = Nothing

End Sub

TAG: