不弹出登录界面来登录K3主控台

Private Sub cmdTest_Click()

    Dim obj As Object

    Dim KFO As Object

    Dim sK3Path As String

    Dim sParm As String

    Dim sBakSplit As String

    Set KFO = CreateObject("KFO.Reg")

    '获取K3ERP路径

    sK3Path = KFO.GetKeyValue("HKEY_LOCAL_MACHINE\SOFTWARE\KINGDEE\KDPRODUCT", "Path", "")

    '从注册表获主控台登录取命令参数分隔符，备份起来以便恢复

    sBakSplit = KFO.GetKeyValue("HKEY_CURRENT_USER\SoftWare\KingDee\K3", "LoginParm", "")

    '1   sLoginType  String  登录方式：-LoginWin 域用户身份登录-LoginUser 命名用户身份登录

    '2   sAcctNumber String  账套代码 例如帐套代码为：01.01

    '3   sOrgPass    String  组织机构密码,例如组织机构01的代码为：888888，无组织机构时传入空即可

    '4   sUserName   String  用户名,如果以域用户身份登录时传入空

    '5   sUserPass   String  用户密码,如果以域用户身份登录时传入空

    '命令参数规则 sLoginType + " "  + sAcctNumber + " " + sOrgPass + " "  + sUserName + " " + sUserPass

    '根据客户应用场景，选择以下任意一种登录方式

    '第一种登录方式：以当前WINDOWS域用户身份无界面登录 -LoginWin

    '比如：要登录帐套的代码为01.01 机构组织密码为888888，则命令参数应如下

    sParm = "-LoginWin"