不弹出登录界面来登录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" & " " & "01.01" & " " & "888888" '各参数以空格符隔开
'第二种登录方式:以命名用户身份无界面登录 -LoginUser
'比如:要登录帐套的代码为01.01 机构组织密码为888888 用户名为Administrator,密码为123456,则命名参数如下:
sParm = "-LoginUser" & " " & "01.01" & " " & "888888" & " " & "Administrator" & " " & "123456" '各参数以空格符隔开
'将无界面登录命令参数分隔符号(空格)信息写到注册,以便Shell KDMain时读取分割命令参数
Call KFO.SetKeyValue("HKEY_CURRENT_USER\SoftWare\KingDee\K3", "LoginParm", " ")
Call Shell(sK3Path & "KDMain.exe " & sParm, vbNormalFocus) '打开K3主控台
'还原注册表信息
Call KFO.SetKeyValue("HKEY_CURRENT_USER\SoftWare\KingDee\K3", "LoginParm", sBakSplit)
Set KFO = Nothing
End Sub
不弹出登录界面来登录K3主控台
本文2024-09-22 13:30:41发表“k3wise知识”栏目。
本文链接:https://wenku.my7c.com/article/kingdee-k3wise-69075.html