让你的QTP在运行过程中“收入自如”

blog已经转移至github,大家请访问 http://qaseven.github.io/

　我们在运行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

posted on 2014-01-13 10:58 顺其自然EVO 阅读(250) 评论(0) 编辑收藏所属分类: qtp


只有注册用户登录后才能发表评论。




网站导航: 博客园 IT新闻 Chat2DB C++博客博问管理
相关文章: QTP中Report知识点总结 QTP中的时间同步点问题解决 QTP书写程序技巧 VBS脚本启动QTP并运行测试 Lr11、QTP11破解时需要注意的问题在QTP中申明XPath QTP在webtable中查找指定字符 QTP脚本—测试参数限制 QTP校验数据库中数据后台项目 QTP处理各类鼠标事件fireEvent

qileilove