外部VBS的调用

   

   外部VBS的调用    

2013-12-19 23:36 狂师  阅读(2171)  评论(0) 编辑 收藏    

一.QTP调用外部VBS的方法

加到QTP的Resource中

在QTP菜单中设置, 菜单FileàSettingsàResource,将要加载的VB脚本添加进来。

 

举例:

步骤1:在D盘下新建一个VBS文件,叫“ test.vbs”,脚本内容如下:

Function fun(a, b)

fun=a+b

End Function

步骤2:在QTP 里新建一个Test, 叫“Test1“,点击菜单FileàSettingsàResource,将要加载的VB脚本“ test.vbs”加进来

 

步骤3:在脚本里调用这个函数:

msgbox "1+2= “&fun(1,2)

 

运行结果:

使用QTP函数ExecuteFile

通过ExecuteFile方法将要加载的VBS脚本加载进来。

语法:ExecuteFile  “Filename”

参数说明:Filename-是要执行的文件的名称,包括文件路径。最好用绝对路径。

 

举例:

步骤1:在D盘下新建一个VBS文件,叫“ test.vbs”,脚本内容如下:

Function fun(a, b)

fun=a+b

End Function

步骤2:在QTP里加载这个VBS脚本:

executefile "D:\test.vbs"

步骤3:在脚本里调用这个函数:

msgbox "1+2= “&fun(1,2)

 

运行结果:

使用VBS函数ExecuteGlobal

ExecuteGlobal是VBS的函数而非QTP特有的函数,,ExecuteGlobal的功能可以引入其它vbs文件的函数

语法:ExecuteGlobal statement 

参数说明:statement-可以是一段函数体或一个字符串变量

 

举例:

步骤1:在D盘下新建一个VBS文件,叫“ test.vbs”,脚本内容如下:

Function fun(a, b)

fun=a+b 

End Function

步骤2:在QTP里加载这个VBS脚本:

dim fso : set fso = createobject("scripting.filesystemobject")

executeglobal fso.opentextfile("D:\test.vbs ", 1).readall

set fso = nothing

步骤3:在脚本里调用这个函数:

msgbox "1+2= “&fun(1,2)

 

运行结果:

3种方法的优缺点

方法一:加到QTP的Resource中。 优点:是QTP自带的引用外部VBS函数的方法,非常稳定,同一个测试脚本的所有action都可以调用;缺点:不够灵活,经常的情况是使用同一个测试框架对于不同的项目需要引入不同的VBS文件。

 

方法二:使用QTP函数ExecuteFile。优点:灵活性好,方便自己写语句来引入函数;缺点:只能被当前的action调用,不能垮action调用,调试时黄色指针跳动混乱。

 

方法三:使用VBS函数ExecuteGlobal。优点:1.自己写代码,非常灵活

2.外部函数由于从内存中读取,避免了I/O,执行速度加快,而且通过这个方法调用其它文件函数非常稳定;缺点:一下子把可能需要用到的VBS文件全部读入内存,势必会增加内存开销。

实践

分别以导入文件的方式和使用ExecuteFile的方式关闭所有的浏览器和记事本

导入文件的方式

步骤1:新建脚本文件,另存为scritp.vbs 

脚本如下:

Sub CloseIE()

   systemutil.CloseProcessByName("IEXPLORE.EXE")

End Sub

Sub CloseNotepad()

   systemutil.CloseProcessByName("Notepad.exe")

End Sub

File-->Settings-->Resources在“Associated function libraries”

 步骤二:导入该文件

可以使用绝对路径,也可以使用相对路径,建议使用相对路径,如下图

 

步骤三:在QTP的专家视图中输入如下语句,执行,发现QTP把所有的浏览器和记事本都关闭了。

CloseIE()

CloseNotepad()

ExecuteFile的方式

步骤一:同上

步骤二:

executefile "..\script.vbs"

CloseIE()

CloseNotepad()

总结

1 在写VBS脚本时,为了避免语法错误.可以先在QTP里编写脚本,运行通过了,再保存成外部VBS脚本。

2 新建VBS脚本时,先新建一个文本文件,再将其后缀改成.VBS,注意,要先将文件的扩展名显示出来:工具à文件夹选项à查看, 把“隐藏已知文件类型的扩展名 ”的勾去掉。

否则, 文件的类型还是.txt的, 运行脚本时会提示“找不到文件”。

  • 分类            QTP,            VBS
  •  
上一篇:vbs+bat实现批量将文件从A文件夹移动到B文件夹


下一篇:解析针对巴西用户的恶意软件及垃圾邮件行动