?????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