用友登录控件Vbs脚本

'   郁闷啊.用C# 用 U8Login调 控件 始终Ui线程刷新不足.  总是 象没装显卡的电脑 总是不能刷新界面.
'   没想到 Vbs宿主脚本调用 都没有什么问题.调用参照控件也是一样..郁闷啊

'  code by 张朋 
'  Email: Z@nczp.tk
'  2011-8-22

Dim g_oLogin
Dim Result
Set g_oLogin= CreateObject("U8Login.clsLogin") '创建控件!
g_oLogin.ClearError  '清除错误!
Result = g_oLogin.Login("DP") '登录模块 用DP就可得到一个正式版的模块权限。其它参数均可默认。成功返回True；失败返回False。
If Not Result Then  
    If g_oLogin.ShareString = "" Then
        MsgBox g_oLogin.LogState & "错误号： " & g_oLogin.LogState, vbCritical, "控制台"
    Else
        MsgBox g_oLogin.ShareString & "错误号： " & g_oLogin.LogState, vbCritical, "控制台"
    End If
    g_oLogin.ClearError  '清除错误!
End If
MsgBox g_oLogin.UfDbName '消息框弹出得到的数据库连接字符串