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