使用自动化测试工具UFT，利用VBS编程,完成飞机订票系统登陆功能自动化测试脚本编写。其中登陆测试用例通过文件的形式加载

下面是使用UFT和VBS编写的飞机订票系统登陆功能自动化测试脚本：

'引用UFT对象库
Dim qtApp
Set qtApp = CreateObject("QuickTest.Application")

'打开测试用例文件
qtApp.Open "<测试用例文件路径>", True, False

'获取测试用例数目
Dim numOfTests
numOfTests = qtApp.Test.Actions.Count

'循环执行每个测试用例
For i = 1 To numOfTests
    '获取测试用例名字
    Dim testName
    testName = qtApp.Test.Actions(i).Name
    
    '判断测试用例是否为登陆测试用例
    If InStr(testName, "登陆") > 0 Then
        '执行测试用例
        qtApp.Test.Actions(i).Call
    
        '等待登陆成功
        qtApp.Test.Actions("Browser").Sync
        
        '判断登陆是否成功
        Dim isLoggedIn
        isLoggedIn = qtApp.Test.Actions("Browser").Page("HomePage").WebElement("UserName").Exist(5)
        If isLoggedIn Then
            '登陆成功，记录日志
            qtApp.Test.LogEvent micPass, "登陆测试用例[" & testName & "]通过", "登陆成功"
        Else
            '登陆失败，记录日志
            qtApp.Test.LogEvent micFail, "登陆测试用例[" & testName & "]未通过", "登陆失败"
        End If
        
        '退出浏览器
        qtApp.Test.Actions("Browser").Close
    End If
Next

'关闭测试用例文件
qtApp.Test.Close

在上面的脚本中，我们首先引用了UFT对象库，并打开了测试用例文件。然后，我们循环执行每个测试用例，判断其是否为登陆测试用例。如果是登陆测试用例，我们就执行该测试用例，并等待登陆成功。等待成功后，我们判断是否登陆成功，并记录日志。最后，我们退出浏览器，并关闭测试用例文件。

在执行脚本之前，需要将测试用例文件的路径替换成实际的路径。此外，我们还需要将登陆测试用例的名字中包含的关键字替换成实际的关键字。例如，如果登陆测试用例的名字为“登陆-正常情况”，则需要将脚本中的“登陆”替换成实际的关键字。