2、在服务端项目的OpenQQ服务端的ReceivedMessage事件加上代码:
Dim msg As String = e.Message
If msg.StartsWith("?#") AndAlso msg.EndsWith("#?") Then '收到请求编辑信号
Dim Keys As String = msg.SubString(2,msg.Length - 4)
dim v1 as string = "OK"
for each key as string in Keys.split("|")
If tbrk.Containskey(Key) = False Then '如果无人编辑此行
tbrk.Add(Key,e.UserName) '登记申请者为此行的编辑者
ElseIf tbrk(Key) = e.UserName Then '如果申请者就是之前登记的编辑者
Else '如果之前登记的编辑者为其他人
e.ReturnValue = tbrk(Key) & "正在编辑此行!" '告知申请者是谁在编辑此行
exit for
End If
next
e.ReturnValue = v1
ElseIf msg.StartsWith("!#") AndAlso msg.EndsWith("#!") Then '收到结束编辑信号
Dim Keys As String = msg.SubString(2,msg.Length - 4)
for each key as string in Keys.split("|")
If tbrk.Containskey(Key) Then
tbrk.Remove(Key) '从集合中移除此行的编辑登记
End If
nezt
End If