回访脚本的时候qtp自动最小化，脚本回放完毕后恢复

脚本前加上：

Dim objQTPWin
Set objQTPWin = GetObject("" , "QuickTest.Application")
objQTPWin.WindowState = "Minimized"

 

脚本结束的位置加上：

objQTPWin.WindowState = "Restored"
Set objQTPWin = Nothing