主题：[求助]自定义消息提醒窗口

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)

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

 

 

能否正常发送信息？如果连发信息都不行，说明你openQQ没有搭建成功。

 

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

 

 

如果能正常发送信息，那么，在ReceivedMessage事件，加入msgbox，能否弹出发送过来的信息？

 回复16楼，没有找到group=出纳的那一行，就会报错。