QTP自动保存脚本

上一篇 / 下一篇  2012-12-18 17:33:35 / 个人分类:QTP自动化笔记

   编写脚本的过程中,可能会忘记随时保存脚本的习惯,这个时候如果出现一下异常情况导致qtp被关闭,我们编写的脚本又没及时的保存,导致脚本的丢失.为了防止这种情况的出现,我们可以结合QTP AOM实现qtp脚本的自动保存,防止以上情况的出现,给我们造成不必要的损失.

以下是代码,保存为vbs文件,运行该文件即可自动启动QTP程序,我们就可以再自动保存的模式下编写脚本了(注:在QTP中需要对新脚本首次手动保存为正式脚本时,请使用File菜单下的Save as保存):

On Error Resume Next
ret = msgbox("是否已经关闭之前启动的QTP程序",vbYesNo)
If ret = 6 Then
 ret1 = msgbox("请确保您的QTP Add-in-Manager界面中,默认选择了您编写脚本所需的所有插件!",vbYesNo)
 If ret1=6 Then
  Set qtapp = CreateObject("QuickTest.Application")
  qtapp.Launch
  qtapp.Visible = True
  While Not qtapp.Launched
  Wend
 
  Do
   If qtapp.Test.Modified Then
       If qtapp.Test.IsNew Then
           qtapp.Test.SaveAs "D:\TempTest" '脚本临时保存名称
       Else
           qtapp.Test.Save
       End If
   End If
   WScript.Sleep 1000
  Loop until Err.Number<>0
 
  If Err.Number<>0 Then
   MsgBox "已经退出自动保存脚本模式,请注意随时保存您的脚本!"
  End If
 
  Set qtapp = Nothing
 Else
  MsgBox "请在Add-in-Manager界面中添加所需插件!"& vbCrLf&_
  "方法:"& vbCrLf&_
  "1.启动qtp,进入Add-in-Manager界面,勾选所需插件"& vbCrLf&_
  "2.点击<OK>按钮,进入QTP界面,然后关闭QTP即可."
 End If
Else
 MsgBox "请关闭qtp后,重新执行本vbs程序"
End If


TAG: QTP qtp 脚本 自动保存

 

评分:0

我来说两句

Open Toolbar