QTP 调用function的改写

1316016 · 发表于 2010-12-13 18:12:37

本帖最后由 1316016 于 2010-12-17 11:13 编辑

一般情况下，如果某function不存在，QTP则会直接报错并终止操作。

QTP是否有开接口，重写此操作呢？如果function不存在，则将function所在的vbs自动加载，然后再次判断是否存在？ function名和vbs名字和路径的关联，是已经准备好的..

1316016 · 发表于 2010-12-14 10:32:44

？？

1316016 · 发表于 2010-12-16 18:08:04

这个..没有吗？

1316016 · 发表于 2010-12-17 11:13:40

这个没有人遇到吗

lantianwei · 发表于 2010-12-17 15:00:26

override QTP肯定是不支持的可以考虑用出错处理来实现即当出错时就进行加在VBS文件只是思路 QTP好久不用可行性不知

1316016 · 发表于 2010-12-21 14:36:11

出错处理? 可以捕获到这个异常吗？然后想recovery一样做吗？

1316016 · 发表于 2010-12-30 13:57:58

hsjzfling · 发表于 2010-12-31 10:44:21

lz的想法很有趣啊,就算是能改写,那也要加载该改写的代码吧,function你都懒得去加载,何况是还要额外加载个重写的代码

lantianwei · 发表于 2010-12-31 10:47:10

正如LS所说，LZ的思路确实有点怪你为何不一次性全部加载所要的类库呢？

lyscser · 发表于 2010-12-31 23:36:36

Dim QTPQTPApplicationlication
Set QTPApplication = CreateObject("QuickTest.QTPApplicationlication")
QTPApplication.Launch
QTPApplication.Visible = True

With QTPApplication.Test.Settings
.Launchers("Web").CloseOnExit = True
.Launchers("Windows QTPApplicationlications").Active = False
.Launchers("Windows QTPApplicationlications").QTPApplicationlications.RemoveAll
.Launchers("Windows QTPApplicationlications").RecordOnQTDescendants = False
.Launchers("Windows QTPApplicationlications").RecordOnExplorerDescendants = False
.Launchers("Windows QTPApplicationlications").RecordOnSpecifiedQTPApplicationlications = False

With .Run
.IterationMode = "rngAll"
.StartIteration = 1
.EndIteration = 1
.ObjectSyncTimeOut = 30000
.DisableSmartIdentification = True
.OnError = "Stop"
End With

With .Resources
.DataTablePath = "<Default>"
.Libraries.RemoveAll
.Libraries.Add("E:\MyATProjects\System_001\Function\fileOper.vbs")
.Libraries.Add("E:\MyATProjects\System_001\Function\ErrorHandle.vbs")
.Libraries.Add("E:\MyATProjects\System_001\Function\qc_field_modify_test.vbs")
End With
End With

QTPApplication.Test.Environment.LoadFromFile "E:\MyATProjects\System_001\Environment\MyEnv.xml"

1316016 · 发表于 2011-1-6 11:03:35

正如LS所说，LZ的思路确实有点怪你为何不一次性全部加载所要的类库呢？
lantianwei 发表于 2010-12-31 10:47

我们当前的操作方式就是一次性导入所有的vbs在QTP9.2中，vbs和函数很多，升级到QTP10后，如果继续全部导入的化，QTP性能很慢，运行好久，甚至卡死....

是不是QTP 10的树形结构很耗内存？是否有其他配置修改？

wugecat · 发表于 2011-1-6 11:19:13

你这种可以实现，但是没必要判断function的存在，将方法和文件名保存然后实现动态加载想要的就行了

zzxxbb112 · 发表于 2011-1-6 16:28:13

可以利用函数指针字符化函数名并结合wugecat说的方法即可解决问题

1316016 · 发表于 2011-5-6 18:03:51

函数指针字符化函数名? 这个vbs也可以吗？有代码吗？

zzcheng0414 · 发表于 2011-12-28 16:19:24

强烈关注此贴。
我也有类似需求，希望将vbs中的函数名称和参数写到EXCEL中，在用excle做案例的时候使用做校验函数名称的有效性。

zzcheng0414 · 发表于 2011-12-28 16:19:38

强烈关注此贴。
我也有类似需求，希望将vbs中的函数名称和参数写到EXCEL中，在用excle做案例的时候使用做校验函数名称的有效性。

lifr · 发表于 2012-1-10 21:16:27

强烈关注此贴。
我也有类似需求，希望将vbs中的函数名称和参数写到EXCEL中，在用excle做案例的时候使用做校 ...
zzcheng0414 发表于 2011-12-28 16:19

你的需求用动态执行可以解决。

好像是 Execute 关键字。

		自动登录	找回密码
密码			(注-册)加入51Testing

[原创] QTP 调用function的改写

相关帖子

站长推荐 /1