[求助]openqq - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

我在网络监视器userlogging事件设置了代码：

Dim pts() As String = e.UserName.Split(".")
Dim dr As DataRow
dr = DataTables("用户").Find("部门 = '" & pts(0) & "' And 姓名 = '" & pts(1) & "'")
If dr Is Nothing Then '判断此用户不存在
    e.Message = "用户名错误!" '返回给登录者的提示信息
    Return
End If
If dr("密码") <> e.Password Then '如果密码错误
    e.Message = "登录密码错误!" '返回给登录者的提示信息
    Return
End If
e.Success = True '允许用户登录
'添加存储在好友列的非本部门的好友
If dr.IsNull("好友") = False Then
    Dim nms() As String = dr("好友").Split(",")
    e.Buddies.AddRange(nms)
End If
'最后添加相同部门的同事为好友
For Each dr In DataTables("用户").Select("部门 = '" & pts(0) & "'")
    Dim nm As String = dr("部门") & "." & dr("姓名")
    If nm <> e.UserName Then '如果不是登录者本人
        e.Buddies.Add(nm)
    End If
Next

--------------------------------------------------------------------------------------------------------------------------------------------------------

然后执行代码：

QQClient.ServerIP = "127.0.0.1" '指定服务器IP地址

QQClient.ServerPort = 52177 '指定服务器登录端口

QQClient.UserName = "生产部.李桂兰"

QQClient.Password = "888"

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

---------------------------------------------------------------------------------------------------------------------------------------------------------------------------------

然而无法启动openqq客户端，错误信息，未按规定时间响应

添加了代码：

QQServer.ServerIP = "127.0.0.1" ' 服务器ip地址

QQServer.ServerPort = "52177" ' 服务器端口

QQServer.Buildin = True ' 启用内置身份认证

QQServer.Start() ' 启动qqsever

提示规定时间未获得服务器响应

打开QQServer这个项目，启动你的服务器端。

老师，我改了代码，按照应用宝典上的代码，就没有建用户表了，但是还不能登录：

---------------------------------------------------------------------------------------------------------------------创建服务器

QQServer.ServerIP = "127.0.0.1" ' 服务器ip地址

QQServer.ServerPort = "52177" ' 服务器端口

QQServer.Buildin = True ' 启用内置身份认证

QQServer.Start() ' 启动qqsever

---------------------------------------------------------------------------------------------------------------------设置userlogging

If e.user IsNot Nothing Then

e.Success = True

For Each u As UserInfo In Users

If u.name <> e.User.Name Then

If u.Group > " " Then

e.Buddies.Add(u.Group & "." & u.Name)

Else

e.Buddies.Add(u.Name)

End If

Else

e.Message = "用户名或密码错误"

End If

-----------------------------------------------------------------------------------------------------------客户端登录

QQClient.ServerIP = "127.0.0.1" '指定服务器IP地址

QQClient.ServerPort = "52177" '指定服务器登录端口

QQClient.UserName = ""

QQClient.Password = ""

If QQClient.Start() = True '如果登录成功

PopMessage("登陆成功","提示",PopiconEnum.Infomation,5)

Else '如果登录失败,显示服务器返回错误信息

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

End If

---------------------------------------------------------------------------------------------------------------

但是依然错误，不知道错在哪里了，有缺失的步骤吗，还是代码错了

1、启动QQServer这个项目，是否正常？是否报错啊？

2、你要启动两个项目测试啊。一个服务器端，一个客户端啊。

启动qqsever正常启动，在客户端项目中登陆却提示失败

以下是引用2474842866在2019/5/30 11:03:00的发言：
启动qqsever正常启动，在客户端项目中登陆却提示失败

请使用foxtable自带的实例【QQServer】【QQClient】两个项目测试

http://www.foxtable.com/webhelp/scr/2236.htm

此主题相关图片如下：360截图20190530101743699.jpg

客户端是正常的：

此主题相关图片如下：360截图20190530110548117.jpg

请使用foxtable自带的实例【QQServer】【QQClient】两个项目测试

http://www.foxtable.com/webhelp/scr/2236.htm

主题：[求助]openqq