[求助]内置身份验证OPENQQ显示未知错误 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → [求助]内置身份验证OPENQQ显示未知错误

共有2723人关注过本帖树形打印复制链接主题：[求助]内置身份验证OPENQQ显示未知错误

nuhou

小大 1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：幼狐帖子：154 积分：1653 威望：0 精华：0 注册：2015/7/1 15:27:00

[求助]内置身份验证OPENQQ显示未知错误 发帖心情

Post By：2015/11/8 16:10:00 [只看该作者]

都是用的帮助的代码

服务器端用一个按钮执行：

以下内容为程序代码:

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

客户端用一个按钮执行：

以下内容为程序代码:

1 QQClient.ServerIP = "127.0.0.1"
2 QQClient.ServerPort = 52177
3 QQClient.UserName = ""
4 QQClient.Password = ""
5 If QQClient.Start() = True
6 Dim msg As String = "恭喜,OpenQQ登录成功!"
7 If QQClient.ServerMessage ＞ "" Then
8 msg = msg & QQClient.ServerMessage
9 End If
10 PopMessage(msg,"提示",PopiconEnum.Infomation,5)
11 Else
12 PopMessage("QQClient登录失败,原因:" & vbcrlf & QQClient.ServerMessage,"提示",PopiconEnum.Error,5)
13 End If
14

为什么客户端登录的时候POP弹窗显示未知错误

nuhou

小大 2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：幼狐帖子：154 积分：1653 威望：0 精华：0 注册：2015/7/1 15:27:00

Post By：2015/11/8 16:11:00 [只看该作者]

用户管理都改成外部数据源的了

大红袍

小大 3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：贵宾帖子：39310 积分：196782 威望：0 精华：1 注册：2015/4/25 9:23:00

Post By：2015/11/8 16:18:00 [只看该作者]

1、登陆有点问题的。登陆名是 xxx.yyy 用.区分了部门和用户名，如果用户名不是这种形式，会报错。

2、你代码可以这样写

QQClient.ServerIP = "127.0.0.1"
QQClient.ServerPort = 52177
QQClient.UserName = "A.B"
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

nuhou

小大 4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：幼狐帖子：154 积分：1653 威望：0 精华：0 注册：2015/7/1 15:27:00

Post By：2015/11/9 14:21:00 [只看该作者]

并没有用啊，炮哥

大红袍

小大 5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：贵宾帖子：39310 积分：196782 威望：0 精华：1 注册：2015/4/25 9:23:00

Post By：2015/11/9 14:23:00 [只看该作者]

什么没用啊，用户名和密码不对就是不能登陆啊。

nuhou

小大 6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：幼狐帖子：154 积分：1653 威望：0 精华：0 注册：2015/7/1 15:27:00

Post By：2015/11/9 14:29:00 [只看该作者]

是写A.B，还是让我把里面写成这个格式的用户名

大红袍

小大 7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：贵宾帖子：39310 积分：196782 威望：0 精华：1 注册：2015/4/25 9:23:00

Post By：2015/11/9 14:33:00 [只看该作者]

以下是引用nuhou在2015/11/9 14:29:00的发言：

是写A.B，还是让我把里面写成这个格式的用户名

用户名赋值为如部门名称.用户名

nuhou

小大 8楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：幼狐帖子：154 积分：1653 威望：0 精华：0 注册：2015/7/1 15:27:00

Post By：2015/11/9 16:13:00 [只看该作者]

Dim ug As String = User.Group
Dim un As String = user.Name
Dim us As String = "'" & ug & "." & un & "'"
QQClient.ServerIP = "192.168.1.250"
QQClient.ServerPort = 52177
QQClient.UserName = us
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