Winsock1.SendData为什么不能连续发数据
Winsock1.Protocol = sckUDPProtocol
Winsock1.LocalPort = "100"
Winsock1.RemoteHost = "192.168.5.183"
Winsock1.RemotePort = "100"

Dim BufFile(0 To 23) As Byte
Dim BufFile1(0 To 23) As Byte

BufFile(0) = &H55
BufFile(1) = &H6E
BufFile(2) = &H6
BufFile(3) = &H0
........................此段略
BufFile(23) = &H0

Winsock1.SendData BufFile()

BufFile(0) = &H10
BufFile(1) = &H29
BufFile(2) = &H6
BufFile(3) = &H0
........................此段略
BufFile(23) = &H0

Winsock1.SendData BufFile()

第二次发数据时出现 “实时错误2”，是什么原因，Winsock1.SendData为什么不能连续发数据
[解决办法]
调试LZ的以下代码,并未出现任何错误:

 Dim BufFile(0 To 23) As Byte
 Dim BufFile1(0 To 23) As Byte

 BufFile(0) = &H55
 BufFile(1) = &H6E
 BufFile(2) = &H6
 BufFile(3) = &H0
........................此段略
 BufFile(23) = &H0

Winsock1.SendData BufFile()  

 BufFile(0) = &H10
 BufFile(1) = &H29
 BufFile(2) = &H6
 BufFile(3) = &H0
........................此段略
 BufFile(23) = &H0

Winsock1.SendData BufFile()