Foxtable(狐表)用户栏目专家坐堂 → [讨论]QQClient.SendWait 服务端无响应


  共有1932人关注过本帖平板打印复制链接

主题:[讨论]QQClient.SendWait 服务端无响应

帅哥哟,离线,有人找我吗?
xiaoqiwei
  1楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:三尾狐 帖子:668 积分:8555 威望:0 精华:0 注册:2011/5/5 23:55:00
[讨论]QQClient.SendWait 服务端无响应  发帖心情 Post By:2018/4/23 13:11:00 [只看该作者]

    Dim msg = QQClient.SendWait("?#" & Key & "#?",5) '向服务器发送请求编辑信息
    If msg = "OK" Then
'
如果服务器返回OK
        tbrk.Add(key)
'
在本地登记正在编辑此行
    ElseIf msg > "" Then
'
否则显示服务器返回的信息,并取消编辑
        PopMessage(
"
无法编辑此行,因为:" & vbcrlf & msg ,"提示",PopIconEnum.Infomation,5)
        e.Cancel = True
    Else
'
如果服务器没有返回信息,则取消编辑
        PopMessage(
"
因服务器无响应,无法编辑此行!" ,"提示",PopIconEnum.Infomation,5)
       
e.Cancel = True
    End
If

QQClient.Ready 是处于在线状态的

QQClient.SendWait  客户端 总是提示 "因服务器无响应,无法编辑此行!",这个是什么原因造成的?试了 两个阿里云服务器都一样,在本地却很正常
[此贴子已经被作者于2018/4/23 13:14:39编辑过]

 回到顶部