vba - 在 VB 中获取 Rumba+ 实例时出错 --AUTOMATION ERROR INVALID SYNTAX

Question

Microfocus 将此作为连接到现有 Rumba（大型机模拟器）实例的示例，但在我尝试获取该对象时它失败了。

Sub UseExistingRumbaSession()

    Dim App As RumbaApplicationObject
    Dim Emul As RumbaEmulationSessionObject

    RumbaDescriptors = RunningRumbaObjectDescriptors

    If Len(Join(RumbaDescriptors)) > 0 Then
        Set App = GetObject(RumbaDescriptors(LBound(RumbaDescriptors)))         
        Set Emul = App.GetSession(App.ActiveSessionID)
    End If


End Sub

我在这一行得到错误GetObject(RumbaDescriptors(LBound(RumbaDescriptors)))

--RUN-TIME ERROR -2147221020 (800401e4) AUTOMATION ERROR INVALID SYNTAX 我也尝试这样做，因为这是它返回的字符串：

GetObject("objref:TUVPVwEAAAAAAAAAAAAAAMAAAAAAAABGgQIAAAAAAAByLuk3Pl6UH86EhdmPD2aaAyAAAPA6//+efWIggTnfNjkAIAAHAFUAUwBNAEkAVwBMAEEAUAAwADUAMAA2ADcANwAAAAcAMQA3ADIALgAyADAALgAyADcALgAyADEAMQAAAAAACQD//wAAHgD//wAAEAD//wAACgD//wAAFgD//wAAHwD//wAADgD//wAAUgD//wAAAAA=:")

谁能帮我？