|
发表于 2011-10-27 23:57:53
|
显示全部楼层
Option Explicit
Public U8_Login As U8Login.clsLogin
Sub UFLogin()
Dim sysLogin As Object
Set sysLogin = CreateObject("UFSoft.U8.Framework.Login.UI.clsLogin")
'Set sysLogin = CreateObject("UFSoft.U8.Framework.Login.UI")
'sysLogin.ShowLoginForm ("DP")
If sysLogin.Login_2("DP") = False Then
MsgBox sysLogin.ErrDescript, vbCritical, "登录"
End If
Set U8_Login = New U8Login.clsLogin
U8_Login.ClearError
Dim bLogin As Boolean
bLogin = U8_Login.ConstructLogin(sysLogin.userToken) 'U8_Login.Login("DP") '
'bLogin = U8_Login.Login("ST")
If Not bLogin Then
Unload Me
End If
End Sub
以上是登录代码,环境WIN2008SP2+SQL2008SP2+U8V10和WINXPSP3+SQL2000SP4+U8V10,两个环境下原用友都可以正常登录使用,调用却提示令牌失效,请修改服务器配置...
前提,需要引用U8Login.DLL |
|