116 lines
3.2 KiB
VB.net
116 lines
3.2 KiB
VB.net
Imports System.Text
|
||
|
||
Public Class ServiceGroupManager
|
||
''' <summary>历史通讯数据服务集合</summary>
|
||
Private _groupService As Dictionary(Of Integer, OtherService)
|
||
|
||
Sub New()
|
||
_groupService = New Dictionary(Of Integer, OtherService)
|
||
End Sub
|
||
|
||
''' <summary>
|
||
''' 添加网上邻居，已存在则更新存活时间与状态
|
||
''' </summary>
|
||
''' <param name="other"></param>
|
||
Public Sub Add(other As OtherService)
|
||
If _groupService.ContainsKey(other.ServiceIndex) Then
|
||
_groupService(other.ServiceIndex).LastTime = Now
|
||
_groupService(other.ServiceIndex).IsAlive = True
|
||
Else
|
||
_groupService.Add(other.ServiceIndex, other)
|
||
End If
|
||
End Sub
|
||
|
||
''' <summary>
|
||
''' 校验其他服务的当前发送包索引是否与上一包索引重复，相同返回True，不相同返回False
|
||
''' </summary>
|
||
''' <returns></returns>
|
||
Public Function CheckServiceSendIndex(serviceId As Integer, sendId As Integer) As Boolean
|
||
If _groupService.ContainsKey(serviceId) Then
|
||
If _groupService(serviceId).LastPacketIndex = sendId Then
|
||
Return True
|
||
Else
|
||
Return False
|
||
End If
|
||
Else
|
||
Return False
|
||
End If
|
||
End Function
|
||
|
||
|
||
''' <summary>
|
||
''' 校验服务是否存活
|
||
''' </summary>
|
||
Public Sub CheckAliveService()
|
||
For Each other As KeyValuePair(Of Integer, OtherService) In _groupService
|
||
If (Now - other.Value.LastTime).TotalSeconds > 30 Then
|
||
other.Value.IsAlive = False
|
||
End If
|
||
Next
|
||
End Sub
|
||
|
||
|
||
''' <summary>
|
||
''' 获取存活状态的所有网上邻居的索引字符串，以逗号分割
|
||
''' </summary>
|
||
''' <returns></returns>
|
||
Public Function GetAliveServiceIndexString() As String
|
||
'排序后输出
|
||
Dim sb As New StringBuilder
|
||
Dim bt() As Integer = _groupService.Keys.ToArray()
|
||
Array.Sort(bt)
|
||
For i As Integer = 0 To bt.Length - 1
|
||
If _groupService(bt(i)).IsAlive = False Then Continue For
|
||
If sb.Length = 0 Then
|
||
sb.Append(bt(i))
|
||
Else
|
||
sb.Append("," & bt(i))
|
||
End If
|
||
Next
|
||
|
||
Return sb.ToString
|
||
|
||
|
||
'原来的顺序输出
|
||
'For Each other As KeyValuePair(Of Integer, OtherService) In _groupService
|
||
' If other.Value.IsAlive = False Then Continue For
|
||
' If sb.Length = 0 Then
|
||
' sb.Append(other.Key)
|
||
' Else
|
||
' sb.Append("," & other.Key)
|
||
' End If
|
||
'Next
|
||
End Function
|
||
End Class
|
||
|
||
|
||
Public Class OtherService
|
||
Sub New(index As Integer, packetIndex As Integer)
|
||
ServiceIndex = index
|
||
LastPacketIndex = packetIndex
|
||
LastTime = Now
|
||
IsAlive = True
|
||
End Sub
|
||
|
||
''' <summary>
|
||
''' 最后通讯时间
|
||
''' </summary>
|
||
Public Property LastTime As DateTime
|
||
|
||
''' <summary>
|
||
''' 最后通讯包ID
|
||
''' </summary>
|
||
Public Property LastPacketIndex As Integer
|
||
|
||
''' <summary>
|
||
''' 服务索引
|
||
''' </summary>
|
||
Public Property ServiceIndex As Integer
|
||
|
||
''' <summary>
|
||
''' 是否判定为在线
|
||
''' </summary>
|
||
Public Property IsAlive As Boolean
|
||
|
||
|
||
End Class |