QTP 调用vbs

上一篇 / 下一篇 2010-04-21 21:15:34 / 个人分类：QTP

当有些功能需要重复性的使用，就可以做成一个function，放在vbs文件，然后引入到qtp中。

比如如果需要发消息到queue，就可以用java先实现这个功能，然后在vbs里头调用java。

CallJava "Counter"
Sub CallJava(ByVal strJavaName)

Dim oWsh

Set Wsh = CreateObject("WScript.Shell")

oWsh.Run "cmd /k cd c:\ && java " & strJavaName & " && exit"

Set Wsh = Nothing

End Sub

qtp调用vbs也有很多种方法，常用的有2种：

1.如果vbs文件自成一体，可以完成一个完整的功能，不需要输出，就可以这样：

ExecuteFile "C:\replacefile.vbs"

2.如果vbs里头是一个个独立的function，可以在qtp的running选项中加入这个vbs文件，选择相对路径。这样在qtp就可以直接用了

writetofile(para1,para2)

TAG: