为什么openqq客户端发送离线消息，客户端就会死机？谢谢客户端发送代码
DataTables("计划填写").Save()
Dim drCount As Integer,IdList As String
For Each r As Row In Tables("计划填写").Rows
If r.Checked = True Then
drCount = drCount+1
If IdList >"" Then
IdList = IdList & ",'" & r("计划ID") & "'"
Else
IdList = "'" & r("计划ID") & "'"
End If
End If
Next
If drCount =0 Then
MessageBox.show("没有勾选要申请解没的行!","提示")
Else
IdList = IdList.TrimEnd(",")
Dim msg As String ="+@|" & IdList & "|" & _UserName
For Each bd As QQBuddy In QQClient.Buddies
If bd.Online Then
QQClient.Send(bd.name, msg)
Else
QQClient.Send(bd.name, msg,True)
End If
Next
End If
服务器接收代码 ’这个代码好像没关系吧
Dim msg As String = e.Message
Select Case msg
Case "#GetDate#"
e.ReturnValue = Date.Now
Case "#UserInfoUpdated#"
DataTables("用户管理").Load(False)
e.ReturnValue = "服务器用户数据已同步!"
Case Else
If msg.StartsWith(":g") AndAlso msg.EndsWith("g:") 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
End Select
加好友 
发短信
Post By：2017/8/21 11:28:00 [只看该作者]
此主题相关图片如下：klu.png