Rss & SiteMap

金字塔客服中心 - 专业程序化交易软件提供商 http://www.weistock.com/bbs/

专业程序化软件提供商
共5 条记录, 每页显示 10 条, 页签: [1]
[浏览完整版]

标题：usersend
1楼
deni977 发表于：2016/9/21 1:24:20
Sub UserForm1_CommandButton23_Click()
str = "你好，测试。"
Application.Msgout str
          call Network.UserSend(0, str)
End Sub

为什么发送不出去？就是点击按键后，客户端收不到信息

2楼
deni977 发表于：2016/9/21 10:48:19
问题发生现象：

先启动服务器，然后客户端连接服务器，这样的时候，客户端就收不到服务器发来的信息。

如果先启动客户端，设置好连接，再启动服务器，那么，客户端可以收到服务器USERSEND发来的信息。


3楼
deni977 发表于：2016/9/21 13:58:09
服务器一直开着，客户端只要断开，重新连上，就收不到服务器的USERSEND发来的信息，在线等答案
4楼
deni977 发表于：2016/9/21 16:51:23
UserSend好像有问题，在服务器端，按键代码如下，反复的按按键，金字塔会死机，要重新启动金字塔，到底是什么问题？

Sub UserForm1_CommandButton23_Click()
str = "你好，测试。"
Application.Msgout str         
call Network.UserSend(0, str)
End Sub


5楼
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

问题解决了 
共5 条记录, 每页显示 10 条, 页签: [1]

Powered By Dvbbs Version 8.3.0
Processed in 0.01563 s, 2 queries.