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

以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  [求助]openqq  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=135581)

--  作者：2474842866
--  发布时间：2019/5/29 16:46:00
--  [求助]openqq
我在网络监视器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客户端，错误信息，未按规定时间响应

--  作者：有点甜
--  发布时间：2019/5/29 17:06:00
--

请把服务器端打开，再启动客户端

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

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

--  作者：2474842866
--  发布时间：2019/5/29 17:19:00
--
添加了代码：
QQServer.ServerIP = "127.0.0.1" \' 服务器ip地址
QQServer.ServerPort = "52177" \' 服务器端口
QQServer.Buildin = True \' 启用内置身份认证
QQServer.Start() \' 启动qqsever
提示规定时间未获得服务器响应

--  作者：有点甜
--  发布时间：2019/5/29 17:41:00
--

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

--  作者：2474842866
--  发布时间：2019/5/29 18:09:00
--

老师，我改了代码，按照应用宝典上的代码，就没有建用户表了，但是还不能登录：
---------------------------------------------------------------------------------------------------------------------创建服务器
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
End If
Next
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
---------------------------------------------------------------------------------------------------------------
但是依然错误，不知道错在哪里了，有缺失的步骤吗，还是代码错了

--  作者：有点甜
--  发布时间：2019/5/29 18:11:00
--

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

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

--  作者：2474842866
--  发布时间：2019/5/30 11:03:00
--
启动qqsever正常启动，在客户端项目中登陆却提示失败

--  作者：有点甜
--  发布时间：2019/5/30 11:06:00
--

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

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

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

--  作者：2474842866
--  发布时间：2019/5/30 11:06:00
--

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

客户端是正常的：

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

--  作者：有点甜
--  发布时间：2019/5/30 11:09:00
--

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

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