Question

关于VB6.0使用WINSOCK控件通过TCP连接向仪器实时发送命令

在同一条件下，我要依次进行不同数据的采集，而且命令也不相同，我用以下代码进行测试，结果是只能得到最后一条命令的数据，前面的命令都没有得到结果，我用WinSock_Expert.rar监测的结果是，在此过程中的命令是最后一下子全部发送的。
Private Sub save264()
Dim x As Integer
Dim i As Integer
Winsock1.SendData "UD1,OVERVIEW" & vbCrLf '切换至总览画面
Sleep 1000
Winsock1.SendData "EV2" & vbCrLf '存储总览画面
Sleep 1000

x = Val(grolist.Text)

For i = 1 To x '切换至各分组存储画面

Winsock1.SendData "UD1,TREND,i" & vbCrLf '切换至组1画面
Sleep 1000
Winsock1.SendData "EV2" & vbCrLf '存储画面
Sleep 1000
Next
END SUB
请各大神帮忙看看怎么样才能得到我想要的结果。

Answer 1

Sleep 1000
改为
DoEvents

此外
Winsock1.SendData "UD1,TREND,i" & vbCrLf

要改为
Winsock1.SendData "UD1,TREND," & i & vbCrLf

Answer 2

您好，Listen
Listen方法用于服务器程序，等待客户访问。
格式：Winsock对象.listen
Connect
Connect方法用于向远程主机发出连接请求
格式：Winsock对象.connect [远程主机IP,远程端口]
Accept
Accept方法用于接受一个连接请求
格式：Winsock对象.accept Request ID
Senddata
此方法用于发送数据
格式：Winsock对象.senddata 数据
Getdata
用来取得接收到的数据
格式：Winsock对象.getdata 变量 [,数据类型 [,最大长度]]
Close
关闭当前连接
格式：Winsock对象.close
*事件
----------------------------------------------------------------------------
Close | 远程机器关闭连接时触发
Connect | 连接建立好，可以进行通信时触发(客户端)
ConnectRequest | 有请求连接到达时产生(服务器端)
DataArrival | 有数据到达时触发
Error | 发生错误时发生
SendProgress | 数据传送进度