openQQ直接登录问题 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

老师我把代码放在afteropenproject 里为什么登录出错啊，服务器端已经改好了，还应该怎么弄

QQClient.ServerIP = "192.168.0.3"

QQClient.ServerPort = 52177

QQClient.UserName = ""

QQClient.Password = ""

If QQClient.Start() = True

Dim msg As String = "恭喜,OpenQQ登录成功!"

If QQClient.ServerMessage > "" Then

msg = msg & QQClient.ServerMessage

End If

PopMessage(msg,"提示",PopiconEnum.Infomation,5)

Else

PopMessage("QQClient登录失败,原因:" & vbcrlf & QQClient.ServerMessage,"提示",PopiconEnum.Error,5)

End If

[此贴子已经被作者于2018/10/24 16:59:34编辑过]

我是设置成内置身份验证的，现在提示未知错误

[此贴子已经被作者于2018/10/24 17:26:57编辑过]

就是这段直接复制的啊

If e.User IsNot Nothing Then
   '通过了内置身份验证
    e.Success = True '允许用户登录
Else
   '未通过内置身份验证
End If

老师，我用自带的实例测试没问题，可是自己做的实例不可以，用的是最简单的代码，

服务器端

QQServer.ServerIp = "127.0.0.1" '指定IP地址
QQServer.ServerPort = 52177 '指定登录端口
QQServer.HeartbeatInterval = 30 '指定心跳时间
QQServer.HeartbeatTimeout = 100 '指定心跳超时时间
QQserver.Buildin = True '启用内置身份验证
QQServer.Start() '启动QQServer

userlogging 事件

If e.User IsNot Nothing Then

e.Success = True '允许用户登录

Else

'未通过内置身份验证

End If

客户端

QQClient.ServerIP = "127.0.0.1"
QQClient.ServerPort = 52177
QQClient.UserName = ""
QQClient.Password = ""
If QQClient.Start() = True
    Dim msg As String = "恭喜,OpenQQ登录成功!"
    If QQClient.ServerMessage > "" Then
        msg = msg & QQClient.ServerMessage
    End If
    PopMessage(msg,"提示",PopiconEnum.Infomation,5)
Else
   PopMessage("QQClient登录失败,原因:" & vbcrlf & QQClient.ServerMessage,"提示",PopiconEnum.Error,5)
End If

发现自带实例在beforeconnectouterdatasource 有里代码，

If e.Name = "users" Then

e.C & e.ProjectPath & "QQUsers.mdb;Persist Security Info=False"

End If

不知道是不是这段代码的原因，我的是SQL数据库应该怎么写？

[此贴子已经被作者于2018/10/24 20:43:09编辑过]

老师消息提示是2，身份验证的问题，可是我仍然不知道错在哪里，都没用开发者登录的

If e.User IsNot Nothing Then

'通过了内置身份验证

messagebox.Show(1)

e.Success = True '允许用户登录

Else

'未通过内置身份验证

messagebox.Show(2)

End If

[此贴子已经被作者于2018/10/25 9:19:14编辑过]

服务器端的数据源都引用了

老师我把案例客户端和服务器端的数据源改成自己的可以登录，进一步用自己的项目登录案例的服务器不行提示错误，但是用案例的客户端登录以后再在自己的项目中同一用户登录就没问题了，应该是哪块的问题

已经可以了，还有个问题，就是QQ对话窗口的左侧那个未分组的怎么去掉？

[此贴子已经被作者于2018/10/25 18:35:45编辑过]

主题：openQQ直接登录问题