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

'三种调用方法
方法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)