| 以文本方式查看主题 - 金字塔客服中心 - 专业程序化交易软件提供商 (http://weistock.com/bbs/index.asp) -- 高级功能研发区 (http://weistock.com/bbs/list.asp?boardid=5) ---- usersend (http://weistock.com/bbs/dispbbs.asp?boardid=5&id=139818) |
| -- 作者：deni977 -- 发布时间：2016/9/21 1:24:20 -- usersend Sub UserForm1_CommandButton23_Click()
str = "你好，测试。"
Application.Msgout str
call Network.UserSend(0, str) End Sub 为什么发送不出去？就是点击按键后，客户端收不到信息 |
| -- 作者：deni977 -- 发布时间：2016/9/21 10:48:19 -- 问题发生现象： 先启动服务器，然后客户端连接服务器，这样的时候，客户端就收不到服务器发来的信息。 如果先启动客户端，设置好连接，再启动服务器，那么，客户端可以收到服务器USERSEND发来的信息。 |
| -- 作者：deni977 -- 发布时间：2016/9/21 13:58:09 -- 服务器一直开着，客户端只要断开，重新连上，就收不到服务器的USERSEND发来的信息，在线等答案 |
| -- 作者：deni977 -- 发布时间：2016/9/21 16:51:23 -- UserSend好像有问题，在服务器端，按键代码如下，反复的按按键，金字塔会死机，要重新启动金字塔，到底是什么问题？ Sub UserForm1_CommandButton23_Click() str = "你好，测试。" Application.Msgout str call Network.UserSend(0, str) End Sub |
| -- 作者：deni977 -- 发布时间：2016/9/21 21:51:22 --
Usc = NetWork.UserCount
if Usc<>0 then
for i=1 to Usc step 1
call Network.UserSend(i, str)
next
end if 问题解决了
|