服务器段设置如下

QQServer.ServerIp = "192.168.1.69" \'指定IP地址
QQServer.ServerPort = 50493 \'指定端口
QQServer.HeartbeatInterval = 30 \'指定心跳时间
QQServer.HeartbeatTimeout = 100 \'指定心跳超时时间
QQServer.Start() \'启动QQServer

客户端设置如下

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

QQClient.ServerPort = 50493  \'指定服务器端口

QQClient.UserName = "售后部.XXX"

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

结果会出现   服务器长时间没响应的 错误提示   

1、先排除是不是你代码的问题。用foxtable的例子 QQServer、QQClient测试，看是否正常。

2、如果1正常，看看你服务器登陆事件，肯定有问题。如果1也不正常，就是你电脑设置有问题，要保证能 ping通192.168.1.68，同时关闭防火墙。

这个我也试过了    在自己电脑上用   客户端 访问  服务端 也会出错   但是用  127.0.0.1  52177  这组 自己访问就没问题  但是别的电脑访问还是报错

也就是服务器端的UserLogging事件

http://www.foxtable.com/help/topics/2969.htm

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

这个是复制的帮助文件里的代码 写的 不知道是不是这样设置