如何将VBA与Rumba 3270仿真器连接

Question

我已经认识到要连接到Rumba 3270大型机，我需要将

"Ehlapi32.DLL“

然而，当我在谷歌上搜索时，我发现了一大堆我不确定如何使用的函数。我有以下代码要连接，但它返回连接错误。

Sub fConnect()
    nRT = 0
    Call hllapi(1, ByVal "A", 0, nRT)

    If nRT <> 0 Then 'if not made connection display a Error
            MsgBox "Connection Error. Try again"
    Else
            strConectado = True
    End If
End Sub

下面是hllapi函数

Declare Function hllapi Lib "C:\Program Files\NetManage\System\Ehlapi32.DLL" (Func As Integer, ByVal lpszData As String, Length As Integer, Value As Integer) As Integer
Declare Function OSGetPrivateProfileString% Lib "kernel32" Alias "GetPrivateProfileStringA" (ByVal AppName$, ByVal KeyName$, ByVal keydefault$, ByVal ReturnString$, ByVal NumBytes As Integer, ByVal FileName$)
' HLLAPI FUNCTION DECLARATIONS

Public nRT
Public strConectado As Boolean

Public Enum ImpulseKeyEnum
    ike_enter = 0
    ike_f1 = 1
    ike_F2 = 2
    IKE_F3 = 3
    ike_F4 = 4
    ike_F5 = 5
    ike_F6 = 6
    ike_F7 = 7
    ike_F8 = 8
    ike_F9 = 9
    ike_F10 = 10
    ike_F11 = 11
    ike_F12 = 12
    ike_F13 = 13
    ike_BackTab = 93
    ike_Left = 94
    ike_right = 95
    ike_UP = 96
    ike_Down = 97
    ike_Tab = 98
    ike_clearfield = 99
    ike_Attention = 100
End Enum

Public Enum PositionSearch
    ika_right = 1
    ika_Left = 2
End Enum

当我使用F8键打开伦巴时，它显示错误，"nRT“变量被设置为"1”而不是"0“。

Answer 1

你给你的连接的名字是"A“吗？除非它不是"A“，否则它会给出错误。

首先，将会话的短名称命名为"A“。然后再运行一次。