3、在服务端的OpenQQ服务端事件ReceivedMessage中编写代码:
Dim msg As String = e.MessageIf msg.StartsWith(":p") AndAlso msg.EndsWith("p:") 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
此主题相关图片如下:无标题.jpg