【QTP】最小化QTP運行的方法

一個小玩意，最小化QTP運行的方法，

上腳本：

Call Small()

'===============================
'作用：最小化QTP運行
'===============================
Public Sub QTP_Small()
	Dim objQTPWin
	Set objQTPWin = GetObject("" , "QuickTest.Application")
	objQTPWin.WindowState = "Minimized"
	Set objQTPWin = Nothing
End Sub

我用這玩意可能是因爲有點強迫症吧，比如開着個非全屏的軟件，看到周圍部分不是桌面而是QTP在後面就會非常不爽~