以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  [求助]内置身份验证OPENQQ显示未知错误  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=76944)
--  作者：nuhou
--  发布时间：2015/11/8 16:10:00
--  [求助]内置身份验证OPENQQ显示未知错误

都是用的帮助的代码

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

 

以下内容为程序代码:

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
--  发布时间：2015/11/8 16:11:00
--  
用户管理都改成外部数据源的了
--  作者：大红袍
--  发布时间：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
--  发布时间：2015/11/9 14:21:00
--  
并没有用啊，炮哥
--  作者：大红袍
--  发布时间：2015/11/9 14:23:00
--  
什么没用啊，用户名和密码不对就是不能登陆啊。
--  作者：nuhou
--  发布时间：2015/11/9 14:29:00
--  

是写A.B，还是让我把里面写成这个格式的用户名
--  作者：大红袍
--  发布时间：2015/11/9 14:33:00
--  
以下是引用nuhou在2015/11/9 14:29:00的发言：

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

 

用户名赋值为如 部门名称.用户名
--  作者：nuhou
--  发布时间：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

 

是这个意思吗，怎么还是未知错误
--  作者：大红袍
--  发布时间：2015/11/9 16:15:00
--  

Dim us As String =  ug & "." & un
--  作者：nuhou
--  发布时间：2015/11/9 16:36:00
--  
图片点击可在新窗口打开查看还是未知错误