专家坐堂-qqserver 问题如何判断离线状态Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

下载信息 [文件大小：下载次数： ]
点击浏览该文件:qqclient 测试.foxdb

服务端 UserLogging 代码如下

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

Dim dr1,dr3 As DataRow

Dim kc As Row

dr3 = DataTables("在线状态").Find("机器码 = \'" & pts(0) & "\'")

If dr3 Is Nothing Then \'判断此机器不存在

kc = Tables("在线状态").AddNew()

kc("机器码") = pts(0)

kc("状态") = "在线"

End If

If dr3 IsNot Nothing Then

dr3("状态") = "在线"

End If

客户端 AfterOpenProject 代码如下

If QQClient.Ready = True Then

QQClient.Stop()

End If

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

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

QQClient.UserName = ComputerId \'指定登录用户名

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

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

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

msg = msg & QQClient.ServerMessage

End If

用户登录后的机器码可以和在线状态可以正常显示.

如何在判断客户端退出以后的离线状态.

现在服务端 UserLogout 写入代码如下.应该是错的,请指教. 是否可以实时扫描用户的在线情况.

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

Dim dr3 As DataRow

Dim kc As Row

dr3 = DataTables("在线状态").Find("机器码 = \'" & pts(0) & "\'")

If dr3 IsNot Nothing Then \'判断此机器存在

dr3("在线状态") = "离线"

End If