测试程序(VB)片段:
1.初始化:
Option Explicit
Private oRegHelper As CCRegistrySet oRegHelper = CreateObject("SAP.CCRegistry.1")
Set rsDestinations = oRegHelper.GetDestinationsSet rsOptions = oRegHelper.GetOptionsAsRecord(rsDestinations.Fields(0))
tbUserID = rsOptions.Fields("User")
tbClient = rsOptions.Fields("Client")
tbPassword = ""
tbLanguage = rsOptions.Fields("Lang")2。登陆:
Option Explicit
Public oSession As ObjectSet oSession = CreateObject("SAP.CCSession.1")oSession.PutSessionInfo sDestination, sUser, sPassword, sLanguage, sClient
If oSession.Logon(sError) Then
MsgBox ("Logon succ.")
Else
MsgBox ("Logon failed: " + sError)
End If
1.初始化:
Option Explicit
Private oRegHelper As CCRegistrySet oRegHelper = CreateObject("SAP.CCRegistry.1")
Set rsDestinations = oRegHelper.GetDestinationsSet rsOptions = oRegHelper.GetOptionsAsRecord(rsDestinations.Fields(0))
tbUserID = rsOptions.Fields("User")
tbClient = rsOptions.Fields("Client")
tbPassword = ""
tbLanguage = rsOptions.Fields("Lang")2。登陆:
Option Explicit
Public oSession As ObjectSet oSession = CreateObject("SAP.CCSession.1")oSession.PutSessionInfo sDestination, sUser, sPassword, sLanguage, sClient
If oSession.Logon(sError) Then
MsgBox ("Logon succ.")
Else
MsgBox ("Logon failed: " + sError)
End If
解决方案 »
免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货