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

原来qqserver的服务端是放在笔记本上的sql;可以正常连接，把qqserver放到公司的局域网服务器上客户端就连接不上了；用的是自定义用户登录；以下是qqclient登录按钮的代码：

If QQClient.Ready Then

MessageBox.show("QQClient已经启动,请先关闭","提示",MessageBoxButtons.OK,MessageBoxIcon.Information)

Return

End If

Dim dr1 As DataRow = DataTables("用户表").sqlfind("name = '" & _username & "'")

msgbox(0)

QQClient.ServerIP = "192.168.0.68"

QQClient.ServerPort = 52177

QQClient.UserName = dr1("group") & "." & _UserName

QQClient.Password = dr1("password")

msgbox(dr1("group") & "." & _UserName)

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

msgbox(1)

e.Form.Controls("btnChat").Enabled = True

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

If QQClient.ServerMessage > "" Then '如果服务器返回了欢迎信息

msg = msg & QQClient.ServerMessage

End If

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

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

e.Form.Controls("btnChat").Enabled = False

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

End If

e.Form.Close

openqq的服务端userlogging的代码：

Dim pts() As String = e.UserName.Split(".")

Dim dr As DataRow

dr = DataTables("用户表").Find("group = '" & pts(0) & "' And name = '" & pts(1) & "'")

If dr Is Nothing Then '判断此用户不存在

e.Message = "用户名错误!" '返回给登录者的提示信息

Return

End If

If dr("password") <> 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

1.服务器确定运行qqserver!

2.端口52177，已结在防火墙开发了！

3.服务器ip改成：0.0.0.0，登录成功了，请问老师这是为什么？，原来填：192.168.0.25或127.0.0.1，都没有办法登录

主题：qqserver服务端