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
脚本
自动保存