主题：请教自定义信息提示窗口的代码问题

蓝老师，我根据开发指南中OpenQQ的自定义信息窗口的提示，步骤五的代码

在OpenQQ客户端的MessageReceived事件中编写代码：

Dim pts() As String  = e.Message.Split("|")
If pts.Length = 4 AndAlso pts(0) = "+@" '如果是申请审核消息
    fhs.Add(pts(1) & "|" & pts(2) & "|" & pts(3)) '将主健、单号和制单人合成为一个字符串存储在集合中
ElseIf pts.Length = 3 AndAlso pts(0) = "-@" '如果是审核通过消息
    PopMessage("送货单" & pts(1) & "已由" & pts(2) & "审核通过!")
    Dim dr As DataRow = DataTables("送货单").Find("单号 = '" & pts(1) & "'")
    If dr IsNot Nothing Then
        dr.Load
    End If
End If

在WeChatMessageReceived事件中输入以上代码提示错误，无法确定保存

错误代码Dim pts() As String = e.Message.Split("|")

不知是何原因请老师指教

提示：错误代码Dim pts() As String = e.Message.Split("|")

QQ客户端的代码已注释

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:qq客户端.zip

谢谢蓝老师，已按您的提修改了，现在按开发指南中OpenQQ的自定义信息窗口的所有提示做完了，不知为何张三提交申请点击确定按钮后，李四登录没有出现提示？服务端也已打开。