求大神帮诊断一下：

我想在项目中实现自动弹窗提醒，没能成功。

1. 工作流程(借款申请)的保存事件代码：      
Dim dr As DataRow = DataTables("A01_用户信息").Find("Group = \'会计\'")
Dim bdnm As String = dr("Name")
Dim msg As String = "+@|" & _UserName & "|" & r("借款ID") & "|" & "临时借款申请" & "|ys@"
QQClient.Send(bdnm,msg)

2. OpenQQ客户端ReceivedMessage事件代码：

Dim msg As String = e.Message
If msg.StartsWith("+@|") Then
    Dim pts() As String  = msg.Split("|")
    fhs.Add(pts(4) & "|" & pts(1) & "|" & pts(2) & "|" & pts(3))
End If

3. 项目事件SystemIdle事件代码：

If fhs.Count > 0 AndAlso Forms("S10401-流程通知").Opened = False Then
    Dim fh As String = fhs(0)
    If fh.StartsWith("ys@|") Then
        Dim pts() As String = fh.Split("|")
        fhs.RemoveAt(0)
        With Forms("S10401-流程通知")
            .Open()
            .Controls("002-消息内容").Text = pts(1) & "新增了ID为:" & pts(2) & "的" & pts(3) & ",请您进行预审!"
        End With

    End If

End If

Public fhs As New List(of String)

ReceivedMessage 事件，加入msgbox，看弹出什么

msgbox(e.Massage)

什么也没弹出来

  你有搭建openQQ了吗？openqq需要打开服务器端才能用的。

http://www.foxtable.com/webhelp/scr/3053.htm

单独执行这句代码，也没有提示？你发送信息的时候，用户名是什么？

Dim dr As DataRow = DataTables("A01_用户信息").Find("Group = \'会计\'")

msgbox(dr("name"))
Dim bdnm As String = dr("Name")
Dim msg As String = "+@|" & _UserName & "|" & r("借款ID") & "|" & "临时借款申请" & "|ys@"
QQClient.Send(bdnm,msg)

Dim dr As DataRow = DataTables("A01_用户信息").Find("Group = \'会计\'")
Dim bdnm As String = dr("Name")
 
Output.Show(bdnm)
Output.Show(_UserName)

执行结果：

高  敏

素  问

 你平时发信息的时候，是用这个名字吗？不是应该用 分组名.用户名 吗？