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

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

    '让QTP运行时保持最小化

    Public Sub QTP_Small()

        Dim objQTPWin

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

        objQTPWin.WindowState = "Minimized"

        Set objQTPWin = Nothing

    End Sub

 

    '恢复QTP窗口

    Public Sub QTP_Big()

        Dim objQTPWin

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

        objQTPWin.WindowState = "Restored"

        Set objQTPWin = Nothing

    End Sub