服务端的ReceivedMessageIf e.Message = ":czbh:" Then
Functions.Execute("重置编号")
e.ReturnValue = "重置编号成功!"
End If
服务端的自定义函数“重置编号”
MessageBox.Show("我重置编号了!")
Return Nothing
我现在在客户端输入以下代码：
If QQClient.Ready Then
Dim msg As String = QQClient.SendWait(":czbh:",5)
If msg = "" Then
Popmessage("未获服务器响应!","提示",PopIconEnum.Error)
Else
Popmessage( msg,"提示",PopIconEnum.Infomation)
End If
End If
在实际使用中，MessageBox.Show("我重置编号了!") 会用其他代码替代，现在执行的结果是，服务端是弹出了 “我重置编号了!”，可是客户端确返回 "未获服务器响应!"，肯定有自定义函数有地方写错了，估计还是个低级错误，可我就是不会啊，请老师看下，谢谢！
加好友 
发短信
Post By：2020/4/25 22:40:00 [只看该作者]
