这几天开始研究OpenQQ，我想客户端项目一打开就自动登录，用菜单来启动自带的聊天窗口，也就是把登录代码放在AfterOpenProject下，可以哇？

另外，用户和密码跟Project的用户密码用一张表，行不行？

1、登陆的代码写到afterOpenProject；

2、可以公用一张表。

登陆上去了，可是好慢啊。至少30S，才能打开Project，没有OpenQQ只要1秒钟

1、不写到afterOpenProject，直接用窗口，登陆是否也慢？

2、你写了什么代码？

在AfterOpenProject里有这两句：

Forms("用户登录").open
MainTable = Tables("Main")

然后“用户登录”窗口的“登录”按键的click写了：

\'判断用户名密码并登录====================
If e.Form.Controls("PassCode").Value = dr("密码") Then       \'如果密码正确
    _UserName = dr("姓名") \'把当前用户姓名赋值给全局变量
    _UserGroup = dr("部门")
    _UserRole = dr("角色")
    _UserMailBox = dr("邮箱")
    _UserPassword = dr("密码")
    \'登录OpenQQ
    QQClient.ServerIP = "127.0.0.1"  \'指定服务器IP地址
    QQClient.ServerPort = "52177"  \'指定服务器端口
    QQClient.UserName = _UserName \'指定登录用户名
    QQClient.UserName = _UserGroup & "." & _UserName \'指定登录用户名
    QQClient.Password = _UserPassword
    If QQClient.Start() = True \'如果登录成功
        Forms("背景窗口").Controls("btnChat").Enabled = True
        Dim msg As String =  "OpenQQ登录成功!"
        If QQClient.ServerMessage > "" Then \'如果服务器返回了欢迎信息
            msg = msg & QQClient.ServerMessage
        End If
        popMessage(msg,"提示",PopiconEnum.Infomation,5)
    Else \'如果登录失败,显示服务器返回错误信息
        e.Form.Controls("btnChat").Enabled = False
        PopMessage("QQClient登录失败,原因:" & vbcrlf & QQClient.ServerMessage,"提示",PopiconEnum.Error,5)
    End If
   
把登录OpenQQ这段注释掉，就会很快，我不知道问题在哪儿

 代码没问题，你看看是不是你服务器端的 UserLogging 事件有问题。

 你用foxtable自带的例子 QQServer、QQClient测试一次，看是否你电脑环境的问题。