让QTP回放时窗口隐藏
上一篇 /
下一篇 2012-03-23 20:06:51
/ 个人分类:自动化测试
Sub QTP_Small()
Dim QTPWin
Set QTPWin=GetObject("","QuickTest.Application")
QTPWin.WindowState="Minimized"
Set QTPWin=Nothing
End Sub
Sub QTP_Big()
Dim QTPWin
Set QTPWin=GetObject("","QuickTest.Application")
QTPWin.WindowState="Restored"
Set QTPWin=Nothing
End Sub
收藏
举报
TAG: