vb winsock1.SendData "早上好" 问题！

答案:2 悬赏:50

解决时间 2021-03-08 00:25

提问者网友：久伴不朽
2021-03-07 07:48

这几天为这个问题抓破头了
先看代码：
wskServer(1).SendData "早上好"
wskServer(1).SendData "中午好"
wskServer(1).SendData "下午好"
wskServer(1).SendData "晚上好"
wskServer(1).SendData "晚安！"
这5行代码，我希望客户端能分5次接收，也就是触发5次接收事件，而不是接收1次就把整个5句话都收到了。
已做过的尝试：在每行代码下添加DoEvents语句
结果失败：客户端为分2次接收数据，第一次接收"早上好",第二次接收“中午好下午好晚上好晚安！”
已做过的尝试：在每次发送前都添加延迟100MS
结果失败：同上，客户端为分2次接收数据，第一次接收"早上好",第二次接收“中午好下午好晚上好晚安！”
求帮助！！！！

最佳答案

二级知识专家网友：一只傻青衣
2021-03-07 08:55

可以通过Timer来控制：

Private Sub Timer1_Timer()
    Static i As Long
    i = i + 1
    If i = 1 Then
        Winsockclient.SendData "早上好"
    ElseIf i = 2 Then
        Winsockclient.SendData "中午好"
    ElseIf i = 3 Then
        Winsockclient.SendData "下午好"
    ElseIf i = 4 Then
        Winsockclient.SendData "晚上好"
    ElseIf i = 5 Then
        Winsockclient.SendData "晚安！"
    End If
End Sub

全部回答

1楼网友：不服输就别哭
2021-03-07 09:33

你好！添加DoEvents是没有用的，msdn里应该有说到，必须以零字符结尾才能标识本次发送信息完毕，零字符即chr$(0) 我的回答你还满意吗~~

我要举报

如以上问答内容为低俗、色情、不良、暴力、侵权、涉及违法等信息，可以点下面链接进行举报！