主题：[求助]qq离线消息用代码如何收取?

你是不是开了防火墙阻止了各种端口？离线发送需要随机分配一个端口的。

1、你测试从服务器直接给客户端发送信息，是否正常？在线的。

2、换一种思路吧，如果不在线，就给服务器发信息，服务器接到后，把数据保存在待发信息表。

Dim result = QQClient.Send("生产部.李桂兰", "12345678")
If result = False Then
    msgbox("不在线")
    QQClient.Send("生产部.李桂兰|12345678")
End If

2、有用户登录的时候，服务器就给他发信息呗。

或者这样做。

在服务器里server端在用户登录后，从QQServer_Cache中读取相应用户的消息记录，发送后删除。