51Testing软件测试论坛

标题: 如何通过脚本将文件加入File>Settings>Resources中 [打印本页]

作者: jimmyzhou 时间: 2009-5-22 15:54
标题: 如何通过脚本将文件加入File>Settings>Resources中
如何通过脚本将文件加入File>Settings>Resources中
脚本中用到一些数据是保存在这个文件中的，有什么办法可以获取到呢

作者: manhong 时间: 2009-5-22 17:38
已经加入了，qtp就直接可以用吧。
txt和vbs应该是一样的

作者: intothestorm 时间: 2009-5-22 18:12
标题: FYI
Dim App 'As Application
Set App = CreateObject("QuickTest.Application")
App.Launch
App.Visible = True
App.Test.Settings.Run.ObjectSyncTimeOut = 20000
App.Test.Settings.Run.OnError = "Stop"
App.Test.Settings.Resources.Libraries.RemoveAll
App.Test.Settings.Resources.Libraries.Add("lib\1.vbs")
App.Test.Settings.Resources.Libraries.Add("lib\2.vbs")
App.Test.Settings.Resources.Libraries.Add("lib\3.vbs")
App.Test.Settings.Resources.Libraries.Add("lib\4.vbs")
App.Test.Settings.Resources.Libraries.Add("lib\5.vbs")
App.Test.Settings.Resources.Libraries.SetAsDefault
App.Test.Environment.LoadFromFile("Test-Parameters\QTP_Params.xml")

作者: blizzardlyk 时间: 2009-5-25 15:19
直接用调用文件的方法
execultfile ("d:\test.txt")
或者用VBS自身的方法创建文件对象去读取文件内容,但是这个方法有点小题大作了

作者: ziheng198688 时间: 2009-6-8 09:48

原帖由 intothestorm 于 2009-5-22 18:12 发表
Dim App 'As Application
Set App = CreateObject("QuickTest.Application")
App.Launch
App.Visible = True
App.Test.Settings.Run.ObjectSyncTimeOut = 20000
App.Test.Settings.Run.OnError = "Stop"
App.T ...

学习了呵呵

欢迎光临 51Testing软件测试论坛 (http://bbs.51testing.com/)