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编辑过]