以文本方式查看主题

-  Foxtable(狐表)  (http://www.foxtable.com/bbs/index.asp)
--  专家坐堂  (http://www.foxtable.com/bbs/list.asp?boardid=2)
----  qqserver服务端  (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=93834)
--  作者：lk15502
--  发布时间：2016/12/8 10:44:00
--  qqserver服务端
原来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
--  作者：lk15502
--  发布时间：2016/12/8 10:49:00
--  
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
--  作者：有点蓝
--  发布时间：2016/12/8 11:09:00
--  
服务器的ip不要填，或者改为0.0.0.0试试
--  作者：有点色
--  发布时间：2016/12/8 11:10:00
--  

1、你服务器上运行 serverqq 了吗？

 

2、服务器的端口 52177，你开放了吗？或者你直接把防火墙关一下

 

3、连不上提示什么错误？
--  作者：lk15502
--  发布时间：2016/12/8 11:28:00
--  
1.服务器确定运行qqserver!
2.端口52177，已结在防火墙开发了！
3.服务器ip改成：0.0.0.0，登录成功了，请问老师这是为什么？，原来填：192.168.0.25或127.0.0.1，都没有办法登录