通过vbs启动QTP然后在QTP中调用外部vbs时遇到的问题

here556

我在桌面有两个vbs文件，hello.vbs和run.vbs,代码如下：
hello.vbs:

Sub hello
  msgbox "hello"
End Sub

run.vbs：

  Dim qtApp
  Set qtApp = createObject("QuickTest.Application")
  qtApp.Launch
  qtApp.Visible = True
  
  'Set Run Options
  qtApp.Options.Run.RunMode = "Fast"
  qtApp.Options.Run.ViewResults = False

  qtApp.Test.Settings.Resources.Libraries.RemoveAll
  qtApp.Test.Settings.Resources.Libraries.Add "C:\Documents and Settings\liuf\桌面\hello.vbs"

  qtApp.Test.SetAssociatedAddins(Array("Web","Visual Basic","ActiveX"))
  qtApp.Test.Actions("Action1").SetScript "hello"
  qtApp.Test.Run

我想通过run.vbs启动QTP再调用hello.vbs,最后打出hello，但是我运行的时候报错如截图：

是不是我的版本太低不支持SetScript方法，还是其他什么原因，我的版本是9.2.如果不支持，那么在较低的版本怎样实现这样的功能呢？

wugecat

帮助里没看有SetScript 这个方法啊，你在哪里看到的？

nimcok

晕，你Help文档中看看不就知道了，QTP10才支持SetScript的方法，QTP9.2都不支持此方法
所以你要执行这段代码需要QTP10支持
为什么非得要这样实现，你先建一个QTP_Test，里面执行Hello,然后通过Run.vbs执行这个QTP_test不就可以了
回复 1# here556

hsjzfling

回复 1# here556

LZ的报错和代码不符合啊,前面的qtApp.呢?另外,QTP中不能使用中文路径,切记.代码review倒是能通过,就代码来看完全没有问题

nimcok

谁说不能用中文路径的，和路径没关系的，QTP版本的支持问题，换QTP10就没问题了，QTP9.2不支持SetScript方法

回复  here556

LZ的报错和代码不符合啊,前面的qtApp.呢?另外,QTP中不能使用中文路径,切记.代码review倒 ...
hsjzfling 发表于 2011-1-10 18:03

here556

多谢各位了，回去下个QTP10去！