主题：[求助]及时同步数据

接收不了信息这样测试

1、在接收事件第一行加入msgbox，看是否弹出；

2、如果1不弹出，说明发送不成功，那就看看有没有相互加为好友

For Each bd As QQBuddy In QQClient.Buddies

    msgbox(bd.Name & bd.Online)
    If bd.Online Then
        QQClient.Send(bd.name, msg)
    End If
Next

这句代码，是否弹出内容？

msgbox(bd.Name & bd.Online)

 不弹出说明没有加为好友。

 去看你客户端和服务器端的登陆代码，弹出msgbox看一下

 如果连msgbox都没弹出，说明你还没有登陆到OpenQQ那里。

 我测试，客户端那里弹出OpenQQ的登陆窗口以后，登陆成功后，测试没问题的啊。

 你说的是哪里有问题？

 在接收事件第一行加入msgbox，是否弹出？

 这句代码，是否弹出？msgbox(bd.Name & bd.Online)