Foxtable(狐表)用户栏目专家坐堂 → [求助]OPENQQ接收和发送消息的问题


  共有5368人关注过本帖树形打印复制链接

主题:[求助]OPENQQ接收和发送消息的问题

帅哥,在线噢!
有点蓝
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:107649 积分:547554 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2022/10/18 20:19:00 [显示全部帖子]

1、我测试没有问题

图片点击可在新窗口打开查看此主题相关图片如下:1.png
图片点击可在新窗口打开查看

2、是在什么时候给CUser变量赋值的?

 回到顶部
帅哥,在线噢!
有点蓝
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:107649 积分:547554 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2022/10/19 8:52:00 [显示全部帖子]

1、换种方式

……
QQClient.UserName = "李桂兰"
QQClient.Password = "888"
CUser = "李桂兰"  'CUser是预设的全局变量,给登录成功时的账号赋值
If QQClient.Start() = True '如果登录成功
Else '如果登录失败,显示服务器返回错误信息
CUser = ""
   PopMessage("QQClient登录失败,原因:" & vbcrlf & QQClient.ServerMessage,"提示",PopiconEnum.Error,5)
End If

2、代码使用的【dr("时间") = Date.Now()】赋值,当然就是当前电脑时间了,ReceivedMessage事件并没有发送时间的参数,我反馈一下,看能不能加上

 回到顶部