主题：[求助]OpenQQ

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

 

 

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

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

 

我放在登录窗口的登录按钮，为什么变得很慢呢？

退出也变慢了，怎么这样啊？一直在保存

在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这段注释掉，就会很快，我不知道问题在哪儿