应用程序生命周期管理

Question

我们使用OTA连接库连接ALM，但是我们公司为每位将要访问ALM的外部员工使用Symantic VIP访问权限添加了“ 2FA”两因素身份验证作为安全性，因此，我现在需要在以下内容中添加此2FA身份验证以前的代码可以像以前一样正常工作。

Private Function TDConnect_ServerConnect(ByVal strServer As String)

    On Error GoTo ErrCatch

    If (g_objTDC Is Nothing) Then Set g_objTDC = New TDConnection

    If (g_objTDC Is Nothing) Then
        TDConnect_ServerConnect = TDCONNECT_STATUS_FAIL
    Else
        g_objTDC.InitConnectionEx strServer
        TDConnect_ServerConnect = TDCONNECT_STATUS_PASS
    End If

Exit Function

ErrCatch:
    TDConnect_Log Err.description, LOG_ERROR
    TDConnect_ServerConnect = TDCONNECT_STATUS_FAIL

End Function