服务端会收到很多信息,那么如何区分收到的这个信息是做什么的呢,怎么知道客户发来的信息是请求一个新的编号呢?
所以需要预先约定一个信息格式,这里约定":f"开头和"f:"结尾的信息,表示是一个编号信息。
服务端收到信息之后,进行判断,如果符合上述约定的信息格式,则知道客户要求一个新的编号,那段帮助的服务端代码是:
3、在服务端的OpenQQ服务端事件ReceivedMessage中编写代码:
Dim msg As String = e.Message
If msg.StartsWith(":f") AndAlso msg.EndsWith("f:") Then
msg = msg.SubString(2, msg.Length - 4)
If flbhs.ContainsKey(msg) Then '如果存在这个类别的编号
flbhs(msg) = flbhs(msg) + 1 '将该类别最大编号加1
Else
flbhs.Add(msg,1) '如果是这个列表的首次编号,则编号等于1
End If
e.ReturnValue = flbhs(msg) '将编号返回给客户端
End If