UFT基础_调用外部函数多种方法以及动态库

来源:互联网 发布:快速赚钱 知乎 编辑:程序博客网 时间:2024/05/18 00:20
'三种调用方法方法1:'ExecuteFile "D:\UserData\My Documents\Unified Functional Testing\sum.vbs"'Call sum(2,3)方法2:'LoadFunctionLibrary "D:\UserData\My Documents\Unified Functional Testing\sum.vbs"'sum 2,3方法3:'这种形式用的多'ExecuteFile "D:\UserData\My Documents\Unified Functional Testing\Library1.qfl"'sum 2,3'#############顺序执行#################################################################'flyfrom_a = Array("Denver","Frankfurt","London","Los Angeles","Paris","Portland","San Francisco","Seattle","Sydney","Zurich")'Set flyfrom_i= Window("Flight Reservation").WinComboBox("Fly From:")'''For i = 0 To flyfrom_i.GetItemsCount-1'    If flyfrom_i.GetItem (i)=flyfrom_a(i) Then'    print i&" is right"'else'    print i&" is wrong"'End If''Next'###################################################################################'###############重构函数,外部调用函数################################################'Sub flyfrom (flyfrom_i,flyfrom_a)'   For i = 0 To flyfrom_i.GetItemsCount-1'       If flyfrom_i.GetItem (i)=flyfrom_a(i) Then'           print i&" is right"'       else'       print i&" is wrong"'       End If'Next'End Sub'比对数组'flyfrom_a = Array("Denver","Frankfurt","London","Los Angeles","Paris","Portland","San Francisco","Seattle","Sydney","Zurich")''Set flyfrom_i= Window("Flight Reservation").WinComboBox("Fly From:")'加载外部函数'ExecuteFile "D:\UserData\My Documents\Unified Functional Testing\flyfrom.vbs"''调用函数'Call flyfrom(flyfrom_i,flyfrom_a)#######################################################################################'调用动态库Set a=DotNetFactory.CreateInstance("ClassLibrary2.Class1","D:\UserData\My Documents\Unified Functional Testing\ClassLibrary2.dll")msgbox a.sum(2,3)
原创粉丝点击