[转载]QTP六脉神剑之调用Java程序

QTP六脉神剑之调用Java程序

不少网友对于QTP调用Java程序感到束手无策，实际上要调用Java程序是非常容易的。接下来songfun老师传授给大家武林绝技之六脉神剑。在演示这个例子前，请大家先造一个java程序（我以java计算器为例，源码见下），以方便观察调用结果。

第一式：少商剑。特点：剑路雄劲，石破天惊。

打开QTP，在QTP的Expert View中输入：InvokeApplication "cmd /k cd c:\ && java Counter && exit"
运行QTP，看看，打开了吗？

第二式：商阳剑。特点：巧妙灵活，难以捉摸。

在C盘上新建一个bat文件，取名为runjava.bat，在文件里面输入一段文本：cmd /k "cd c:\ && java Counter && exit"，然后保存下来。
打开QTP，在QTP的Expert View中输入：SystemUtil.Run "C:\runjava.bat"
运行QTP，看看，打开了吗？

第三式：中冲剑。特点：大开大阖，气势雄迈。

打开QTP，在QTP的Expert View中输入：
Dim oWsh
Set Wsh = CreateObject("WScript.Shell")
oWsh.Exec "cmd /k cd c:\ && java Counter && exit"
Set Wsh = Nothing
运行QTP，看看，打开了吗？

第四式：关冲剑。特点：以拙滞古朴取胜。

在C盘上新建一个qfl文件，取名为runjava.qfl，在文件里面输入一段文本：
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，在QTP的Expert View中输入：ExecuteFile "C:\runjava.qfl"
运行QTP，看看，打开了吗？

第五式：少冲剑。特点：轻灵婀娜，迅雷不及掩耳。

安装QTP的Java Add-in，之后在Automation—Record and Run Settings中出现了Java标签页。根据下图的内容设置即可（runjava.bat文件内容参照六脉神剑第二式）。

javarecord.PNG(13.86 KB)

2009-6-30 00:44

第六式：少泽剑。特点：忽来忽去，变化精微。

采用直接调用jar包的形式。要生成jar包，首先要确保在C盘下已经放置了Counter.java源文件，然后通过命令行工具去编译它：
cd \
javac Counter.java
jar cvf Counter.jar *.class
执行完命令看看在C盘是否已经生成了Counter.jar文件？
接下来解压Counter.jar文件，在C:\Counter\META-INF目录下可以找到MANIFEST.MF这个文件，用Notepad打开，在第三行空行处加入入口类的代码（蓝色字体部分）：
Manifest-Version: 1.0
Created-By:1.6.0_07 (Sun Microsystems Inc.)
Main-Class: Counter
保存完以后，回到命令行窗口处，输入命令更新jar包：
jar umf C:\Counter\META-INF\MANIFEST.MF Counter.jar
写完测试一下：java -jar Counter.jar
如果计算器可以打开说明前期铺垫工作已经完成，那接下来的就是在QTP的Expert View中输入：SystemUtil.Run "C:\Counter.jar"
运行QTP，看看，打开了吗？