QTP實現Windows任務欄氣泡提示框

        當我們的腳本運行時，一切都是在後臺默默運行。我們總是希望能夠提供一些UI的界面來提示一些腳本的運行狀態。而QTP本身只有print 和msgbox 這2個比較普通的基本方法來輸出信息，所以我們希望能夠找到一些新的方法來強化運行時信息的輸出。

我們知道，在.Net framework 中，具有很多已經封裝好的強大類庫，並且QTP可以通過DotNetFactory這個保留對象來創建這些類庫中的實例，來實現一些原本VBS所不具備的功能。

在System.Windows.Forms命名空間下包含了絕大多數windows控件的類庫。在這個例子中， 主要是通過創建一個NotifyIcon控件來實現一個任務欄氣泡提示信息的彈出.

代碼如下：

'Create a new instance of Notification
Set objNotification = DotNetFactory.CreateInstance("System.Windows.Forms.NotifyIcon")

'Set the Icon for the Notification
objNotification.Icon = DotNetFactory.CreateInstance("System.Drawing.SystemIcons","System.Drawing").Information

'Set the Icon for the balloontipicon
set BalloonTipIcon = DotNetFactory.CreateInstance("System.Windows.Forms.ToolTipIcon").Info

'display the ballontip with certain infomation	
objNotification.Visible = true
objNotification.ShowBalloonTip 0, "Tip", "test balloonTip", BalloonTipIcon

'do something here 
wait 2

'Relase and close the notification
objNotification.Dispose